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Summary of Amendments Number 1 



Date of Publication: November 1, 1976 
Form of Publication: Revision, LY28-6486-2 

OS/VS COBOL RELEASE 2 

New: Programming Feature 

The text has been updated to reflect Release 2 of the OS/VS COBOL Compiler. Major 
updates include: 

• Phase 04, a new phase that processes the COPY statement and performs BASIS processing. 

• Phase 35, a new phase that processes USE FOR DEBUGGING statements and their operands. 

• A new compiler option, LANGLVL, applies to those language elements where the 
interpretation differs from the 1968 American National Standard, X3 .23-1 968, COBOL, 
to the 1974 American National Standard, X3.23-1974, COBOL. 

• Phases 05, 06, 08, and 80 flowcharts have been added. 

• Extensive updates have been made to; Communications Area, Compiler Table 
Formats, and Internal Text Formats in the Data Areas Section. 

• Several updates, including a list of user ABEND codes, have been made to the 
Diagnostic Section. 

Miscellaneous Changes 

Maintenance: Documentation Only 

Some maintenance changes have also been made. 



PREFACE 



This publication describes the internal 
design of the IBM OS/VS COBOL Release 2 
compiler. The manual is intended for use 
by persons involved in program support and 
by systems programmers involved in alterinq 
the program design for installations 
requiring such alteration. It supplements 
the compiler listing and its comments but 
is not a substitute for them. 



The publication is divided into the 
following sections: 

• An introduction that describes the 
compiler functions and specifies the 
relationship of the compiler to the 
operating system. 

• A Method of Operations section that 
includes a section on each of the 
compiler phases. Within these 
chapters, the material is organized by 
phase functions and is not necessarily 
presented in the order in which the 
phase operations are performed. 

• A Program Organization section that 
includes one chart of the overall logic 
flow for each phase and other charts 
showing detailed descriptions of some 
of the major phase routines. 

• A Directory section that shows register 
usage, flowchart labels, and the tables 
used by each phase. 

• A Data Areas section showing the 
formats of the compiler Communication 
Region, the dictionary, the internal 
texts, the tables that occupy the 
table-handling area, and the tables 
that are created for object-time 
debugging purposes. 

• A Diagnostic Aids section. 

• An appendix that describes the routines 
that handle compiler tables and the 
dictionary. 

• An appendix that describes the object 
module produced by the compiler. 

• An appendix that describes the Report 
Writer subprogram. 

• An appendix that describes the 
interface with the Conversational 
Monitor System (CMS) . 



• A Glossary of special terms. 



• Foldout Diagrams. 



• An index. 

Effective use of this manual requires an 
extensive knowledge of the IBM Assembler 
Language, OS/VS System Control, and the IBM 
OS/VS COBOL language. Prerequisite and 
related publications include: 

IBM OS/VS Supervisor Se rv ices and Macro 
Instructions , Order No. GC28-0683 

IBM OS /VS D ata .Manag eme n t Service s 
Guide , Order No. GC26-3783 

IBM OS/VS Data Management Macro 
Instruction s, Order No. GC26-37 93 

IBM OS/ VS L inkage Edito r and Loader , 
Order No. GC26-3813 

IBM OS/VS and DOS/V S A ssembler Lan guage 
Guide, Order~No. GC33-4010 

IBM OS/VS Services Aids , Order 
No. GC28-0633 

IBM OS/VS System Utilities, Order 
No. GC35-0005 

IBM OS/VS Syste m Managemen t Facilities 
iSMELr Order No.~GC35-000i»" 

I BM OS/ VS Data Managemen t fo r System 
Programmers , Order No. GC26-3837 

IBM OS/VS .Vi rtual Storage Access Method 
f VSAM jr Progr ammer' s Gu id e , Or de r 
No. GC26-3838 

Prerequsite Program Product documents 
include: 

IBM VS CO BOL for OS/VS, Order 
No. GC26-3857 

IBM OS/VS COBOL Compile r and Librar y 
Programmer's Guide , Order No. SC28-6483 

I BM OS/VS COBOL Compiler and Librar y 
Installation Re feren ce Material, Order 
No7 SC28-6481 

IBM OS/VS CO BOL Subrout i ne Library 
Program Logic, Order No. LY28-6425 
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SECTION 1. 



INTRODUCTION 



The IBM OS/VS COBOL Compiler analyzes 
source modules written in the COBOL 
language and translates them into object 
programs suitable for input to the linkage 
editor for subseguent execution on the 
computer. This publication describes the 
design of this compiler and the 
characteristics of the object program which 
it produces. 



RBLAyiONj5HIP m OF.THE,.COMPJLER. ii T9 ii THE IBM 

OS/VS_SYSTEM 



A COBOL compilation is a job step under the 
control of the operating system. The OS/VS 
COBOL compiler can also be invoked under 
the Time Sharing Option (TSO) of the IBM 
Operating System. The compiler, operating 
under TSO, can be invoked most conveniently 
by the Program Product, TSO COBOL Prompter, 
Program Number 5734-CP1. The OS/VS COBOL 
compiler can also be invoked under the IBM 
Virtual Machine Facility/370 Conversational 
Monitor System (CMS). 1 To use the compiler, 

see the publication IB M OS/VS C OBOL 

Comp iler and Lib r ary Pro gram mer's G uide , 
which explains how a COBOL compilation is 
introduced to the operating system. 

As a processing program of the IBM 
Operating System, the compiler communicates 
with the control program of the operating 
system for input/output and other services. 
The services provided by the control 
program are described in the publications 
IBM OS/VS Supe rvisor S er vices and Macro 
Instructi ons , I BM OS/VS Da ta Management 
Serv ice s Guide, IBM O S/VS Da ta Manag emen t 
Macro Instructions. 



there is COPY or BASIS processing to be 
performed. Phases 05, 06, and 08 are 
called only if the Lister (LSTCOMP or 
LSTONLY) option is in effect. Phase 12 is 
called only if a Report Section appears in 
the Data Division. Phase 35 is called only 
if WITH DEBUGGING MODE and USE FOR 
DEBUGGING declaratives are present. Phase 
45 is entered only if an UNSTRING verb is 
encountered in the source program. If 
optimization of the object code has been 
reguested through the OPT option, phases 
62, 63, and 64 replace phase 6. Phase 80 
is called to flag source statements which 
do not meet the Federal Information 
Processing Standard when the LVL option is 
specified. 

Phases 25, 65, 6A, 70, 71, and 72 are 
also optional phases: phases 25 and 65 
generate debugging information for the 
SYMDMP, FLOW, and/or STATE options; phase 
6A produces a cross-reference listing if 
the user reguests one; and phases 70, 71, 
and 72 are used to list the error messages 
if errors were found in the source module. 

Of the other phases, phase 00 acts as 
the interface between the compiler and the 
operating system, phase 01 contains the 
installation default values of compilation 
parameters, phase 02 'performs compiler 
initialization, and phase 03 issues error 
messages for terminal error conditions. 

The phases are organized into an overlay 
structure, but the overlays are controlled 
through phase 00. Phase 00 is resident 
throughout compilation. It links to other 
phases as they are needed. The linkage 
seguence is as follows: 

Phase 00 links to phases 



CHARACTERISTICS OF THE COMPILER 



PHYSICAL CHARACTERISTICS 



| The compiler consists of 3 1 phases; from 10 
to 14 of these phases perform the actual 

(transformation of a source module into an 
object program. Phase 04 is called only if 



*The COBOL-CMS Interface routine, which 
allows compilation under CMS, is described 
in "Appendix D: Interface with 
Conversational Monitor System (CMS)." 



01 
03 

04 

05 

06 

08 

10 

12 

1B 

20 

22 

21 

25 

3 

35 

4 

45 



(if disaster condition with 

NODUMP) 

(if COPY or. BASIS) 

(if LSTCOMP or LSTONLY) 

(if LSTCOMP or LSTONLY) 

(if LSTCOMP or LSTONLY) 

(if report writer) 



(if SYMDMP TEST) 

(if USE FOR DEBUGGING) 

(if UNSTRING) 
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50 

51 

6 

62 

63 

64 

65 

6A 

70 

80 



(if NOOPT) 

(if OPT) 

(if OPT) 

(if OPT) 

(if FLOW, STATE, SYM, or TEST) 

(if SXREF, VBREF, VBSUM, or XREF) 

(if any error message from phases 

04 through 6A) 

(if LVL) 



Phase 1 links to phase 02. 

Phase 70 links to phases 71 and 72. 



OPERATIONAL CHARACTERISTICS 



Input 



Input to the compiler consists of an OS/VS 
COBOL program, written in the language 
described in IBM VS COBOL for OS/VS. 
The source program is read from the SYSIN 
and r optionally, the SYSLIB or other 
library data sets. Other input consists of 
control cards for BASIS and COPY and for 
batch multiple compilations. 



Output 



The output of the compiler depends upon the 
options specified by the user on the EXEC 
statement, in the COBOL command string, or 
at installation time. It may consist of: 

1. A source program listing on SYSPRINT 1 

2. Compilation progress messages and 
error messages on SYSTERM and error 
messages on SYSPRINT 1 

3. The Data Division glossary on 
SYSPRINT 1 

4. Formats of the object program global 
tables on SYSPRINT 1 

5. Listing of the object code on 
SYSPRINT 1 

6. A cross-reference listing on SYSPRINT 1 

7. An object deck on SYSPUNCH if the 
compiler is not running under TSO or 
CMS 

8. The object program on SYSLIN 

9. Debug data set on SYSUT5 



10. FIPS messages on SYSPRINT 

11. Reformatted source listing with 
expanded, embedded cross-referencing 
information on SYSPRINT 

12. Reformatted source deck on SYSPUNCH 

13. A verb summary listing on SYSPRINT 

The user can also reguest a conditional 
or unconditional syntax-checking 
compilation. When unconditional 
syntax-checking is reguested, the compiler 
scans the source text for syntax errors and 
generates the appropriate error messages, 
but does not generate object text. When 
conditional syntax-checking is reguested, 
the compiler scans the source text for 
syntax errors and generates the appropriate 
error messages. If no message exceeds the 
warning (W) or conditional (C) level, a 
full compilation is produced. Otherwise, 
the object text is not generated. 

"Compiler Options" in this chapter 
describes each of these options. 



DESIGN OF THE COMPILER 



The design of the COBOL compiler is based 
on the structure of the source program. 

In a COBOL source program, a clear 
distinction is made between descriptions of 
the operations to be performed and 
descriptions of the data to be operated 
upon. The Environment and Data Divisions 
provide information about the files and 
data items. The Procedure Division lists 
the operations to be performed, and 
specifies in what seguence and under what 
conditions particular operations are to be 
performed. 



Diagram 1 (located within the Foldouts 
at the back of this book) illustrates how 
the compiler uses this distinction. Phases 
10, 12, 20, 22, and 21, the data 
translation phases, develop the Environment 
and Data Divisions into areas of allocated 
storage for data items (including the 
specification of constant values where 
reguired) , and provide buffers and control 
blocks for files. Phases IB, 3, 35, 4, 45, 
50, and 51, the procedure translation 
phases, break down the Procedure Division 



iOutput is written directly on SYSPRINT if 
the NOLVL option is in effect. If the LVL 
option is in effect, the output is written 
on SYSUT6, which is used by phase 80 to 
produce a listing on SYSPRINT. 
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into executable instructions » The output 
of these phases is used by phase 6 or 
phases 62, 63, and 64, the assembler 
phases, to produce a machine language 
program. The section "Compiler Phases" in 
this chapter discusses the function of each 
phase. 



The phases communicate with each other 
by means of texts. Each phase produces a 
text for input to a subsequent phase. The 
text produced is the result of this phase's 
analysis of the text it received. Texts 
are written out on the compiler's work 
files as a series of elements. (An element 
is a logical unit of information; for 
example, one type of Data IC-text element 
is the description of a single data item.) 
Those texts named "IC-text" ("internal 
compiler") are passed from one translation 
phase to another and those named "A-text" 
("assembler") are used as input by phase 6 
or phases 62, 63, and 64 (note that P0-, 
P1-, P1A, ATM-, and P2-texts are forms of 
Procedure IC-text) . A summary of the 
contents of each type of text is included 
in the description of the phase that 
produces it. The passing of text between 
phases is shown in Diagram 1. 

Phases also pass information in tables. 
A table is a collection of information in a 
specified format that is, left in storage* 
Some tables are built, used, and released 
all within one phase; others are passed 
from one phase to another. (Some tables 
are built by one phase for use by a 
subsequent phase which does not follow 
immediately; in this case, the table 
remains in storage during all the 
intervening phases. For example, CKPTBL 
built by phase 10 for phase 21: this table 
is resident in storage during phases 1B, 
20, and 22, although not used.) The uses 
of these tables are described in the 
chapters on the phases which build and use 
them. 

A special type of table is the 
dictionary. Each data -name, file-name, and 
procedure-name in the program is entered in 
the dictionary, together with all the 
information collected about that item. The 
dictionary is unique among the compiler's 
tables in that it is the only table which 
may overflow its allocated storage. If the 
dictionary becomes too large, direct-access 
data set SYSDT1 is used as a spill file to 
hold the overflow. After the dictionary 
has been built, the dictionary description 
of an item is written (in P1 -text) in place 
of that item's name (in PO-text) , and the 
dictionary is no longer needed. 

Transfer of information also takes place 
through COMMON, or the communications area, 
a collection of cells of information 



resident in storage throughout compilation 
and accessible to every phase. Each cell 
holds a prescribed type of information; 
these are listed in "Section 5. Data 
Areas." 

The COMMON area is represented in each 
phase by a DSECT which describes the 
displacement of each field, with the same 
name as it exists in the first phase 00 
CSECT. The actual address of COMMON is 
passed to the phase as a parameter of the 
LINK macro instruction which gives control 
to the phase. 



COMPILER DATA SETS 



The source module to be compiled appears as 
input to the compiler on the SYSIN and, 
optionally, the SYSLIB data sets. 
Direct-access data set SYS0T1 and utility 
data sets SYSUT2, SYSUT3, SYS0T4, SYSUT5, 
and SYS0T6 are used as work files. The 
output of compilation, depending on the 
options specified by the source programmer, 
appears on SYSPRINT, SYSLIN, SYSPUNCH, and 
SYSTERM. Diagram 1 shows how these data 
sets are used. Note that SYSUT5 is not 
really an internal work file, but is used 
to hold output from the compile step if the 
| SYMDMP option is in effect. SYSUT6 is used 
only when Federal Information Processing 
Standard (FIPS) flagging has been 
requested. 



COMPILER PHASES 



The following text lists the phases in the 
order in which they receive control, and 
summarizes the functions and text output of 
each phase. The flow of information for 
all phases, except phases 00, 01, 02, and 
03, is shown in Diagram 1. 



Ph ase 00 (IKFC BL00) 



Phase 00 is resident in storage throughout 
compilation. It handles most of the 
interfaces to the operating system by the 
compiler, both for receiving and returning 
control, and for performing input/output 
operations. When another phase has 
control, it calls phase 00 to request 
input/output operations and to access the 
compiler's tables. Phase" 00 also performs 
interphase processing and links to the next 
phase. 
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Phase 01 (IKFCBL01) 



Phase 06 (IKFCBLQ6) 



Phase 01 contains the installation default 
values of compilation parameters. It 
passes these to phase 02. 



Phase 02 (IKFCBL021 



Phase 02 performs compiler initialization. 
It processes the compilation parameters, 
determines buffer sizes, and obtains 
storage for buffers, tables, and the 
dictionary. 



Phase 03 (IK FCBL03 ) 



Phase 03 issues error messages in the event 
that a terminal error condition arises. 
This phase receives control from phase 00 
and returns to phase 00, which then 
terminates compilation of the program and, 
for a batch compilation, all other programs 
in the batch. 



I Phase 04 (IKFCBL04) 



Phase 04 is an optional phase. It 
processes the COPY statement. In addition, 
it performs BASIS processing* COPY allows 
insertion of prewritten COBOL entries, 
which reside in a library, into a COBOL 
source program at compile time. COPY also 
allows the user to alter these prewritten 
entries at compile time. If the BASIS or 
COPY facility is used, the LIB option must 
be in effect. Phase 04 reads the 
user-created COBOL libraries, and passes 
the entire source program to phases 10 or, 
optionally phase 12 and 1B or to phase 05 
if LSTCOMP or LST0NLY is in effect. 



Phase 06 is the second Lister phase. It 
inserts cross-reference information into 
the source program based on the syntactic 
markers provided by phase 05. During one 
or more passes of the file, phase 06 
resolves references and merges them into 
the source program. 



Phase 08 (IKFCBL08 ) 



Phase 08 is the last Lister phase. It 
produces Lister output in accordance with 
the options specified. The output consists 
of a reformatted listing of the source 
program with cross-reference information; 
the listing begins with a preface that 
explains the cross-reference information 
that is provided by the Lister. Depending 
on the options in effect, phase 08 will 
provide a reformatted source deck and/or 
pass the source program to phase 10 for 
compilation. 



Phase 05 (IKFC BL05 ) 



Ph ase 10 (IKFCBL10) 



Phase 10 is the first of the five data 
translation phases. It reads the 
Identification, Environment, and Data 
Divisions of a source program and performs 
syntax analysis for these divisions. From 
the Environment and Data Divisions, it 
produces Data IC-text , consisting of file 
and data descriptions translated into 
internal format. If the user requests a 
source program listing, phase 10 produces 
the listing for the Identification, 
Environment, and Data Divisions. 



Phase 12 ( IKFCBL12 ) 



Phase 12 is the second data translation 
phase; it receives control only if a Report 
Section appears in the Data Division. It 
expands Report Writer statements in the 
Environment and Data Divisions into Report 
Writer subroutines, which are written put 
as PO-text (see "Phase 1B" below) . If the 
user requested a source program listing, 
phase 12 produces the listing for the 
Report Section. 



Phase 05 is the first of three Lister 
phases, which are used only when the 
LSTCOMP or LSTONLY option is in effect. It 
analyzes the syntax of the COBOL source 
program and inserts syntactic markers 
between the elements of the source program* 



Phase 1B (IKFCBL1B) 



Phase 1B is the first of the seven | 

procedure translation phases. It reads the 



22 Section 1. 



Introduction 



Licensed Material - Property of IBM 



source program Procedure 
translates it into PO-te 
Procedure IC-text contai 
statements in a format i 
compiler. In general, t 
one-to-one correspondenc 
words and PO-text codes, 
file-names, and procedur 
reproduced in PO-text in 
EBCDIC forms. A diction 
for every procedure-name 
entry contains the inter 
(PN number) and attribut 
procedure-name. 



Phase 20 (IKFCBL20) 



Division and 
xt, one form of 
ning the procedure 
nternal to the 
here is a 
e between COBOL 

Data-names, 
e-names are 

their external 
ary entry is made 
The dictionary 
nal procedure-name 
es of the 



Phase 20, the third data translation phase, 
reads Data IC-text and creates partial 
dictionary entries, called A TF-tex t. Phase 
20 also produces incomplete Data A- text 
(see "Phase 21" belou) for VALUE clauses. 



Phas e 22 (IKFCBL22) 



Phase 25 (IKFC BL25 ) 



Phase 25 is an optional phase. It receives 
control only if the user requested the 
symbolic debug option (SYMDMP) . Phase 25 
builds two tables (DATATAB and OBODOTAB) on 
the debug data set (SYSUT5) which are used 
by the object-time COBOL library debugging 
subroutines. 



Ph ase 3 (IKFCBL30) 
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Phase 22, the fourth data translation 
phase, reads incomplete Data IC-text and 
ATF-text. From these texts, it creates 
complete entries for LDs, CDs, and RDs 
(record- level descriptions) and partial 
(dummy) entries for SDs and FDs in the 
dictionary. The entry for each item is 
referred to by a unique dictionary pointer, 
which is used by later phases as the 
internal name of the data item. If any 
data items were described by the OCCURS 
clause with the DEPENDING ON option, phase 
22 produces PO-text (see "Phase 1B" above) 
for special subroutines called Q-Routines, 
which calculate the lengths of the 
OCCURS. .. DEPENDING ON fields and the 
locations of the fields that follow them, 
DEF-text, which provides information about 
the point of definition of data-names and 
file-names required for cross-reference 
listings, is also created by phase 22 and 
passed through phase 21 to phase 6 or 64. 



Phase 21 (IKFCBL21) 



| Phase 35 (IKFCBL35) 



Phase 35, an optional phase, is the third 
procedure translation phase. It processes 
USE FOR DEBUGGING statements and their 
operands. Phase 35 is invoked only if WITH 
DEBUGGING MODE is specified, and there are 
USE FOR DEBUGGING declaratives present. 
Phase 35 produces P1 A-text to be processed 
by phase 04. 



Phase 4 (IKFCBL40) 



Phase 4, the fourth procedure translation 
phase, performs syntax analysis on the 
P1-text. Its output is P2-text, in which 
complex and implied verbs (such as IF, 
COMPUTE, CALL, PERFORM) are broken down 
into simpler statements, and ATM-text 
(which is a subset of P2-text) for the 
UNSTRING verb. 
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Phase 45 (IKFCBL45) 



Phase 45, the fifth procedure translation 
phase, receives control only if an UNSTRING 
verb is encountered in the source program. 
It translates ATM-text from phase 4 into 
P2-tex t (see "Phase 4" above) for the 
UNSTRING verb. 
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Phase 50 (IKFCBL50) 



Phase 50, the sixth procedure translation 
phase, reads P2-text. Phase 50 begins the 
process, which phase 51 will complete, of 
breaking the P2-text down into P rocedure 
A-text -- assembler-like statements which, 
in general, have a one-to-one 
correspondence with machine instructions. 
Phase 50 also produces O ptimization A-text , 
used by phase 6 or 62 to eliminate 
unnecessary storage duplication. The 
output of phase 50 is Intermediate A-tex t, 
which consists of intermediate Procedure 
A-text and intermediate Optimization A-text 
for input to phase 51; and, in the case of 
literal definitions, final Optimization 
A-text for phase 6 or 62. For the 
statement number option (STATE) or the 
symbolic debug option (SYMDMP) , or the 
Interactive Debug facility (TEST) , phase 50 
generates linkages to object-time COBOL 
library debugging subroutines. 



Phase 51 (IKFCBL51) 



Phase 51 continues the process phase 50 
began of breaking down P2-text into 
assembler-like statements, which in general 
have a one-to-one correspondence with 
machine instructions. The assembler-like 
statements are written out as Procedure 
A-text. Phase 51 also produces 
Optimization A-text, used by phase 6 or 62 
to eliminate unnecessary storage 
duplication. For any of the debugging 
options (STATE, SYMDMP, FLOW, or the 
Interactive Debug option (TEST)), phase 51 
generates linkages to object-time COBOL 
library debugging subroutines. 



Phase 6 (IKF.CBL60} 



Phase 6 is the assembler phase. It 
combines all the information in the 
Procedure A-text, Optimization A-text, and 
Data A-text to produce an object program 
suitable for input to the linkage editor. 
The object program is written on SYSLIN 
and/or punched on SYSPUNCH according to the 
user's options. Phase 6 also produces an 
object program listing, if requested. For 
the statement number option (STATE) , phase 
6 produces Debug -text, which contains the 
card numbers of the source program 
statements, and their location within the 
object module. 



Phases 62, 63, and 64 (IKFCB L62 , IKFCBL63, 
an d IKFCBL64) 



Phases 62, 63, and 64' are the optional 
version of the assembler phase (phase 6) ; 
these phases are given control if the user 
requested the optimizer option (OPT) , the 
symbolic debug option (SYMDMP) , or the 
Interactive Debug option (TEST) . Like 
phase 6, the function of phases 62, 63; and 
64 is to produce an object program suitable 
for input to the linkage editor. Phase 62 
reads and processes Optimization A-text and 
both phases 62 and 63 read Procedure A-text 
which phase 63 converts into Procedure 
A1-tex t. Phase 64 uses Data A-text and 
Procedure A1-text to complete the object 
(machine language) program. The object 
program produced by phases 62, 63, and 64 
is optimized for instructions generated 
from the Procedure Division. The object 
program is written on SYSLIN and/or punched 
on SYSPUNCH according to the user's 
options. Phases 62 and 64 also produce an 
object program listing if requested. For 
the SYMDMP or the statement number option 
(STATE) , phase 63 produces Debug-text. 



Phase 65 (IKFCBL65) 



Phase 65 is an optional phase. It receives 
control only if the user requested the 
statement number option (STATE), the 
symbolic debug option (SYMDMP) , the flow 
trace option (FLOW) , or the Interactive 
Debug option (TEST) . For STATE, phase 65 
uses the Debug-text written by phase 6 or 
63 to produce two tables in the object 

| module. For SYMDMP and TEST, phase 65 
builds the remaining tables for the Debug 
data set on SYSUT5 (phase 25 has already 
produced two of the tables and written them 

| on SYS0T5) . For STATE, SYMDMP, or TEST 
these tables are used by the object-time 
COBOL library debugging subroutines. For 
FLOW, phase 65 places the number of traces 
requested in the variable portion of the 
Task Global Table in the object module. 
For any of the debugging options, the end 
card of the object module is written in 
phase 65. If the program is segmented and 
if the OPT or SYMDMP option is in effect, 
phase 65 copies onto SYSLIN and/or SYSPUNCH 
the independent segments written on SYSUT1 
by phase 64. 



Phase 6A ( IKFCBL6A V 



Phase 6A is an optional phase. It receives 
control only if the user requested a 
cross-reference listing by specifying the 
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Phases 70, 71, and 72 (IKFCBL70 r IKFCBL71, 
and IKFCBL72) 



Phase 70 is given control only if source 
program errors were detected by the 
translation phases (phases 10 through 51), 
or if the ERRMSG program-id is specified. 
Its input is E -tex t. Any phase that found 
an error produced an E-text element, 
specifying the error message to be written. 
These E-text elements were passed on 
intermixed with other text produced by the 
phase until control was passed to phase 51 
(unless a syntax-checking compilation was 
requested, in which case, E-text was 
written on a separate data set as direct 
input to phase 70 by phases 4, 50, and 51). 
When phase 51 encountered an E-text element 
written by another phase, or produced an 
E-text element itself, it wrote the element 
on a separate data set (see Diagram 1 for 
the flow of E-text) . This data set also 
contained E-text from the data translation 
phases, intermixed with Data A-text and 
DBF- text. In general, E-text was read and 
saved in storage by phase 6 or 64. Phase 
70 uses the E-text to produce a list of 
error messages (and warning messages if the 
user requested them) on SYSPRINT and/or 
SYSTERH. Phases 71 and 72 contain only 
message texts and are linked, as needed, by 
phase 70. 
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would have been written on SYSPRINT by 
previous phases if the LVL option had not 
been specified; phase 00 diverts all 
SYSPRINT output to SYSUT6 whenever the LVL 
option is specified. The output from phase 
80 is written on SYSPRINT or SYSTERM; the 
output consists of all data written on 
SYSUT6 with the COBOL source program 
flagged according to the specified FIPS 
level. Upon completion, phase 80 sets the 
return code and returns to phase 00. 



COMPILER OPTIONS 



The options listed below control certain 
events during compilation. The compiler 
recognizes the presence or absence of each 
option. The user may set default values 
for the options at installation time, or 
they may be set via the EXEC statement or 
the COBOL command under TSO or CMS at 
compilation time. The NAME option may also 
be set via the CBL card at compilation 
time. The underscore indicates the default 
option that is assumed by the compiler if 
not set otherwise. 

size = yyyyyyy 

indicates the amount of storage, in 
bytes, available for compilation. 1 
This information is used by phase 02* 

buf = yyyyyy 

indicates the amount of storage, in 
bytes, to be allocated to buffers „ * If 
both SIZE and BUF are specified, the 
amount allocated to buffers is 
included in the amount of storage 
available for compilation. Buffers 
are allocated in phase 02. 

SOURCE 

NOSOURCE 

indicates whether the source module is 
to be listed or not. This listing is 
produced by phases 10 and 12 for the 
Identification, Environment, and Data 
Divisions, and phase 1B for the 
Procedure Division. If the compiler 
is invoked by the COBOL Prompter under 
TSO, the default value is NOSOURCE. 
SOURCE is always in effect when LVL is 
specified. 



LIB 
NOLIB 



indicates that the SYSLIB data set is 
to be opened. This information is 
used by phase 04 to process BASIS and 
COPY statements in the source program. 



*The SIZE and BUF compile-time parameters 
can also be given in multiples of K 
(K=1024 bytes), for example, SIZE=128K. 
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If there are neither BASIS nor COPY 
statements in the source program, 
specifying NOLIB allows more efficient 
processing. 



LOAD 

NOLOAD 

indicates whether the object program 
is to be placed on a direct-access or 
a tape volume so that the program can 
be used as input to the linkage 
editor* The object program is 
written, if specified, by phase 6 or 
62 and 64. 

SYNTAX 

CSYNTAX 

NO SYNTAX 

NOCSYNTAX 

indicates that a syntax-checking 
compilation is to be done. When 
SYNTAX (unconditional syntax-checking) 
is specified, the compiler scans the 
source text for syntax errors and 
generates the appropriate error 
messages, but does not generate object 
code. When CSYNTAX (conditional 
syntax-checking) is specified, the 
compiler scans the source text for 
syntax errors and generates the 
appropriate error messages. If no 
message exceeds the warning (W) or 
conditional (C) level, a full 
compilation is produced* ■Otherwise', 
the object text is not generated. 
When SYNTAX is specified, all of the 
following options are suppressed: 
LOAD*, XREF, SXREF, CLIST, NOSUPHAP, , 
PHAP, DECK* SYMDHP, OPT, TRUNC, FLOW, 
STATE, VBREF, VBSUH, COUNT, and NAHE. 
Sfhen CSYNTAX is specified, the above 
options are suppressed only if one or 
more error (E) or disaster (D) level 
messages are generated. If both 
SYNTAX and CSYNTAX are specified, 
CSYNTAX overrides SYNTAX. 

BATCH 

HOBATCH 

indicates whether batch compilation is 
requested, which allows multiple 
programs and/or subprograms to be 
compiled with a single invocation of 
the compiler. This information is 
used by phases 10, 1B, and 6 or 64. 
BATCH should not be specified for the 
same compilation as SYMDMP, TEST, or 
L?L. If both are specified, BATCH 
overrides SYMDMP, TEST, or LVL. 

NAME 

NONAHB 

indicates to phase 6 or 64 that, if 
the BATCH option is also specified, a 
linkage editor control card must, be 
generated so that the object module 
will be a separate load module. 



TERM 

NOTERM 

indicates to phase 00 that diagnostic 
messages are to be directed to the 
SYSTERH data set as well as the 
SYSPRINT data set. Progress messages 
are also directed to the SISTERH data 
set. If the compiler is invoked under 
CHS or by the COBOL Prompter under 
TSO, the default value is TERH. 



NUH 
NONUM 



indicates to phases 10, 12, and 1B, or 
04 that line numbers recorded in 
columns 1-6 of the source statements 
are to be passed to the subsequent 
phases in the internal compiler text 
instead of compiler-generated card 
numbers. If a source statement number 
contains a nonnumeric character or 
appears out of sequence, the compiler 
generates a card number equal to the 
last source statement number plus 1. 
Hence e source statement numbers will 
appear in diagnostic messages and 
PMAP, CLIST, XREF, SXREF, REiiDI TRACE,, 
FLOH, SYHDHP, and STATE references 
rather than compiler-generated card 
numbers. If the compiler is invoked 
by the COBOL Prompter under TSO, the 
default value is IIUM. 

OPT 

IL22E3L 

indicates that the object module is to 

be optimized by phases 62, 63, and 64 
for instructions generated from the 
Procedure Division. 

FLOW=n[n] or FLOW 

NOFLOW 

indicates whether the object program 
is to include the flotf trace option. 
This option causes a formatted trace 
of the last n[ n ] procedures executed 
before an abnormal termination to be 
printed at execution time. If this 
option is specified, special P2-text 
elements are produced by phase 4, and 
phase 51 generates calls to the COBOL 
library flow trace subroutine. Phase 
02 places the number of traces 
requested in COMHON. At execution 
time, initial control is passed to the 
COBOL library flow trace subroutine by 
the object-time COBOL library 
debugging control subroutine, which is 
called during INIT3. 

STATE 

NOSTATE 

indicates whether the object program 
is to include the statement number 
option, which prints the last 
statement number and verb number 
executed before the occurrence of an 
abnormal termination. If this option 
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is specified, phase 6 writes 
Debug-text on SYSUT2 or phase 63 
writes Debug-text on SYSUT4 for use by 
phase 65. At execution time, control 
is passed to the COBOL library 
statement number subroutine by the 
object-time COBOL library debugging 
control subroutine. STATE should not 
be specified for the same compilation 
as SYMDMP. If both are specified, 
SYMDMP overrides STATE. 

SYMDMP 

NOSYMDMP 

indicates that a formatted symbolic 
dump of specified data areas is to be 
printed on SYSPRINT dynamically, at 
various points, as requested prior to 
execution of a program; or that, in 
the event of abnormal termination, a 
formatted symbolic dump of all data 
areas is to be printed on SYSPRINT. 
SYMDMP should not be specified for the 
same compilation as BATCH or STATE. 
If both BATCH and SYMDMP are 
specified, BATCH overrides SYMDMP; if 
both STATE and SYMDMP are specified, 
SYMDMP overrides STATE. If more than 
one COBOL program with the SYMDMP 
option is included in the job step and 
if all of the Debug data sets are on 
the same direct-access device, each 
must be given a unique name. 
Specification of SYMDMP automatically 
causes OPT to be in effect for the 
compilation. If WITH DEBUGGING MODE 
and USE FOR DEBUGGING declaratives are 
specified, SYMDMP will be cancelled. 

TEST 

H21SSE 

indicates that the program is to be 
executed with the TSO Interactive 
Symbolic Debug package. This option 
overrides the STATE, FLOW, COUNT, and 
If WITH DEBUGGING MODE and USE FOR 
DEBUGGING declaratives are specified, 
SYMDMP will be cancelled. 

SXREF 

NOSXREF 

XREF 

N0XRJ2F 

indicates that a cross-reference 
listing is to be produced. If the 
SXREF or the XREF option is specified, 
special text elements are produced by 
phases 22, 3, and 6 or 64, and phase 
6A is called to generate the listing. 
If SXREF is specified, an 
alphabetically ordered cross-reference 
listing is generated. If XREF is 
specified, a cross-reference listing 
ordered by source statement sequence 
is generated. SXREF should not be 
specified for the same compilation as 
XREF. If both SXREF and XREF are 
specified and if the compiler was 



invoked by the COBOL Prompter, SXREF 
overrides XREF. Otherwise, if both 
are specified, the last option 
specified is used. 

CLIST 

NO CLIS T 

indicates that global tables, literal 
pool, register assignments, 
Working-Storage message, and a 
condensed listing are to be produced 
by phase 6 or phases 62 and 64. The 
procedure portion of the listing will 
contain only the source or 
compiler-generated card number, verb 
name, and relative location of the 
first instruction for each verb. 
CLIST should not be specified for the 
same compilation as PMAP. If both 
PMAP and CLIST are specified, PMAP 
overrides CLIST. 

SUPMAP 

NOSUPMAP 

causes phase 6 or phases 62, 63, and 
64 to suppress their output if a 
D-level or E- level error message is 
generated by the compiler. 

DMAP 

NODMAP 

indicates whether phase 3 is to print 
a Data Division glossary and whether 
phase 6 or 62 is to print global 
tables, literal pool, register 
assignments, and the Working- Storage 
message. 

PMAP 

NOPHAP 

indicates whether global tables, 
literal pool, register assignments, 
Working-Storage message, object code 
listing, and assembler language 
expansion of the source module is to 
be listed by phase 6 or phases 62 and 
64. PMAP should not be specified for 
the same compilation as CLIST. If 
both PMAP and CLIST are specified, 
k the last one specified has precedence. 

2BB 

NOZWB 

indicates whether the compiler is to 
generate code to strip the sign when 
comparing a signed external decimal 
field to an alphanumeric field. If 
ZWB is specified, the signed external 
decimal field is moved to an 
intermediate field and has its sign 
stripped before being compared to the 
alphanumeric field. Note that the 
default value cannot be changed at 
installation time. 

TRUNC 
MQ1SJISC 

indicates whether standard truncation 
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is to be applied to computational 
items. If TRUNC (standard truncation) 
is specified and the number of digits 
in the sending field is greater than 
the number of digits in the receiving 
field, the computational item is 
truncated to the number of digits 
specified in the PICTURE clause of the 
receiving field when moved. With 
nonstandard truncation, they are 
truncated according to the actual 
amount of storage each item occupies. 
This option determines the 
instructions generated by phase 51. 

DECK 

NODECK 

indicates whether the object program 
produced by phase 6 or by phases 62 
and 64 is to be punched by phase 00 on 
SYSPUNCH or, under CMS, on the virtual 
punch. Under TSO, the object program 
is never punched. 

RESIDENT 

NORESIDENT 

indicates whether the library 
management facility is to be used. 
The library management facility allows 
a single copy of a library subroutine 
to be shared by all COBOL programs in 
the same or different partitions or 
regions. If DYNAM is specified, 
RESIDENT is also in effect for the 
compilation. 

DYNAM 

NQDYNAM 

indicates whether all user subprograms 
are to be dynamically loaded at object 
time. If DYNAM is specified, RESIDENT 
is also in effect for the compilation. 



&UOTE 
APOST 



indicates to phases 10, 12, and 1B, or 
04 to accept either the double 
quotation marks (") or the apostrophe 
( f ) as the character to delineate 
literals and to use that character in 
the generation of figurative 
constants. 

SEQ 

NOSEQ 

indicates whether phases 10, 12, and 
1 B, or 04 are to check the sequence of 
the source module statements. If the 
statements are not in sequence and SEQ 
is specified, a message is printed. 
If the compiler is invoked by the 
COBOL Prompter under TSO, the default 
value is NOSEQ. If LSTCOMP or LSTONLY 
is in effect, this option is ignored. 

LINECNT = nn 

indicates the number of lines to be 
printed on each page of the compiler 



output listing. It is used as control 
information by phase 00. 

FLAGW 

FLAGE 

indicates to phase 70 the type of 
messages that are to be listed for the 
compilation. FLAGW indicates that all 
warning and diagnostic messages are to 
be listed. FLAGE indicates that all 
diagnostic messages are to be listed, 
but not warning messages. 

SPACEV 

SPACE2 

SPACE3 

indicates to phase 00 the type of 
spacing to be used on the listing. 

SYST 

SYSx 

indicates whether SYSOUT or SYSOUx 
(where 'x 1 is an alphanumeric 
character) is the DDname of the file 
to be used for data when SYSOUT is 
specified (implicitly or explicitly) 
in a DISPLAY statement. When more 
than one program in a job step access 
this file, the DDname specified in the 
first program is used. 

VERB 

NOVERB 

indicates whether procedure-names and 
verb-names are to be listed with the 
associated code on the object-program 
listing. VERB has meaning only if the 
PMAP or CLIST compiler option is 
specified or if READY TRACE is used in 
the source program. 

LVL = c 

NOLVL 

indicates whether the Federal 
j Information Processing Standard (FIPS) 
flagger is to be activated, c 
indicates the level of the standard to 
be checked (A = low; B = low 
intermediate; C = high intermediate; D 
= full standard) . Where LVL = c is 
designated as the default at 
installation time, NOLVL cannot be 
specified at compile-time. 

ENDJOB 

NO EN DJ OB 

indicates whether or not, at the end 
of each job, COBOL library subroutines 
are to be called to delete modules, 
free storage acquired through GETMAINs 
issued by the COBOL program or COBOL 
library subroutines, close DCBs opened 
by subroutines and free their 
associated buffers. Specifying ENDJOB 
prevents fragmentation of storage for 
programs executed on the system after 
the COBOL program. This option takes 
effect at a STOP RUN statement in any 
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program and at a GOBACK statement in a 
main program only. 



LSTONLY 

LSTCOMP 

NOLST 

LSTONLY 
the ref 
be prod 
not to 
option 
source 
LSTCOMP 
the lis 
by the 
program 
indicat 
used, 
FDECK, 
are ign 
options 
NOBATCH 



indicates that a listing of 
ormatted source program is to 
uced, but that the program is 
be compiled; if the FDECK 
is in effect , the updated 
deck will also be produced, 

indicates that, in addition to 
ting and optional deck produced 
LSTONLY option, the source 

is to be compiled, NOLST 
es that the Lister is not to be 
When NOLST is in effect, the 
CDECK, LC0L1, and LC0L2 options 
ored. The L120 and L132 

are ignored if NOLST and 

are specified. 



CDECK 

NOCDECK 

CDECK indicates that the updated and 
reformatted copy libraries are to be 
punched. If the FDECK option is in 
effect, the libraries will be punched 
as part of the source deck. If the 
NOFDECK option is in effect, the 
libraries will be punched as a 
separate deck. If NOLST is in effect, 
this option is ignored. 

FDECK 

NOFDECK 

FDECK indicates that an updated source 
deck is to be produced. If the CDECK 
option is in effect, the updated 
source deck will include the updated 
and reformatted copy libraries. If 
NOLST is in effect, this option is 
ignored. 

LC0L1 

LC0L2 

LCOL1 indicates that the Procedure 
Division is to be listed in 
single-column format. LC0L2 indicates 
that the Procedure Division is to be 
listed in double-column format. If 
NOLST is in effect, this option is 
ignored. 



L120 
L132 



L120 indicates that the print line is 
120 characters long. L132 indicates 
that it is 132 characters long. If 
NOLST is in effect, this option is 
ignored unless BATCH is specified. If 
L120 or L132 is specified on an EXEC 
PARM card, the option is in effect for 
any compilation with LSTCOMP or 
LSTONLY in the batch compilation. The 
L120 or L132 option on a CBL card is. 
ignored. 



COUNT 

NOCOHIl 

COUNT indicates that an execution 
summary is to be produced at the end 
of execution of the compiled ■ program. 

VBREF 

NOVBREF 

VBREF indicates that a verb 
cross-reference listing is to be 
produced for the compiled program. 
The VBREF option also implies the 
VBSUM and VERB options. 

VBSUM 

NOVBSUM 

VBSUM indicates that a verb summary 
listing is to be produced for the 
compiled program. The VBSUM option 
also implies the VERB option. 

SUMP 

NODUMP 

DUMP indicates that the compiler will 
issue an ABEND for a D-level message 
condition caused by a possible 
compiler error. NODUMP indicates that 
the ABEND will not be issued and that 
the D-level message will be produced. 

ADV 

NOADV 

indicates whether or not records for 
files with WRITE. .. ADV ANCING need 
reserve the first byte for the control 
character. ADV specifies that the 
first byte need not be reserved. 

LANGLVL(1|2) 

indicates which level of the American 
National Standard (ANS) COBOL 
definition should be used by the 
compiler when it encounters those few 
language elements whose meaning 
changed from 1968 to 1974. The ANS 
X3. 23-1968 interpretation is indicated 
by LANGLVL(1) ; the ANS X3. 23-1974 
interpretation is indicated by 
LANGLVL(2), which is also the default. 
New language elements (those not in 
the 1968 ANS standard at all) are 
unaffected by this option. They will 
be accepted by the compiler even if 
LANGLVL(I) is specified. All IBM 
extensions to the language are also 
unaffected. 



STORAGE REQUIREMENTS 



Phase 00, which is resident in storage 
| throughout compilation, occupies 18K bytes 
of storage (where K=1024 decimal) . The 
additional storage reguired by each of the 
other phases is as follows: 
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Storage 


Phase 


lin.bj2te§L 


01 


236 


02 


14K 


03 


2K 


04 


20K 


05 


20K 


06 


4K 


08 


20K 


10 


38K 


12 


36.R 


21 


26K* 


22 


34K* 


25 


10K* 


3 


16K** 


35 


8K 


4 


52K 


45 


8K 


50 


42K 


51 


50K 


6 


34K 


62 


20K 


63 


10K 



64 
65 
6A 
70 
71 
72 
80 
1B 
20 



26K 
8K 
12K 
28K 
20K 
16K 
36K 
34K* 
26K 



Each phase except phases 01 and 02 uses 
TAMER tables and requires table space. The 
amount of space needed for tables varies 
greatly with each compilation. 



♦These phases build the dictionary and 
include from 2K to 3K bytes for ACCESS 
dictionary-handling routines. 
** An additional 1K bytes is included for 
ACCESS routines; the dictionary is also 
present during this phase. 
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METHOD OF OPERATION 



PHASE 00 



Phase 00 (IKFCBL00) , the interface between 
the COBOL compiler and the operating 
system , is resident in storage throughout 
compilation. Its major functions are: 



1 . Receiving control from the operating 
system and, at the end of compilation, 
returning control to it. 



2. Performing reallocation and linkage 
functions after each of the other 
phases has completed its operations. 



3. Handling input/output requests from 
the other phases and providing 
routines to handle permanent 
input/output errors. 



system in the same manner. When LVL is in 
effect, phase 80 is the final phase and it 
returns control to the system. 



Phase 00 keeps 
phase is currently 
2-byte cell named 
increments LINKCNT 
the next phase so 
value of LINKCNT i 
LINKCNT is not inc 
71, and 72 since t 
phases is transpar 
there is no unique 
LINKCNT for phase 
phase. 



track of which processing 

active by means of a 
LINKCNT. Routine LINKA 

by 2 before it links to 
that, for example, the 
s 2 at entry to phase 01. 
remented for phases 02, 
he linking of these 
ent to phase 00. Also, 

value assigned to 
03, the error handling 



Figure 1 traces the routines used by 
phase 00 for both normal and abnormal end 
of compilation. 



4. Manipulating tables for the other 
phases. 



Providing a communications area 
(COMMON) for the other phases. 



RECEIVING CONTROL FROM THE OPERATING SYSTEM 



Compilation is invoked by an EXEC control 
card or by a CALL, LINK, ATTACH, or XCTL 
macro instruction containing the 
compilation parameters. Phase 00 receives 
the call at entry point START, and in 
routine LINKA links to phase 01 and passes 
the parameters to it for processing. 



RETURNING CONTROL TO yHE OPERATING SYSTEM 

When phase 4, 6, 08, 64, 65, 6A, or 70 is 
the last phase, it calls phase 00 to 
terminate compilation of the current 
program. If there are no more programs to 
compile (BATCH) , phase 00 puts a code into 
register 15 indicating the highest source 
program error severity level that was 
encountered and branches on register 14 to 
return to the operating system. If an 
error occurs that stops compilation (see 
"Syntax-checking Compilations" and 
"Terminal Error Conditions" in this 
chapter) , phase 00 returns to the operating 



PROCESSING BETWEEN PHASES 



Other phases call phase 00 for 
between-phase processing or for 
input/output request with the following 
sequence: 



L register, = A (COS) 

BALR 0, register 

DC X'XY' 

DC X'ZZ 1 



See note 1 . 

See note 2. 
See note 3. 



Notes: 



1. A (COS) is the relocated address of the 
entry point to phase 00. Routine 
LINKPH1 passes this address. in 
register 1 to each phase that it calls 
into storage. 

2. , XY' is a hexadecimal linkage code. 

1 X' bits indicate the function to be 
performed. ' Y' bits indicate the 
affected file. • Y* bits are ignored 
when the function does not involve a 
file. See Figure 2 for •XY' values. 

3. 'ZZ' indicates functions to be 
performed by phase 00. See Figure 2 
for •ZZ' values. 

Other phases call the table handling 
routines of phase 00 at the entry point of 
each routine. These routines are discussed 
in "Appendix A. Table and Dictionary 
Handling." 
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Permanent I/O Error 



COPY/BASIS Library Error 
or TAMER Cannot Continue 



r" -' ...... 1 

ISYNAD routine | 


i " '" i 

| Store address of | 


| Store pointer to | 


| error message code J 


|exit code and reg-| 


|in COMMON | 


listers and 1 in ( 


1 S 


| COMMON | 


1 1 


• p 


i t 


i 


-.- „,.. ^! 



llssue RETURN macro| 
| instruction, if | 
| necessary, S link | 
|to phase 03 to ( 
| handle error | 



Call from a Phase with 
Request for End of Job 



| Set EOJCALL switchj 
land issue RETURN | 
| macro instruction | 



I 



V 

. 



(Go to appropriate | 

(interlude routine | 

(to purge files ( 

I I 

I I 

i , _j 

» 

I 
I 
V 

: j 

| Release storage 
(and close files 



r -■ ■"■'- — 

|Link to phase 80 

(for FIPS listing 

1 
i 


—i 


1 
1 

L— .- . j.-.,. 


.i 


1 
1 
1 

V 


i 

(Restore system's 
(registers 

1 
i 


i 


1 

1 


i 


-1 

1 

1 




1 

I 

V 





(Branch on register ( 
(14 to the invoker ( 
(of the compiler J 
(control program | 



I 



(Reset SPIE, place ( 

If LVL|RETCDE in register! 

115 ( 

I I 

I ( 

« „ 1 



(If NOLVL 

I 

I 

V 



| Restore system's 
| registers 



1 

I 
( 
I 
V 

(Branch on register 
(14 to control 
(program 
I 

■I-.: 



Figure 1. Flow of Control at End of Compilation 
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„ f -.,, -j „ , . , j 

I X Code | Routine Called | Function of Routine | 


5 1 J ...... i 

| { READ | Reads a utility data set. Passes back | 
11 | to caller the storage address of the | 
I | 1 logical record, I 


| 1 | WRITE | PUTN: Writes a record, where caller | 
| | j gives address and length of data. | 


| 2 | WRITEA | PUT: Writes Data IC-text, where caller! 
| J | gives address of data and the first | 
| | j two bytes of data give length. | 


| 3 | OPENLIB | Issues OPEN to library data set, and | 
II | passes back the return code to the J 
j j j calling phase | 


| 6 | CLOSET j Issues SVC 23 (temporary close) . If a J 
j| | second parameter byte containing | 
| | | X«00 8 follows the »XY« code, the data | 
| | j set will not be purged before TCLOSE. | 
I | | If a second parameter byte contains | 
| | | X'01', the data set will be purged | 
j | | before TCLOSE. I 


i 7 | READ | Reads SYSIN. I 


| 8 j WOUT | Pads to the right with blanks to fill | 
j j | up a record for the print data set. | 


| 9 | SEGPNT | Positions access mechanism to a disk | 
| | j address supplied by caller (on | 
j | j SYSUT1) and reads the record. See | 
| | j "Segmentation Operations" in this | 
I j | section. I 


j A \ LINKB S Issues RETURN to terminate the previous! 
| | j processing phase. j 


| B | EOJ | Returns to operating system. | 


| C | SEGNOTE | Records the relative disk addresses of | 
j j j Procedure A-text on SYSUT1 for phase | 
I | | 51. See "Segmentation | 
| | | Operations" in this section. | 


j D | EJECT or SKIP | Positions printer. The exact function | 
| | | is determined by a second parameter | 
| | | byte as follows: I 
| | | X«00« eject | 
|| | X*01" skip 1 line I 
| | | X«02« skip 2 lines | 
| | | X«03 9 skip 3 lines | 


1 E | WG01 | PUT: Moves logical record into a | 
| | | buffer. If a second parameter byte | 
| j | containing X'CC 1 follows the 'XY 1 | 
j | | code, the call was not from phase 00 j 
|| | internally but from another phase. | 


I F | CLOSER | When a file is to be closed, moves 'FF'I 
| | j into buffer to indicate end-of-file, | 
| | | checks previous input/output | 
j | j operation, writes and closes the j 

II 1 file. I 



i 

|Y Code 


i 

Data Set | 


1 1 


SYSUT1 | 


I 2 


SYSUT2 | 


I 3 


SYSUT3 | 






1 4 


SYSUT4 | 


4 

1 5 


SYSIN | 


1 6 


SYSPRINT | 


1 7 


SYSPUNCH | 


1 .8 


SYSLIN | 


1 9 


SYSLIB | 


| A 


SYSTERM | 


1 8 


SYSUT5 | 











Figure 2 (Part 1 of 2) , Linkage Codes to Phase 00 
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ZZ Code j Meaning 



01 



j NOTE macro instruction to retrieve the absolute address. 



-I 

02 f POINT macro instruction to cause processing to start at the specified block 
| in the data set, 
-f- 



03 f POINT macro instruction to rewind the data set. 
4- 



04 



| WRITE UPDATE (disk only) • 



05 | When preceded by an «XY* code of X 8 22» f WRITE on SYSUT2 from SYS0T5 buffer 
j with a buffer size of 512 bytes; when preceded by an 9 XY' code of X'02 fi , 
| READ from SYSUT2 into SYSUT5 buffer with a buffer size of 512 bytes. 



igure 2 (Part 2 of 2). Linkage Codes to Phase 00 



Figure 3 shows the flow of control for 
processing between phases. 

When the calling code received by phase 
00 indicates that the next phase is to be 
linked (X 9 A0°), phase 00 issues a RETORK 
macro instruction and then uses LINKCNT to 
determine which phase interlude routine to 
branch to. 

Each interlude routine sets the PURGER 
string and branches to purge data sets and 
issue progress messages, as reguired. The 
interlude routine then performs TCLOSE, 
OPENjr and CLOSE operations, as necessary; 
makes any reguired changes to the buffer 
pointer table through which buffers are 
assigned to data sets; and determines which 
phase is to be linked next and sets LIBKCNT 
accordingly. 

Each interlude routine exits to a common 
routine in which the value of the COBOL 
space constant for the next phase is set. 
If the next phase is larger than the 
previous phase, the TAMER interlude routine 
is called to move tables and free main 
storage as necessary. 

Finally, LINKCNT is incremented by 2, 
and control is passed to the next phase 
through the execution of a LINK macro 
instruction. 

Figure 4 shows the conditions under 
which optional phases are called. 

If the LVL option has been specified 
phase 00 links to phase 80 for Federal 
Information Processing Standard flagging. 



PHASE IHPUT/OUTPUT REQUESTS 



Phase 00 translates ail phase input/output 
requests for all phases except phase 80 
into branches to data management routines 
or SVCs. It switches the buffer pointers 
in the point table if the data set is 
double buffered, blocks and unblocks the 
records, and checks to determine whether 
the operation is completed successfully. 
If necessary, it also calls TAMER to handle 
dictionary spill during phase processing 
(see the section "Table and Dictionary 
Handling") . Figure 5 shows the 
input/output requests for each phase. 
Figure 2 shows the linkage codes used in 
these requests. 



When a permanent input/output error 
occurs in any phase except phase 80, a 
SYNAD routine (SYAA, SYAB, or SYAD) is 
called to handle the error, and phase 03, 
the error handling phase, is linked. Phase 
03 issues a SYNADAF macro instruction to 
obtain the input/output error message and 
then issues a WTO (write-to-operator) macro 
instruction to print the message obtained. 
Finally, phase 03 sets LINKCNT to 2 more 
than the value assigned to phase 70 and 
returns to phase 00 with an end-of-job 
calling code (X'BO 1 ). Compilation is 
abandoned via the routines described 
earlier in this section under "Returning 
Control to the Operating System." 
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Phase xx 



| When processing 
|is completed , 
| BALE to COS 

8 , 

I 
I 
I 

COS V 

I 

I Calling code 
I (X'AO') indicates 
| that LINKB is to 
| be called 



I 



LINKB 



llssue RETURN macro | 
j instructions | 
1 I 

1 « J 

I 
I 
I 
V 



I 
« 

I 



I 
I 

Interlude 
Routine 
I 
I 

I 



INTXX 



| Move in 
| string 



purge 



I 

I 

I 

V 



IPurge, i 
| progress 
| as neces 
I 

I 



ssue 

messages 
sary 



i 

ITCLOSE, 
| CLOSE, a 
j necessar 
i 



OPEN, 

s 

y 



t 

| Reassign 
| as neces 

i 



| Determin 
I phase to 
land set 
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buffers, | 
sary | 



e next | 

be called! 

LINKCNT | 

- i 



Figure 3„ Flow of Control for Processing Between Phases 



© 



| Set COBOL space 
| for next phase 



| TAMER interlude 
jprocessing if next 
| phase is larger 
|than last phase 



I 



| Increment LINKCNT 
I by 2 



| Link to next phase| 

I I 

i j 
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r ■ . ■ i i i 
j Optional j Preceding | Compiler | 
| Phase | Phase | Option | 


| 04 | 02 | LIB | 


| 05 | 02 I LSTONLY or | 
| | | LSTCOMP | 


| 06 | 05 | LSTONLY or | 
| | | LSTCOMP | 


| 08 | 06 | LSTONLY or | 
| j | LSTCOMP | 


| 25 | 21 | SYMDMP or | 
| |. | TEST | 


| 35 j 30 | USE FOR | 
|| | DEBUGGING* | 


\ 6A | 60 | XREF | 
I | 64 I SXREF | 
| { 65 | VBREF | 
I | | VBSUM | 


| 62 | 51 | OPT | 
I 63 | || 
I 64 | | | 


I 65 | 60 | SYMDMP or | 
| | 64 | TEST | 


| 70 j Varies | If errors | 
j I I in source | 
I I I program j 


I 80 | 60 | LVL | 
I | 6A | | 
1 | 64 | | 
1 1 65 | | 
1 |70 [ | 
i « . ^ t 


|*The WITH DEBUGGING MODE clause is | 
| specified under the SOURCE-COMPUTER | 
| paragraph, and the USE FOR DEBUGGING j 
| statements follow the DECLARATIVES | 
| header. j 



Figure 4. Optional Phase Processing 
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if LIB & 
LSTONLY or 
LSTCOMP 
Buffers 4, 5 
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04 (if LIB) 
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if LIB 
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00 
INT04 






Purge/ 
TCLOSE if 
LSTCOMP 
or LSTONLY 


















05 (if LST) 




WRITE 
if LIB 


READ 
if LIB 


READ 
if LIB 




READ 
if NOLIB 












00 
INT05 




Purge, 
TCLOSE 


TCLOSE 
if LIB 


TCLOSE 
if LIB 
















06 (if LST) 




READ 
WRITE 


READ 
WRITE 


















00 
INT06 




Purge, 
TCLOSE 


TCLOSE 


















08 (if LST) 




READ 


WRITE 


WRITE 






WRITE 


WRITE 








00 (if 

LSTCOMP) 

INT08 




TCLOSE 


Purge, 
TCLOSE 
if LIB 


Purge, 
TCLOSE 








Purge if 
FDECK/ 
CDECK 








00 (if 
- LSTONLY) 
INT08 


CLOSE 


CLOSE 


CLOSE 


CLOSE 






CLOSE 


Purge if 
FDECK/ 
CDECK, CLOSE 


CLOSE 




CLOSE 


























10 






WRITE 
Data IC-text 
E-text 


READ 
if LIB/ 
LSTCOMP 




READ 
if NOLIB/ 
NOLST 


WRITE 






READ 




00 
INT10 




Buffers 2,3 


Buffers 4,5 


Buffer 1 
















1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN, SYSLIB, and SYSTERM all use buffer 6. 

Use of SYSUT1 : Phases 1B, 22, 21, 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from tne dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 UseofSYSUT5: If the SYMDMP or TEST option is not in effect. SYSUT5 is not used. 

Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the SYNTAX option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51. Otherwise, phase 6 

or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 
5 Use of SYSUT4: Phase 04 writes on SYSUT4 and phases 10 and 1B read from SYSUT4 only it the LIB option is in effect. If the LIB option was not specified, that 

.is, BASIS or COPY statements are not present in the source program, phases 10 and 1 B read from SYSIN. 

6 Use of SYSUT6: The SYSUT6 DDriame replacesSYSPRINT when LVL is specified. After phase 80 processing. FIPS f larger output is_directed to SYSPRINT or SYSTERM. 
'Use otSYSUT2: Phase 04 outputs source programs to SYSUT2 as BASIS control cards are processed. Phase 04 then reads SYSUT2 in order to process any COPY statements. 



O 
CD 

W 
CD 
Pi 

3 

ft 

CD 
h 



H 
O 

CD 

n 
o 

Hi 



00 



to 
<D 
o 

rl- 
H- 
O 
t3 



3 
(D 
el- 

cr 

O 
Pj 

O 
H> 

O 

(D 

(1> 
d- 
H* 
O 



C 
(D 



O 
<+ 

< 

O 

cr 

2 

B 

»o 
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© 
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W 
(D 

CO 
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O 
Pi 

DO 



CO 
CO 

B 
(D 

<+ 



p 



o 



Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 


SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


12 
(Report Writer) 




WRITE 
PO-text 
E-text 


WRITE 
Data IC-text 


READ 
if LIB/ 
LSTCOMP 




READ 

ifNOLIB/ 

NOLST 


WRITE 






READ 




00 
INT12 




Buffers 2,3 




















IB 2 


WRITE 
XDAP 


WRITE 
PO-text 
E-text 




READ 
if LIB/ 
LSTCOMP 




READ 

ifNOLIB/ 

NOLST 


WRITE 






READ 




00 
INT1B 






Purge 
TCLOSE 
Buffers 4,5 


TCLOSE 

Buffers 1,6 






Purge 










20 2 






READ 
Data IC-text 
E-text 


WRITE 
Data IC-text 
Incomplete 

Data A-text 
ATF-text 
E-text 
















00 
INT20 




Buffers 2,3 


TCLOSE 
Buffers 4,5 


Purge 
TCLOSE 
Buffers 1 ,6 
















22 2 


WRITE 
XDAP 


WRITE 
PO-text for 
Q-Routines 


WRITE 
Data IC-text 
Data A-text 
DEF-text 
E-text 


READ 
Data IC-text 
Incomplete 

Data A-text 
ATF-text 
E-text 
















00 
INT22 




Buffers 2,3 


Purge 
TCLOSE 
Buffers 4,5 


TCLOSE 
Buffers 1 ,6 
















21 2 


WRITE 
XDAP 


WRITE 
PO-text 


READ 
Data IC-text 
Data A-text 
DEF-text 
E-text 


WRITE 
Data A-text 
E-text 
DEF-text 
















00 
INT21 




Purge 
TCLOSE 
Buffers 2,3 


TCLOSE 


Purge 

Buffers 1 ,6 


Buffer 4 














If 

SYMDMP 

25 2 






READ 
DEF-text 


WRITE 
E-text 


WRITE 

DATATAB 

OBODOTAB 














, /Vum6e«fpec/y/^/n//V7>xroaf/'nesindicatethebuffersusedbythenextphase.SYSrN,SYSPRINT f SY^^ use buffer 6. 

2 Use of SYSUT1 ': Phases IB. 22, 21, 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 Use ofSYSUTS: If the SYMDMP or TEST option is not in effect, SYSUT5 is not used. 
4 Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51. Otherwise, phase 6 

or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 
s Use of SYSUT4: Phase 04 writes on SYSUT4 and phases 10 and 1B read from SYSUT4 only if the LIB option is in effect. If the LIB option was not specified, that 

is, BASIS or COPY statements are not present in the source program, phases 10 and IB read from SYSIN. 
6 Use of SYSUT6: The SYSUT6 DDname replaces SYSPR INT when LVL is specified. After phase 80 processing, FIPS f lagger output is directed to SYSPR INT or SYSTERM. 
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O 
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Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 


SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


00 
INT25 




Buffers 2,3 


TCLOSE 

Buffers 4,5 


Buffer 1 
















3 2 


WRITE 
XDAP 


READ 
PO-text 
E-text 


WRITE 
Pi-text 
E-text 


WRITE 
DEF-text 






WRITE 










00 
INT3 


Purge 

CLOSE spill 
OPEN utility 
Buffers 1 ,6 or 1 
if (C)SYNTAX 


TCLOSE 
Buffers 2,3 


Purge 
TCLOSE 

Buffers 4,5 


Purge 

Buffer 6 

if (C)SYNTAX 




CLOSE 


Purge 






CLOSE 


WRITE 
Purge 


4 


WRITE 
P2-text 
E-text 


WRITE 
ATM-text 
READ P1 -text 
E-text (if 
V2BUGDCL) 


READ 

P1-text E-text 
WRITE 
ATM-text (if 
V2BUGDCL) 


WRITE 
E-text 
if (C)SYNTAX 
















00 
INT4 

No SYNTAX 
NoCSYNTAX 
No UNSTRING 


Purge 
TCLOSE 
Buffers 1,6 


TCLOSE 

(if 

V2BUGDCL) 

Buffers 2,3 


TCLOSE 

(if 

V2BUGDCL) 

Buffers 4,5 


















00 
INT4 

CSYNTAX 
No SYNTAX 
No UNSTRING 


Purge 
TCLOSE 
Buffer 1 


Buffers 2,3 


TCLOSE 

Buffers 4,5 


Purge 

Buffer 6 
















00 
INT4 

UNSTRING 
No SYNTAX 
No CSYNTAX 


Purge 

Buffers 1,6 


Purge 
TCLOSE 
Buffers 2,3 


Purge (if 

V2BUGDCL) 

TCLOSE 

Buffers 4,5 


















00 
INT4 

CSYNTAX 
UNSTRING 
No SYNTAX 


Purge 

Buffer 7 


Purge 
TCLOSE 
Buffers 2,3 


Purge (if 

V2BUGDCL) 

TCLOSE 

Buffers 4,5 


Purge 

Buffer 6 
















35 




WRITE 

P1A-text 

E-text 


READ 

Pi-text 
E-text 


















00 
INT35 




Purge 
TCLOSE 


TCLOSE 


















1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN, SYSLIB, and SYSTERM ell use buffer 6. 

Use of SYSUT1 : Phases 1 B, 22, 21 , 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 UseofSYSUT5: If the SYMDMP or TEST option is not in effect. SYSUT5 is not used. 

Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, r.o reading has been done since the TCLOSE in INT51. Otherwise, phase 6 

or 64 passes the E-text to phase 70 through c table in storage. If the table exceeds 256 bytes, phase 6 or G4 writes the E-text on SYSUT3.' 
S Use of SYSUT4: Phase 02 writes on SYSUT4 and phases 10 and 1 B read from SYSUT4 only it the LIB option is in effect. If the LIB option was not specified, that 

is, BASIS or COPY statements are not present in the source program, phases 10 and 1B read from SYSIN. 
6 0se bfSYSUTB: The SYSUT6 DDname rep!3ces SYSPRINT wi.=n t-VL is specified. Atter phase 80 processing, FIPS f laggsr output is directed to SYSPRINT or SYSTERM. 
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Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 | SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


00 
INT4 

SYNTAX 
(Phase 70 next) 








' Purge 
TCLOSE 
Buffer 6 
















45 
(UNSTRING) 


WRITE 
P2-text 
E-text 


READ 
ATM-text 
(if not 
V2BUGDLL) 


READ 
ATM-text 
(if not 
V2BUGDLL) 


WRITE 
E-text 
if (C)SYNTAX 
















00 
INT45 

SYNTAX 

(Phase 70 is 

next) 








Purge 
TCLOSE 
Buffer 6 
















00 
INT45 

CSYNTAX 


Purge 
TCLOSE 
Buffer 1 


TCLOSE 
(if not 
V2BUGDLL) 

Buffers 2,3 


TCLOSE if 
V2BUGDCL 

Buffers 4,5 


Purge 

Buffer 6 
















00 
INT45 

No SYNTAX 
No CSYNTAX 


Purge 
TCLOSE 
Buffers 1 ,6 


TCLOSE 
(if not 
V2BUGDLL) 

Buffers 2,3 


TCLOSE (if 
V2BUGDCL) 

Buffers 4,5 


Purge 
















50 


READ 
P2-text 
E-text 


WRITE 
Intermediate 

Procedure 

A-text 
Intermediate 

Optimization 

A-text 
Intermediate 

E-text 
P2-text 


WRITE 
, Final 

Optimization 
A-text 


WRITE 
E-text 
if (C)SYNTAX 
















00 
INT50 

SYNTAX 

(Phase 70 is 

next) 








Purge 
TCLOSE 
Buffers 3,4 
















00 
INT50 

No SYNTAX 


TCLOSE 
Buffers 4,6 


Purge 
TCLOSE 
Buffers 2,3 


Buffer 5 


Buffer 1 
















1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN, SYSLIB, and SYSTERM all use buffer 6. 

Use of SYSUT1 : Phases 1 B, 22, 21 , 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
*UseofSYSUT5: If the SYMDMP or TEST option is not in effect. SYSUT5 is not used. 
4 Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51. Otherwise, phase 6 

or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 
s Use ofSYSUT4: Phase 04 writes on SYSUT4 and phases 10 and 1 B read from SYSUT4 only if the LIB option is in effect. If the LIB option was not specified, that 

is, BASIS or COPY statements are not present in the source program, phases 1 and 1 B read from SYSIN. 
6 Use ofSYSUTG: The SYSUT6 DDname replaces SYSPRINT when LVL is specified. After phase 80 processing, FIPS f lagger output is directed to SYSPRINT or SYSTERM. 
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O 
Hi 



Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 


SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


.51 


WRITE 
Procedure 
A-text 


READ 
Intermediate 

Procedure 

A-text 
Intermediate 

Optimization 

A-text 
Intermediate 

E-text 
P2-text 


WRITE 
Final 

Optimization 

A-text 


WRITE 
E-text 
















00 

INT51 

(Phase 60 is 

next) 


Purge 
TCLOSE 
Buffers 4,3 


TCLOSE 
Buffer 2 


Purge 
TCLOSE 
Buffer 5 


Purge 
TCLOSE 
Buffer 1 
















00 

INT51 

OPT 

(Phase 62 is 

next) 


Purge 
TCLOSE 
Buffers 1 ,2 


Purge 
TCLOSE 
Buffers 3,4 


Purge 


















00 

INT51 

SYNTAX 

(Phase 70 is 

next) 






Purge 
TCLOSE 

Buffers 3,4 
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READ 
Procedure 
A-text 

TCLOSE 

WRITE 
DEF-text 


WRITE 
Debug-text 


READ 

Optimization 
A-text 

TCLOSE 

WRITE 

E-text if 
ERRTBL 
overflows, 

REF-text 


READ 

Data 

A-text 

E-text 

DEF-text 






WRITE 


WRITE 


WRITE 
Object 
Module 




WRITE 


00 

INT60 

No Phase 65 

No Phase 6A 






Purge 
TCLOSE 
Buffers 1 ,2 


TCLOSE 
Buffers 3,4 






Purge 


Purge 


Purge 




WRITE 
Purge 


00 

INT60 

Phase 65 

No Phase 6A 


Buffers 4,3 


Purge 
TCLOSE 
Buffers 2,5 


Purge 
TCLOSE 


TCLOSE 
Buffer 1 






Purge 








WRITE 
Purge 


1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN. SYSLIB, and SYSTERM all use buffer 6. 

2 Use of SYSUT1: Phases 1B, 22, 21, 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will neveY occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 Use of SYSUT5: If the SYMDMP or TEST option is not in effect, SYSUT5 is not used. 

4 Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effector if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51. Otherwise, phase 6 
or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 

5 Use of SYSUT4: Pnase 04 writes on SYSUT4and phases 10 and 1B read from SYSUT4 only if the LIB option is in effect. If the LIB option was not specified, that 
is, BASIS or COPY statements are not present in the source program, phases 10 and 1 B read from SYSIN. 

6 Use ofSYSUT6: The SYSUT6 DDname replaces SYSPRINT when LVL is specified. After phase 80 processing, FIPS flagger output is directed to SYSPRINT or SYSTERM. 
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Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 


SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


00 

INT60 

Phase 65 

Phase 6A 


Purge 

Buffers 4.3 


Purge 
TCLOSE 
Buffers 2,5 


Purge 
TCLOSE 


TCLOSE 

Buffer 1 






Purge 








WRITE 
Purge 


00 

INT60 

Phase 6A 

No Phase 65 


Purge 
TCLOSE 

Buffers 1 ,2 




Purge 
TCLOSE 
Buffers 3,4 


TCLOSE 






Purge 


Purge 


Purge 




WRITE 
Purge 


If OPT 
62 


READ 
Procedure 
A-text 




READ 

Optimization 
A-text 










WRITE 


WRITE 






00 
INT62 


TCLOSE 
Buffers 1,2 


TCLOSE 
Buffers 3,4 




Buffers 5 








Purge 


Purge 






63 


READ 
Procedure 
A-text 


WRITE 
Procedure 
A 1 -text 




WRITE 
Debug-text 






WRITE 










00 
INT63 


TCLOSE 
Buffer 1 


Purge 
TCLOSE 
Buffers 2,3 


TCLOSE 

Buffer 4 


Purge 
TCLOSE 
Buffer 5 
















64 


WRITE 

DEF-text, 
independent 
segments 
if SYMDMP 


READ 
Procedure 
A 1 -text 


WRITE 

E-text if 
ERRTBL 
overflows, 

REF-text 


READ 
Data 
A-text 
DEF-text 
E-text 








WRITE 


WRITE 






00 

INT64 

(Phase 65 is 

next) 


Purge 
TCLOSE 
Buffer 1 


TCLOSE 


Purge 
TCLOSE 


Buffers 2,3 






Purge 


Purge 


Purge 




WRITE 
Purge 


00 

INT64 

(Phase 6A is 

next) 


Purge 
TCLOSE 
Buffers 1,2 


TCLOSE 


Purge 
TCLOSE 
Buffers 3,4 








Purge 


Purge 


Purge 




WRITE 
Purge 


00 

INT64 

(Phase 70 is 

next) 


Purge 
TCLOSE 


TCLOSE 


Purge 
TCLOSE 
Buffers 1.2 


Buffers 3,4 






Purge 


Purge 


Purge 




WRITE 
Purge 


1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN, SYSLIB, and SYSTERM all use buffer 6. 

Use of SYSUT1 : Phases 1 B, 22, 21 , 25, and 3 use the dictionary. If dictionary spill occurs, SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and, therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 UseofSYSUT5: If the SYMDMP or TEST option is not in effect, SYSUT5 is not used. 
4 Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51. Otherwise, phase 6 

or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 
s Use of SYSUT4: Phase 04 writes on SYSUT4 and phases 10 and IB read from SYSUT4 only if the LIB option is in effect. If the LIB option was not specified, that 

is, BASIS or COPY statements are not present in the source program, phases 10 and 1B read from SYSIN. 
6 Use of SYSUT6: The SYSUT6 DDnames replaces SYSPRINT when LVL is specified. After phase 80 processing, FIPS flagger output is directed to SYSPRINT or SYSTERM. 
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Phase 


SYSUT1 2 


SYSUT2 


SYSUT3 


SYSUT4 5 


SYSUT5 3 


SYSIN 


SYSPRINT 6 


SYSPUNCH 


SYSLIN 


SYSLIB 


SYSTERM 


SYSUT6 


if 

FLOW 

STATE or 

SYMDMP 

65 


READ 

Independent 
segments if 
SYMDMP 


WRITE-READ 
if SYSUT5 
is assigned 
to tape 
device 




READ 
Debug-text 


WRITE 
DEBUG 
tables for 
SYMDMP 
only 






WRITE 


WRITE 








If no 

SXREF. 

XREF, 

00 

INT65 






TCLOSE 
if OPT 
Buffers 1,2 










Purge 


Purge 








If SXREF 

or XREF 

00 

INT65 


TCLOSE 
Buffers 1,2 




TCLOSE 

Buffers 3,4 










Purge 


Purge 








If SXREF 

or XREF 

6A 


READ 
DEF-text 




READ 
REF-text 








WRITE 








WRITE 




00 
INT6A 






TCLOSE 
if OPT 
Buffers 1,2 


Buffers 3,4 


















70 






READ 
E-text 


READ 4 
E-text 






WRITE 








WRITE 




00 
INT70 


CLOSE 


CLOSE 


CLOSE 


CLOSE 






CLOSE 


CLOSE 


CLOSE 




CLOSE 




80 


OPEN 
WRITE 
READ 
CLOSE 












OPEN 

WRITE 

CLOSE 








OPEN 
WRITE 
CLOSE 
if TERM 


OPEN 
READ 
CLOSE 


1 Numbers specified in INTxx routines indicate the buffers used by the next phase. SYSIN, SYSPRINT, SYSPUNCH, SYSLIN. SYSLIB. and SYSTERM all use buffer 6. 

2 Use ofSYSUTI: Phases 1 B, 22, 21 , 25, and 3 use the dictionary. If dictionary spill occurs. SYSUT1 is used to write the overflow. This will never occur after phase 3 since the dictionary is released at the end of phase 3. XDAP is a macro 

instruction that reads what has previously been written (spilled); XDAP writes directly from the dictionary to storage and. therefore, uses no buffer. After phase 3, SYSUT1 is available for use as a utility data set. 
3 Use ofSYSUT5: If the SYMDMP or TEST option is not in effect, SYSUT5 is not used. 
4 Reading by phase 70: Phase 70 only reads E-text from SYSUT4 if the syntax option is in effect or if phase 6 or phases 62, 63, and 64 have been bypassed, that is, no reading has been done since the TCLOSE in INT51 . Otherwise, phase 6 

or 64 passes the E-text to phase 70 through a table in storage. If the table exceeds 256 bytes, phase 6 or 64 writes the E-text on SYSUT3. 
s Use ofSYSUT* Phase 04 writes on SYSUT4 and phases 10 and 1 B read from SYSUT4 only if the LIB option is in effect. If the LIB option was not specified, that 

is, BASIS or COPY statements are not present in the source program, phases 10 and IB read from SYSIN. 
6 Use ofSYSUTB: The SYSUT6 DDname replaces SYSPRINT when LVL is specified. After phase 80 processing, FIPS flagger output is directed to SYSPRINT or SYSTERM. 
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Compiler Linkage t o Data Man agement 



Phase 00 does not use data management macro 
instructions for OPEN, CLOSE, TCLOSE, READ, 
and WRITE. To open files, phase 00 issues 
SVC 19; to close files, SVC 20; to close 
temporarily, SVC 23. To read and write, 
phase 00 updates the appropriate fields of 
the DCB and DECB, and then branches and 
links to the data management READ/WRITE 
routine. The address of this data 
management routine is picked up from the 
DCB. 

The interlude (INTxx) routines, which 
handle opening and closing of files, issue 
one SVC for all files to be opened or 
closed at a given time. Register 1 points 
to a list which gives the address of DCBs 
for all files to be included in this SVC. 
The last entry in the list has the 
high-order bit turned on to indicate 
end-of-list. 



Directing Er ror Mess ag es a nd Pro gres s 
Messa ges to the SYSTE RM Data S et 



If the TERM option is in effect, error 
messages are directed to SYSTERM as well as 
SYSPRINT (SYS0T6 for LVL option). However, 
if SYSPRINT cannot be opened or is a dummy 
data set, error messages are directed to 
SYSTERM only. 

In addition, if the TERM option is in 
effect, a progress message is written to 
SYSTERM (never SYSPRINT) by phase 00. The 
progress message states: "Release 2.0 
OS/VS COBOL IN PROGRESS." If errors have 
occurred, a message stating the number of 
errors and the highest severity code 
encountered during the compilation is also 
written. 



Seqm enta tion Operations 



When a segmented program is being compiled, 
phase 00 issues NOTE and POINT macro 
instructions for phases 51, 6, 62, and 63. 
Phase 51 keeps track of the sections of 
Procedure A-text that belong to each 
segment; phase 6 or phases 62 and 63 use 
the information passed to them by phase 51 
to construct the object module, segment by 
segment. 

In the P2-text processed by phase 51, a 
segmentation control break signals a 
section of text whose priority is different 
from that of the section just processed. 
SEGSAVE contains the relative track and 



cylinder numbers on SYSUT1 of the first 
record in the section. Phase 51 then calls 
the COS routine with a C1 in the XY 
parameters (see "Receiving Control from 
Another Phase" in this section for the 
meaning of X and Y) . In response to these 
parameters, the COS routine branches to the 
NOTE routine, which issues a NOTE macro 
instruction to retrieve the relative 
address on SYSUT1 of the record phase 00 is 
about to write (that is, for the next 
section) . The NOTE routine places the 
address in SEGSAVE, and phase 00 returns to 
phase 51 . 

Using the priority numbers in the SEGTBL 
table entries, phase 6 or phases 62 and 63 
first process all the sections for one 
segment, then all the sections for the 
next, and so on. Each time it picks up the 
SEGTBL entry for a new section of Procedure 
A-text, phase 6 or phases 62 and 63 call 
the COS routine with a value of 91 in the 
XY parameters. It also passes the relative 
track and cylinder for the new section in 
its SEGTBL table entry. In response to 
these parameters, the COS routine branches 
to the SEGPNT routine, which issues a POINT 
macro instruction to the SYSUT1 address of 
the section. It then reads the first 
record of the new section for phase 6 or 
phases 62 and 63. Subseguent calls to read 
records of the same section are made by 
phase 6 or phases 62 and 63 with a value of 
01 in the XY parameters. 

When the OPT option is in effect, phase 
62 reads, in order of ascending priority, 
the sections of Procedure A-text that 
belong to each segment to determine the 
main storage reguirements for the program. 



TABLE AND DICTIONARY HANDLING 



A portion of storage is reserved throughout 
compilation for tables built and used by 
the phases. All processing involving these 
tables (inserting new entries, releasing a 
table when no longer needed, etc.) is 
handled by the group of routines known 
collectively as TAMER. These routines are 
resident in phase 00. They are described 
in "Appendix A: Table and Dictionary 
Handling." 



COMMUNICATIONS AREA (COMMON) 



The communications area (COMMON) is 
resident in phase 00. It contains 
information to which all phases can refer 
directly. The format of COMMON is given in 
"Communications Area" in "Section 5. Data 
Areas." 
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SIMM-CHECKING COMPILATIONS 



An unconditional syntax-checking (SYNTAX) 
compilation or the production of an error 
(E) or disaster (D) level message during a 
conditional syntax-checking (CSYNTAX) 
compilation causes the compiler to produce 
no object code and to print out the 
appropriate messages on SYSPRINT (SYSDT6 
for LVL option) and/or SYSTERM. The 
CSYNTAX compilation, upon generating an E 
or D level message, becomes in effect a 
SYNTAX compilation and the SYNTAX switch in 
the PHZSA3 cell in COMMON is set on. After 
phase 22, any phase detecting a syntax 
error sets the ERRSEV cell in COMMON to the 
highest error severity level encountered. 

After phase 4, E-text is on SYS0T4. 
During INT4, phase 00 checks the SYNTAX 
switch. If it is on, phase 00 sets the 
value of LINKCNT to indicate that phase 70 
is to be executed next. The RDERRFIL bit 
in the SWITCH cell in COMMON is set on to 
indicate to phase 70 that E-text is to be 
read from SYS0T4. After phase 70 
processing, phase 00 either gives control 
to phase 80 if the LVL option is in effect 
or returns to the operating system via the 
routines described earlier in this section 
under "Returning Control to the Operating 
System," 

If the SYNTAX switch is off, processing 
continues with phase 50. Phase 50 writes 
E-text on SYSUT4 if the CSYNTAX option is 
in effect; the generation of an E level 
message causes the SYNTAX switch to be set 
on. During INT50, phase 00 performs the 
same processing if the SYNTAX switch is on 
as it does during INT4. If the SYNTAX 
switch is off, processing continues with 
phase 51. 



*If the TERM option is in effect and the 
permanent input/output error did not occur 
on a write to SYSTERM, the message is 
written to SYSTERM as well as the console. 
If the permanent input/ output error 
occurred on a write to SYSTERM and not 
SYSPRINT, the message is written to 
SYSPRINT (SYS0T6 for LVL option) as well 
as the console. 



Phase 51 processing for the CSYNTAX 
option is the same as phase 50 processing. 
If phase 51 detects no syntax, error which 
would cause an E level message, a full 
compilation is produced. 



TERMINAL ERROR CONDITIONS 



The following conditions will cause 
compilation to be abandoned. In each case, 
if NODOMP is specified, phase 03 is called 
to print an error message on the console or 
SYSPRINT (SYS0T6 for LVL option) ; phase 03 
then returns to phase 00, which returns to 
the operating system via the routines 
described earlier in this section under 
"Returning Control to the Operating 
System." 



1. 



A permanent input/output error is 
encountered on a device.* 



2. An invalid COPY or BASIS library name 
is encountered. 



3. TAMER cannot continue: 



© Larger region needed. 



© Compiler error.** 



© A table has exceeded the maximum 
permissible size.** 



o Fragmented storage.** 



**If the DUMP option is in effect, this 
error causes an ABEND with a dump. 
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PHASE 01 



Phase 01 (IKPCBL01) is logically a part of 
phase 00 , but is a separate load module 
because it is not required in storage 
throughout compilation. The functions of 
phase 01 are: 

1. To contain the installation default 
values of compilation parameters in a 
module separate from the actual 
initialization coding (phase 02 
contains the actual initialization 
coding) . 

2. To pass these default values of the 
compilation parameters, together with 
any values of the compilation 
parameters chosen by the user at 
compilation time, to phase 02. 



control card or that can be passed by the 
COBOL Prompter to the compiler if specified 
as operands of the COBOL command under TSO. 
These options can also be used in an 
ATTACH, LINK, CALL, or XCTL macro 
instruction. In addition, the macro 
instruction parameters can specify a change 
in the user data set names or an addition 
to the standard page heading for the output 
listing. (The standard page heading 
consists of a page number only.) Phase 01 
passes these parameters, together with 
their installation default values, to 
phase 02. 



RETURN FROM PHASE 02 



COMPILATION PARAMETERS 



When phase 00 links to phase 01, it passes 
the address of a parameter list that points 
to the compilation options, altered DD 
names, and augmented headings. The section 
"Introduction" in this publication explains 
the options that can be used on an EXEC 



Phase 01 is a macro instruction. When 
phase 02 has finished processing, it 
returns to phase 01, thereby restoring 
phase 01 registers and releasing phase 02 
storage. Phase 01 branches to phase 00. 
Phase 00 then issues a RETURN macro 
instruction for phase 01, which restores 
phase 00 registers and releases phase 01 
storage. 
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PHASE 02 



Phase 02 (IKFCBL02) is the initialization 
phase. It is logically part of phase 01 , 
which contains the installation default 
values of compilation parameters, but phase 
02 is a separate load module. The major- 
functions of phase 02 are: 

*> Processing the compilation parameters 
specified on the EXEC card or passed 
with the CALL, LINK, XCTL, or ATTACH 
macro instruction. (If the COBOL 
command is used to invoke the compiler, 
a LINK macro instruction is executed to 
pass control to the compiler.) 

o Determining buffer sizes for the 
compiler data sets for all phases. 



o Obtaining storage for tables, 
dictionary, and buffers. 



the 



o Entering information in COMMON to be 
used for statistics in the program 
listing. 

o opening all required data sets to check 
that they can be opened and to 
determine the block sizes specified by 
the user. 
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If augmented page headings aere given in 
a macro instruction, phase 02 records them 
for phase 00 so that it can set up the 
proper heading print format. 

If the data set names were changed by a 
LINK, ATTACH, or XCTL macro instruction, 
phase 02 changes the names in the DCB's. 

Phase 02 uses the control program to 
determine the date of compilation, which it 
records in COMMON. 



BUFFER SIZE DETERMINATION 



'• Processing for the BATCH option. 

o Building the table of COBOL space 
constants in phase 00, using the BLDL 
macro instruction which allows dynamic 
calculation of phase sizes. 

COMPILATION PARAMETERS 



Phase 02 sets switches in COMMON locations 
SWXTV2, LISTERS®, PHZSH, PHZSW1, PHZSE2, 
PHZSW3, and PHZSW4 for phase 00 to indicate 
which of the following options were chosen: 



ADV 






BATCH 


LIB 


SOURCE 


CLIST 


LOAD 


STATE 


COUNT 


LSTCOMP 


SUPMAP 


CSYNTAX 


LSTOHLY 


SXREF 


DECK 


LVL 


SYMDMP 


DMAP 


L120 


SYNTAX 


DUMP 






DYNAM 


L132 


SYSx 


ENDJOB 


NAME 


TERM 


FLAG 


NUM 


TEST 


FLOW 


OPT 


VBREF 


LANGLVL(1|2) 






LCOL1 


PMAP 


¥BSUM 


LCOL2 


QUOTE 


¥ERB 


LCPY 


RESIDENT 


XREF 


FDECK 


SEQ 


SWB 



The compiler uses six buffer areas. Figure 
5 shows, for each phase, the buffers used 
by the data sets active in that phase. 
Because buffers 1 through 5 are always used 
for utility data sets, they are of uniform 
size so that they can be used for different 
data sets from phase to phase. Buffer 6 is 
also used for a utility data set in phases 
20, 22, 21, 25, 50, and 51; therefore, it 
must be at least as large as the other 
buffers. Buffer 6 may need to be larger 
than the other buffers since in phases 10, 
12, 1B, 3, and 6 it is used for up to three 
double-buffered data sets. Note that in 
Figure 4 if the two buffer numbers are the 
same, the data set is single-buffered. 



Note : If the BATCH option has been 
specified, a seventh buffer is used. This 
buffer is used only by the SYSIN data set 
and is present throughout the compilation. 
It is necessary to save the input cards of 
subsequent compilations within a batch. 

Phase 02 determines the total buffer 
size available from the BUF option on the 
EXEC control card or in the COBOL command 
string. If BUF was not specified but SIZE 
was, phase 02 calculates BUF from the 
formulas 
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BUF = 1/4 (SIZE - 96 K). + 4K 

If neither BUF nor SIZE was specified on 
the EXEC control card or in the COBOL 
command string, phase 02 sets BUF equal to 
the default value specified at installation 
time. 

BUF is the total amount of storage 
available for buffers. To determine the 
buffer sizes from this value, phase 02: 

1 . Determines the block sizes of the user 
data sets by opening the data sets; 
or, if the block sizes have not been 
given on the DD cards or have been 
specified, incorrectly, assigns the 
following default sizes: 

o 80 bytes for SYSIN, SYSLIN, 
SYSPUNCH, and SYSLIB. 

© 121 bytes (133 if L132 is in effect) 
for SYSPRINT (SYSUT6 for LVL option) 
and SYSTERM. 

2. Using these block sizes, determines 
the reguired size of buffer 6 in 
phases 10, 12, 1B, 3, and 6, and 
chooses the larger of these sizes as 
the size of buffer 6. (If, for 
example, the default block sizes were 
assigned, the size of buffer 6 would 
be 804 bytes.) 

3. Subtracts the size of buffer 6 from 
BUF and divides the remainder equally 
among the other five buffers. 



card which is not a CBL card (COBOL options 
card) . Phase 02 then processes the options 
contained on all the CBL cards and alters 
switch settings in SWITV2, LISTERSW, PHZSW, 
PHZSW1 , PHZSU2, and PHZSW3 in COMMON. 
Phase 02 also saves the address of the 
first non-CBL card in COMMON location 
ADDRCARD and sets the BATCHSW switch in 
COMMON to hexadecimal •08» (CARDHELD) . For 
subsequent compilations in the batch, the 
COMMON location ADDRCARD contains the 
address of the next CBL card. After the 
first compilation, phase 02 tests the 
BATCHSW switch for a hexadecimal • 08 B and 
obtains the address of the CBL card from 
ADDRCARD and processes the options as 
described above. In addition, areas in 
phase 00 are initialized to their original 
values for subsequent compilations. 



ENTERING STATISTICAL INFORMATION IN COMMON 



In addition to the information stored in 
COMMON as a result of compiler option 
parameters, phase 02 stores other 
information in COMMON that it has 
determined during storage and buffer 
allocation. The total area to be used for 
buffers is stored in BUFSIZE. The total 
area available for compilation is stored in 
CORESIZE. Phase 00 uses the information in 
these cells, as well as the information in 
PHZSW, PHZSW1, PHZSW2, PHZSW3, CNTLINE, and 
SPACING (see "Compilation Parameters") to 
produce statistical data for the listing. 



4. Compares the size of buffer 6 to 
buffers 1 through 5. If buffer 6 is 
smaller, it makes all the buffers the 
same size, that is, one-sixth of BUF. 

5. Finally, to ensure that the determined 
buffer size is not greater than that 
which the input/output devices can 
handle, the maximum block size 
permitted on the device is determined 
via a DEVTYPE macro instruction and 
compared with the calculated buffer 
sizes. The smaller of these two is 
chosen as the buffer size. 

Phase 2 records the buffer sizes in 
phase 00 buffer control blocks. Phase 00 
uses the buffer control blocks to keep 
track of how much of the buffer has been 
used in blocking and unblocking records. 



PROCESSING FOR THE BITCH OPTION 



PREPARING FOR FEDERAL INFORMATION 
PROCESSING STANDARD (FIPS) FLAGGING 



When the LVL option is specified, phase 02 
enters the level character in the FIPLVL 
cell in COMMON to indicate to phase 80 what 
level of the FIPS standard is to be flagged 
(A = low; B = low intermediate; C = high 
intermediate; D = full standard) . Phase 02 
also: 

© Sets the LIST bit in COMMON to indicate 
that the source option is in effect. 

© Replaces the SYSPRINT DDname with the 
SYSUT6 DDname. (This data set receives 
the source listing that is used for 
input to phase 80 for FIPS flagging.) 

© Opens the DCB for SYSUT6, or, if the 
OPEN is unsuccessful, cancels the LVL 
option o 



If the BATCH option has been specified and 
if the compilation is the first within the 
batch, phase 02 reads until it encounters a 



© Moves the SYSUT6 DDname (or its 

alternate DDname) and the DDname for 
the FIPS output file into the DDNTBL 
table. 
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INFORMATION RETURNED TO PHASE 00 



Hhen phase 2 has finished processing, it 
returns to phase 01 , restoring phase 01 
registers and releasing phase 02 storage. 
Phase 01 then branches to phase 00, 

Phase 02 passes the following 
information back to phase 00: 

K DCBs modified by the compilation 
parameters. 

2. The switches indicating the 
compilation options. 

3. The LINECNT indication. 

4. An indication of the difference 
between the maximum amount of storage 
reguested for tables, the dictionary, 
and buffers, and the amount actually 
received. 

5. The address of the buffer area and the 
buffer lengths. 

6. The date of the compilation. 



ERROR CONDITIONS 



Phase 02 detects and handles the following 
error conditions: 

1. A data set cannot be opened. If the 
data set is SYSLIB, when required for 
any compiler data set, compilation is 
terminated. If the data set is SYSIN, 
SYSUT1, SYSUT2, SYSUT3, or SYSUT4, a 
disaster message is written and 
compilation is terminated. If the 
data set is SYSUT5, a warning message 
is written and the symbolic debug 
(SYMDMP) option is canceled. If the 



data set is SYSLIN, when the LOAD 
option is requested, a warning message 
is written, the LOAD option is 
canceled, and compilation continues. 
If the data set is SYSPONCH, when the 
DECK option is requested, a warning 
message is written, the DECK option is 
canceled, and compilation continues. 
If the data set is SYS0T6 when the LVL 
option is specified, a warning message 
is written and the LVL option is 
canceled. If the data set is 
SYSPRINT, when the NOTERM option is 
requested, a disaster message is 
written to the console and compilation 
is terminated. However, if SYSTERM 
can be opened when SYSPRINT (SYSUT6 
for LVL option) cannot be opened, a 
warning message is written to the 
console and compilation continues. If 
the data set is SYSTERM when the TERM 
option is requested, phase 02 checks 
to see if SYSPRINT is usable. If 
SYSPRINT can be opened and it is not a 
dummy data set, a warning message is 
written to both SYSPRINT and the 
console, the TERM option is canceled, 
and compilation continues. However, 
if the TERM option is requested but 
SYSTERM cannot be opened and SYSPRINT 
cannot be opened or is a dummy data 
set, a disaster message is written to 
the console and compilation is 
terminated. 



Specified storage device block size is 
larger than the buffer space 
allocated, or is not an even multiple 
of the record length. The block size 
is set to equal the length of one 
logical record, and a message 
indicating this is printed. 

Invalid or insufficient SIZE or BUF 
parameter. Warning only: an 
alternate value is chosen. 
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PHASE 03 



Phase 03 (IKFCBL03) is logically part of 
phase 00, but is a separate load module 
because it is required to be in storage 
only if a terminal error condition occurs 
(see "Terminal Error Conditions" in the 
section "Phase 00"), Phase 03 is linked to 
by phase 00 whenever a SYNAD routine exit 
is to be taken , when TAMER cannot continue, 
or when phase 00 encounters an invalid COPY 
or BASIS library name. 

The functions of phase 03 are to issue 
error messages and to indicate to phase 00 
that compilation is to be terminated. 



OBTAINING AND PRINTING ERROR MESSAGES 



Before linking to phase 03 g phase 00 places 
the address of a one-byte error code in the 
KTRMNATE cell in COMMON. It also saves the 
contents of registers and 1 in the 
SYNADR01 location in COMMON, these are 
needed for the SYNADAF macro instruction. 
The following codes are used: 



Code 
(hexadecimal) 
00 
01 



,02 
06 

l 07 
08 



09 
0A 
0B 



Meaning 

SYNAD exit for SYSLIB 

SYNAD exit for all data 

sets except SYSLIB and 

SYSTERM 
SYNAD exit for SYSTERM 
Larger region needed 
Compiler error 
A table has exceeded the 

maximum permissible 

size 
Fragmented storage 
Invalid BASIS request 
Invalid library name 



Phase 03 examines the code. If a SYNAD 
exit is indicated, registers and 1 are 
loaded from COMMON and a SYNADAF macro 
instruction is issued to obtain the 
input/output error message. This message 
with a COBOL prefix is then written out on 
the console through the execution of a WTO 
(write-to-operator) macro instruction. 



Phase 03 next calls phase 00 to print 
out the message on SYSPRINT and/or SYSTERM 
according to the following conditions. If 
the error occurred on the SYSTERM data set, 
the message is written out on SYSPRINT if 
the SOURCE option is in effect. If the 
error occurred on the SYSLIB data set, the 
message is written out on SYSPRINT if the 
SOURCE option is in effect and on SYSTERM 
if the TERM option is in effect. If the 
error occurred on a data set other than 
SYSLIB or SYSTERM, the message is not 
written out on SYSPRINT, but is written out 
on SYSTERM if the TERM option is in effect. 



If a SYNAD exit is not to be taken, 
phase 03 obtains the text and length of the 
appropriate message and then calls phase 00 
to print out the message on SYSPRINT and/or 
SYSTERM depending upon whether the SOURCE 
and/or TERM option is in effect. 



*I.f the DUMP option is specified, phase 00 
issues an abend with dump instead of 
linking to phase 03. 



RETURNING CONTROL TO PHASE 00 



After printing the error message, phase 00 
returns to phase 03. Phase 03 sets LINKCNT 
to 2 more than the value assigned to phase 
70 and sets the BATCHSW switch in COMMON to 
indicate that compilation of other programs 
in the batch is to be bypassed. Finally, 
phase 03 returns to phase 00 with an 
end-of-job (X^BO 1 ) calling code. 



50 Section 2. Method of Operation 



Licensed Material - Property of IBM 



PHASE 04 



Phase 04 (IKFCBL04) implements the COPY 
language of American National Standard 
COBOL, X3. 23-1974, by allowing insertion of 
prewritten COBOL entries * which reside in a 
library, into a COBOL source program at 
compile time, COPY also allows the option 
to alter these prewritten entries at 
compile time a 

Phase 04 reads the user-created COBOL 
libraries and passes the entire source 
program to phases 10 and 1 B, or to phase 05 
if LSTCOHP or LSTONLY is in effect. The 
LIB option must be in effect if the BASIS 
or COPY facility is used. 



f Input 



The input to phase 04 can be source input 
text and library text. 



[IAIN FLOW OF CONTROL IN PHASE 04 



Phase 04 invokes the PH04INIT subroutine to 
initialize variables, allocate work area 
storage and build the DCBTBL, then reads 
the initial SYSIN tecord. 

If BASIS is desired, phase 04 invokes 
the BASISRTN subroutine to read and update 
the BASIS library from SYSLIB. The 
resulting source is written to SYSUT2. 

Phase 04 next invokes the COPYRTN 
subroutine to scan SYSIN or SYSUT2 (if 
BASIS) source for COPY statements. COPYRTN 
invokes COPYROC to syntax check a COPY 
statement and to read and update the source 
from the identified COPY library member. 

When source end-of-file is reached, 
phase 04 closes any COPY libraries that 
have been opened. 



I output 



During BASIS processing SYSUT2 is used as 
output during BASIS processing. This is 
then read as source to process any COPY 
statements. SYSUT4 is used as final output 
from phase 4- If Lister is not to be 
invoked, a source listing is produced on 
SYSPRINT. 



j ERROR CONDITIONS 



Phase 04 contains text for error messages 
and produces the error messages. It 
produces E-text on SYSUT3 as it scans the 
source program listings and analyzes 
syntax* 



| TABLES USED 



Phase 04 creates the DCBTBL which contains 
one entry for each unique library name. 
Upon completion of processing, phase 04 
deletes DCBTBL, 



PROCESSING ROUTINES USED 



BASISRTN; The BASISRTN routine merges 
source from the BASIS library specified 
with the users source from SYSIN, matching 
serial numbers appearing on the BASIS 
INSERT and DELETE cards with those in 
columns 1 through 6 on the BASIS library 
source. When the merge is complete, SYSUT2 
is TCLOSEd and made ready for COPYRTN 
processing, and SYSLIB is closed. 

COPYRT N: The COPYRTN routine reads all 
source input looking for a COPY verb that 
is not part of a NOTE, comment line, or 
comment entry. Whenever COPY is found, 
COPYRTN invokes COPYROC to process the 
statements. When source end-of-file is 
reached, COPYRTN returns to the phase 04 
controller routine for phase termination. 

COPYPROCs COPYROC validates the COPY 
statement. 

The library is identified and opened. 
The REPLACING arguments are passed and 
saved in a work area. Any syntax or OPEN 
errors will result in the COPY statement 
being nullified. If the COPY statement has 
no errors, the COPY library is read and the 
source updated according to the REPLACING 
rules. At library end-of-file, COPYROC 
returns control to COPYRTN. 
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PHASE 05 



Control is given to phase 05 (IOCBL05) 
only when the Lister option (LSTONLY or 
LSTCOMP) has been specified. Phase 05 is 
the Lister scan phase, which analyzes the 
syntax of the COBOL source program. This 
phase inserts syntactic markers between the 
various elements of the source program. 
The syntactic markers are used by 
subsequent phases to produce the 
cross-references and to reformat the 
program for the Lister option listing. 

Phase 05 is divided into major functions 
that: 

© tokenize the output (COBOL source) into 
syntactic units or words (the SCAN and 
READ routines) 

® decode Y instructions from the YBGN 
table 

© place COBOL source and inserted 

syntactic markers into a large body of 
contiguous storage known as the 
HOLDAREA (in order that delayed 
recognition of COBOL statements can 
occur) 

© output COBOL source and syntactic 
markers in the correct sequence from 
the HOLDAREA to SISUT2 



Input 



output listing. Also, any E-text read from 
SYS0T3 is written on SYSUT2. 



| SYNTAX LANGUAGE SUMMARY 



The syntax analysis done by Phase 05 is a 
table-driven process whereby the table 
entries (called Y- instructions in the Phase 
05 assembler listing) control the 
recognition of COBOL source and resulting 
generation of phase 05 output. 



[O] p[[A[B]] 


( Reserved word | 

©| Punctuation / 

\ Operand term J 


G[n] * Text-type byte 
M[n] * Modifying byte 
C n * 


(see Note 3) 




(see Note 5) 




® Clause name 


X * Exit routine name 


[0] [N] [1] / [ 


[ number of items in clause | 
( name of first statement beyond J 


(see Note 4) 





If NOLIB is in effect, the input to phase 
05 is the COBOL source program. Input can 
be read from the card reader or the system 
input device. If COPY/BASIS is in effect, 
the input is passed from phase 04 on SYSUT4 
(source with COPY/BASIS resolved) and on 
SYSUT3 (E-text) . 



Output 



Notes ; 

1. Syntax language is written as a 
sequence of statements, optionally 
named, each of which contains a 
sequence of items separated by commas., 

2. Syntax language items perform tests, 
define clauses, or control generation 
These functions are denoted by an 
infixed period, slash, or asterisk, 
respectively. 



The output from phase 05 is written on 
SYSUT2. The output consists of the COBOL 
source program with syntactic markers 
inserted to identify the various elements 
of the program. Syntactic markers indicate 
such items as new statement, reference 
type, level number, indentation, and 
qualifiers. If phase 05 detects syntax 
errors, the output also includes error and 
recovery markers, to indicate that the 
errors are to be identified in the Lister 



Tests may be: 

optional (brackets) 

W testing reserved words 

P punctuation 

T generic terms 

For example, DATANA^E, ALPHALIT, or 
"clauses" (nul) , such as "identifier" 
(IDFR) , and test may specify A margin 
(A), B margin (B) , or both (AB) . 
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4. Clause definition corresponds to the 
COBOL use of brackets, braces, and 
elipses: 

is optional (brackets) 

N may be repeated (elipses) 

1 select only one (braces) 

Information after the slash specifies 
end-of-clause; if omitted, the end of 
the current statement is assumed. 

5. Generation (of IPTEXT) is implied by 
successful tests, and is explicitly 
ordered by G, the type-byte implies 
the length. M modifies one byte of 
already generated text. C changes an 
index to the current point of 
generation for possible subseguent use 
by M or C commands. X causes 
execution of an exit routine. 

6. Items in general return results in 
gua ternary logic. "True" means a 
positive identification, "false" means 
a clear failure, "maybe" results from 
generation or from a failed optional 
test, and "disaster" results from a 
"true" test followed by a "false" 
within a clause where all items must 
be found. 



ERROR CONDITIONS 



| Phase 05 terminates upon detecting a syntax 
error that it detects in the COBOL source 
program. When such an error is detected, 
phase 05 issues an error flag to signal 
phase 08 that the following source cards 
are to be passed on without processing. 
Phase 05 then treats the balance of the 
program as comment cards. 

In addition to the condition mentioned 
above, unusual termination of phase 05 can 
occur if the source program contains: 

• Too many (approximately 80 or more) 
consecutive ^-comments cards. 

• Too many (approximately 100 or more) 
consecutive blank cards. 

If one of the above two conditions (of 
phase 05) occurs, the file written on 
SYS0T2 is incomplete. 
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PHASE 06 



Phase 06 (IKFCBL06) , the Lister sort phase, 
inserts cross-reference information into 
the source program. Phase 06 makes two or 
more passes of the file created by phase 
05, Based on the syntactic markers 
contained in the file, this phase inserts 
pointers into the source program as 
follows: 

• At the place of definition of a name, 
pointers to the places where references 
to that name occur. 



Input 



The input for the first pass of phase 06 is 
the file written on SYSDT2 by phase 05. 
Input for subsequent passes of phase 06 is 
the output of the previous pass. That is, 
input is read alternately from SYSUT2 and 
SYSUT3 (beginning with SYSUT2) . 



© At the places of reference, pointers to 
the place of definition. 



During each pass 
resolves references 
the source program; 
depends on the amoun 
and the number of cr 
processed. A partia 
definitions is used 
dictionary is contin 
new definitions as s 
and deleting definit 
completely processed 
needed. 



of the file, phase 06 
and merges them into 
the number of passes 
t of storage available 
oss~ references to be 
1 dictionary of all 
by all passes. The 
ually updated by adding 
pace becomes available 
ions that have been 
and are no longer 



Out put 



The output of phase 06 is written 
alternately on SYSUT3 and SYSUT2i Output 
of the first pass of phase 06 is always 
written on SYSUT3 and output of the last 
pass is always written on SYSUT2. The 
output file consists of the source program 
with cross-reference information embedded 
in it; the contents of the file are printed 
by phase 08. 
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PHASE 08 



The functions of phase 08 (IKFCBL08) are as 
follows: 



• An internal card-image COBOL source 
program 



o Print the first page (preface) of the 
Lister listing 

© Print the body of the Lister listing 

o Depending on the options specified 

— Punch the reformatted source program 
deck on SYSPONCH 

— Pass the reformatted source program, 
via SYSUT4 to phase 10 for 
compilation 

— Write COPY/BASIS- related E-text on 
SYSUT3 



Input 



For the preface, phase 08 uses no input. 

For the remainder of the listing, phase 
08 reads input from SYSUT2. Input consists 
of the source program with embedded 
cross-reference information from phase 06. 



Output 

The output of phase 08 consists of: 
© The preface which describes 

— The format of the listing 

— The use of statement numbers 

— The classification of references 

— The use of footnotes in the listing 

— The method of indentation 

— The reformatted deck that can be 
obtained 

— The summary listing 

© The Lister option listing 



o A reformatted source deck. 



The Lister option preface and listing 
are printed on SYSPRINT. The internal 
card-image source program, which may serve 
as input for subsequent compilation, is 
produced on SYSUT4 if the LSTCOMP option is 
in effect. The reformatted source deck is 
produced on SYSPUNCH if the Lister FDECK 
option is in effect. 



Pr oces sin g 



From the source program with embedded 
cross-reference information, phase 08 
builds an entire page in storage. The 
phase reformats the source program and 
creates footnotes as required. Hhen the 
optimum place for a new page is reached, 
phase 08 prints the created page on 
SYSPRINT and then deletes the page from 
storage. The process is repeated until all 
data from SYSUT2 has been processed. To 
produce the summary listing, phase 08 
positions SYSUT2 at the beginning and reads 
it again. 



ERROR CONDITIONS 



It is possible that some footnotes on some 
COBOL programs may be lost. If a 
particular COBOL program requires a very 
large number of footnotes, there may not be 
enough storage space to contain the 
complete footnote table. In those cases, 
some of the footnotes that could be printed 
in the Procedure Division of the Lister 
will be handled as ordinary data 
references, rather than as footnotes. 

Upon encountering the error flag, phase 
08 issues a message informing the user that 
Lister processing has terminated because of 
a source syntax error. The balance of the 
program is then printed (and passed on 
SYS0T4, if LSTCOE3P) without reformatting or 
cross-referencing) . 
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PHASE 10 



Phase 10 (I&FCBL10) reads the source 
statements in the Identification, 
Environment, and Data Divisions. As it 
reads the card images of the source 
program, it performs the following major 
functions: 



1. Storing information from the 

Environment and Data Divisions in the 
form of Data IC-text and as entries of 
tables supplementing the text (see 
"Section 5. Data Areas" for formats). 



Sorting all other significant 
information in other tables and in 
cells of the COMMON communications 
area (see "Section 5. Data Areas" for 
format) . 



3. Analyzing the syntax of source 
statements. 



Writing each statement on SYSPRINT as 
part of the source {program listing, if 
the user specified the SOURCE option. 



MAJOR WORKING ROUTINES 



There are three routines in phase 10 that 
are used extensively by more than one of 
the division processing routines. These 
are the GETDLM, GETWD, and GETCRD routines. 



GETDLM ROUTINE 



The major functions of the GETDLM routine 
are: 

® Searching for delimiters (division 
headers, level numbers, etc.) and 
passing control to the proper division 
routines. 

o Recognizing literals that are level 
numbers and encoding them as such. 

© Causing termination of phase 10 when it 
recognizes the Report Section, the 
Procedure Division header, or 
end-of-file on the input device. 



Checking for the CBL card, if the user 
specified the BATCH option. When the 
CBL card is found, phase 10 sets on 
the hexadecimal "08' (CARDHELD) and 
hexadecimal • 40 1 (END FOUND) values in 
the BATCHSW switch in COMMON and 
stores the address of the CBL card in 
COMMON location ADDRCARD. 



These functions are performed under the 
control of three major working routines and 
three division-processing routines. Among 
the working routines, GETDLM supervises the 
division processors and GETWD and GETCRD 
supply them with input. Among the division 
processors, IDDSCN processes the 
Identification Division, ENVSCN the 
Environment Division, and DDSCN the Data 
Division. 

Syntax analysis, although not 
specifically described here, is performed 
as part of division processing. It 
includes such functions as checking for 
division headers and the proper position of 
words and clauses. If user errors are 
detected, the division processors call 
routines of the generic name MSGxxx (where 
xxx is the message number) to generate 
E-text. 



GETWD ROUTINE 



The major functions of the GETWD routine 
are: 

® Getting a logical unit from the input 
card provided by the GETCRD routine, 
identifying and encoding it, and 
sending it to the calling routines for 
processing. A logical unit is defined 
as all the characters between one blank 
and the next. 

® If the NUM compiler option is not in 
effect, generating a card number for 
each input card, starting with 1 and 
(except for Report Writer statements) 
incrementing by 1. If the NUM compiler 
option is in effect, the user- specified 
card number is converted to binary. In 
either case, the current card number is 
kept in a three-byte cell labeled 
CURGCN and in the COMMON cell CURCRD. 
If the STATE, TEST, or SYMDMP option 
and the NUM option are in effect, a 
warning (W) level message is issued if 
card numbers are found to be out of 
sequence. Beginning with the first 
out-of-seguence card number, phase 10 
resequences the card numbers, 
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incrementing by one, until , and unless , 
the source card numbers fall within the 
ascending seguence again. 

© Ensuring that the next logical unit is 
valid for the division being processed. 

Each logical unit is analyzed and encoded 
into internal phase 10 code which tells the 
processing routine what type of item it is 
(COBOL word, gualified EBCDIC name, etc.). 



then branches to the routines that process 
them. These routines produce the file 
definition portion of Data IC-text (see in 
"Section 5. Data Areas"), which will be 
combined with the data definition portion 
later in phase 10. 



CONFIGURATION SECTION 



GETCRD ROUTINE 



The GETCRD routine gets the next card image 
according to the user's options and writes 
a line on SYSPRINT if the SOURCE option was 
requested. If the LIB or LSTCOMP option is 
in effect, the source program is read from 
SYSUT4. 

The GETWD and GETCRD routines are also 
used by phases 1B and 12. 



IDENTIFICATION DIVISION 



The Identification Division scan routine 
(IDDSCN) is entered immediately after the 
phase 10 initialisation routines. The 
input is scanned for an Identification 
Division header. When it is encountered, 
the cell for the next logical unit is 
filled by the GETWD routine and checked to 
determine whether it is PROGRAM-ID. If it 
is, the program- name is saved in the PROGID 
cell of COMMON (see "Section 5. Data 
Areas") to be used later either as the 
CSECT name of the object module or to form 
the names of segments in a segmented 
program. 

After the PROGRAM-ID (if any) has been 
saved and if the SOURCE option was 
specified, the Identification Division is 
written on SYSPRINT. If DATE-COMPILED is 
included, the information that follows it 
is deleted, and the current date is 
inserted from COMMON. 

When another division header is 
encountered by routine GETDLM, control 
passes to the proper division scan routine. 



ENVIRONMENT DIVISION 



When the Environment Division header is 
encountered, the Environment Division scan 
routine (ENVSCN) searches for the 
Configuration and Input-Output Sections and 



The OBJECT -COMPUTER paragraph, including 
the SEGMENT-LIMIT clause, and the 
SPECIAL-NAMES paragraph are processed. 



SOURCE-COMPUTER. Paragraph; If the WITH 
DEBUGGING MODE clause is specified, the 
V2BUGON switch in COMMON will be set on. 

OBJECT-COMPUTER Paragraph; If the 
computer-name specified is IBM-370 
[-model- number ], the S370IN switch in the 
PH1BYTE cell in COMMON is set to 1. 

If PROGRAM COLLATING SEQUENCE, save the 
name to be checked for during SPECIAL-NAMES 
processing. 

SEGMENT-LIMIT Clause; When the priority 
number specified is less than 50, this 
number is stored in the SEGLMT cell of 
COMMON. If no SEGMENT-LIMIT clause is 
specified, or if the value exceeds 49, 
SEGLMT is set to 49. 

SPECIAL- NAMES Paragraph; The SPNSCN 
routine processes the SPECIAL-NAMES 
paragraph. 

CURRENCY-gIGN Clause ; The literal 
specified is checked for validity (based on 
the setting of LANGLVL) and then stored in 
the CURSGN cell of COMMON. Thereafter, 
whenever phase 20 scans the PICTURE clause, 
it recognizes the literal as the currency 
sign. 

DECIMAL- POINT Clause; A code is entered in 
the COMMAD cell of COMMON. Thereafter, 
when phases 10, 12, and 1B scan numeric and 
floating-point literals, commas instead of 
periods are recognized as decimal points. 

System-name Is Mnemonic-name; An entry is 
made in the SPNTBL table for each 
mnemonic-name, and in the ALPHTRL for each 
alphabet-name. These table entries are 
used by phase 1B in processing the 
Procedure Division. When phase 1B scans 
ACCEPT, DISPLAY, or WRITE statements^ it 
replaces any mnemonic-names with the proper 
system-name by checking the SPNTBL table. 
When it processes any SORT or MERGE verb 
with COLLATING SEQUENCE specified, it 
checks the ALPHTBL for a valid name. 
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INPUT-OUTPUT SECTION 



The routines that process the Input-Output 
Section build and use the ENVTBL and QNMTBL 
tables. The QNMTBL is a table of 
variable-length names, with pointers to 
each of its entries in the appropriate 
fields of the ENVTBL entries. These tables 
are released later in phase 10. Formats of 
these tables are given in "Section 5. Data 
Areas. " 



FILE-CONTROL, Paragraph 



The SELSCN routine processes the SELECT 
clauses and produces partial Data IC-text 
(see "Section 5. Data Areas") from the 
information obtained. At the end of 
Environment Division processing, the text 
is in the form of ENVTBL entries, one for 
each SELECT clause in the source program, 
and contains only file information. 
Subsequent Data Division processing uses 
the ENVTBL entries for the completion of 
Data IC-text (see "File Section" in this 
chapter) . The text itself is translated 
into Data A-text in phase 21 and is further 
processed in phase 6 or 64. 

For each SELECT clause, the file-name 
and other pertinent information are entered 

in the ENVTBL table. Variable-length names 
are entered in QNMTBL? pointers to the 
QITHBTL entries are placed in the 

appropriate ENVTBL fields. 



For FILE, STATUS C 
SELSCN passes contro 
routine to eater the 
into the QNMTBL and 
QNMTBL in the cor res 
field. A correspond 
on in the ENVTBL to 
STATUS clause has be 



lause processing, 
1 to the file status 

FILE STATUS dataname 
to set a pointer to 
ponding ENVTBL table 
ing bit is also turned 
indicate that a FILE 
en specified. 



For PASSWORD clause processing, SELSCN 
passes control to the password routine to 
enter the password into the QNMTBL and to 
set a pointer to QMTBL in the 
corresponding ENVTBL table field. A 
corresponding bit is also turned on in the 
EMVTBL to indicate that a PASSWORD clause 
has been specified. 

The ALTSCN routine gains control from 
SAENT whenever ALTERNATE is found in a 
SELECT statement. ALTSCN first tests the 
FRSTALT bit switch, checking for ALTERNATE 
RECORD KEY under current SELECT. For all 
ALTBRIATE RECORD KEY. clauses, CHKSAR enters 
the data-name in QNMTBL. If the DUPLICATES 
option is present, a bit is turned on in 
INDTBL for that key. when another 
ALTERNATE clause is found in NXTCOD, a 



chain bit is turned on in the INDTBL entry. 
Control is returned to SAENT after FRSTALT 
is reset. 



I-O-CONTRO L Para graph 



When the ENVSCN routine encounters the 
I-O-CONTROL paragraph header, it calls the 
pertinent routines for processing the SAME, 
RERUN, and APPLY clauses. 

SAME Clause: For each clause encountered, 
the files named are entered into one of the 
following tables : 

Clause Table 

SAME AREA SATBL 

SAME RECORD/AREA SRATBL 

At the end of Environment Division 
processing, a unigue number is assigned to 
each clause of each type (by means of 
incrementing counters) . For example, the 
first SAME AREA clause is assigned the 
number 1 , the second SAME AREA clause is 
assigned 2, and so forth™ Similarly, the 
first SAME RECORD AREA clause is assigned 
1, the next clause 2, and so forth. 

The ENVTBL table is then searched for 
all the files named in SAME clauses, and 
appropriate numbers are inserted into these 
ENVTBL entries to identify the SAME clauses 
in which the files are named., For example, 
if three SAME RECORD AREA clauses were 
specified, each file named in the first 
clause would have "1" in the SAME RECORD 
AREA field of its ENVTBL entry; each file 
named in the second SAME RECORD AREA clause 
would have "2" in that field, and so forth. 
The appropriate switches are also set in 
the ENVTBL entries. At this time, the 
SATBL and SRATBL tables are released and 
may be overlaid by new tables. 

RERUN Clause; 

Format 1; An entry for the file named 
is made in the CKPTBL table and a bit is 
set in the entry to indicate whether the 
"END OF REEL/UNIT" or the "integer-1 
RECORDS" option was specified in the RERUN 
clause. Both options can be applied to one 
file, and, in this case, two entries are 
made in the CKPTBL table. In the ENVTBL 
entry for the file, the CKPTBL bit is set 
to 1 and a pointer to the first of two 
possible entries in the CKPTBL table is 
inserted. A pointer to the second entry, 
if specified, is entered in the first entry 
in the CKPTBL table. Later when the FD 
statement for this file is scanned, the 
CKPTBL bit is tested. If it is 1 and if 
the "integer-1 RECORDS" option was 
specified in the RERUN clause, the RERUN 
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bit in the PIOTBL table entry for the file 
is set to 1. Phase 1B uses this bit in 
processing READ and WRITS statements. 

F ormat , 2 (SORT- RERUNS : An entry is made 
in the CKPTBL table, with the INTEGER field 
set to 0. The RERUNN switch in COMMON is 
set. 

APPLY Clause : For each option, a switch is 
set in the ENVTBL entry for the file-name 
specified in the clause. 

Option S witch Set 

1 WRITE- ONLY 

2 CORE-INDEX 

3 RECORD-OVERFLOW 

4 REORG-CRITERIA 



Data Division processing uses the ENVTBL 
table and builds the FNTBL, 0D2TBL, PIOTBL, 
QNMTBL, RCDTBL, and TOTTBL tables. All of 
these tables (see "Section 5. Data Areas" 
for formats) except the ENVTBL table are 
passed to phase 1B. The PIOTBL table is 
also used by phase 21, the 0D2TBL table by 
phases 22 and 25, and the TOTTBL table by 
phase 22. The PIOTBL table indicates which 
OPEN options and input/output verbs are 
used for each file; and the 0D2TBL table is 
used to generate Q-routines (object module 
subroutines used to calculate variable 
lengths and locations for 
OCCURS... DEPENDING ON fields). 



Note that the data-name is entered in 
the QNMTBL table, and a pointer to the 
QNMTBL entry is placed in the ENVTBL entry 
for this file. 



MU L T IPLE FILE TAPE Clause : 
treated as comments. 



clause is 



FILE SECTION 



When the File Section header is 
encountered, the DDSCN routine calls the 
appropriate routines to process FDs, SDs, 
and LDs in the source program. 



DATA DIVISION 



File Descriptio n Entries 



When the Data Division header is 
encountered, the GETDLM routine calls the 
DDSCN routine, which in turn calls the 
routines that process the File, 
Working-Storage, Linkage 9 and Communication 
Sections. If a Report Section is 
encountered, phase 00 is called to load 
phase 12, which processes the Report 
Section. 

As the Data Division source statements 
are encountered, the following steps are 
taken to form Data IC-text: 

1. File and record information is entered 
into a work area called ICTEXT. 



Each File Description (FD) entry is 
analyzed, and information from the clauses 
is entered in the work area ICTEXT. (The 
REPORT clause requires special processing; 
it is described in the chapter "Phase 12.") 
A blank PIOTBL entry is created, and 
pointers to this entry are placed in the 
FNTBL and ENVTBL tables. The file-name 
from the FD is entered in the FNTBL table 
entry and the LABEL RECORDS switches are 
set. The ACCESS RANDOM and mass-storage 
switches are picked up from the ENVTBL 
entry. Variable-length names such as LABEL 
RECORD names are entered in the QNMTBL, and 
pointers to these entries are placed in the 
work area. 



2. Entries are made in the OD2TBL, 
TOTTBL, QNMTBL, FNTBL, and RCDTBL 
tables. 

3. Information in the work area is merged 
with the corresponding ENVTBL entry 
(for file descriptions) . 

4. Data IC-text for FDs, LDs, SDs, and 
CDs is generated and written on 
SYSUT3. At this time, space is 
reserved in the PIOTBL table. 



Completed Data IC-text is used in phases 
22 and 21 to make dictionary entries for 
data-names and file- names and to generate 
Data A-text. 



When this processing has been completed, 
the ENVTBL entry and the file description 
information from the work area are merged 
into Data IC-text elements. Names from the 
QNMTBL table are located (from their ENVTBL 
pointers) and inserted where needed. Each 
completed Data IC-text element is written 
out. When File Section processing has been 
completed, the QNMTBL table is released. 



Sort Descriptio n Entrie s 

Each Sort Description (SD) entry is placed 
in a work area and is used to generate an 
SD entry in Data IC-text. 
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Record Des cription En tri es 



Then the LD-text is written oat. 



When a level number is encountered 
signaling a record description entry , the 
entry is analyzed and information from the 
clauses is put into a work area. If the 
OCCURS. ..DEPENDING ON clause is included, 
the object of the clause and its qualifiers 
are entered in the 0D2TBL (no duplicate 
entries are made) . A pointer to the entry 
is inserted later into the Data IC-text for 
the record description. (Each level number 
results in a Data IC-text element in 
LD-text format; see "Internal Text 
Formats.") 



WORKING-STORAGE AND LINKAGE SECTIONS 



The record descriptions in the 
Working-Storage and Linkage Sections are 
processed in much the same way as those in 
the File Section. However, since they are 
not associated with files, no RCDTBL 
entries are made. 



For level-0 
made, consisti 
recent file-na 
followed by th 
in the arrange 
Figure 6. The 
phase IB when 
statements to 
associated fil 



1 items, an RCDTBL entry is 
ng of a pointer to the most 
me entry in the FNTBL, 
e record-name. This results 
ment of pointers shown in 

relationships are used by 
processing WRITE and REWRITE 
relate records to their 
es. 



PIOTBL 



I 



FNTBL 



->r- 



| Pointer to PIOTBL 
I 



I 



| File-name 



RCDTBL 



H Pointer to FNTBL 



| Record-name 
i , 



Figure 6. Table Usage During Record 
Description Processing 



COMMUNICATION SECTION 



When the Communication Section header is 
encountered, the DDSCN routine calls the 
CDSCNA routine to process the CDs in the 
source program. Each Communication 
Description (CD) entry is analyzed and Data 
IC-text elements are created. Record 
descriptions in the Communication Section 
are processed in much the same way as those 
in the File Section. However, since they 
are not associated with files, no RCDTBL 
entries are made. 
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PHASE 12 



Phase 12 (IKFCBL12) is loaded after phase 
10 processing only if the source program 
contains a Report Section- Phase 12 reads 
the source statements of the Report Section 
of the Data Division, producing one 
complete Report Writer Subprogram (RWS) for 
each RD that it encounters. As it does so, 
it also: 



o scans its input for errors and 
generates any necessary E-text. 



o Generates a listing of the Report 
Section on SYSPRINT if the SOURCE and 
NOLIB options are in effect or on 
SYSUT6 if LVL is in effect. 



REPORT CLAUSE 



When a REPORT clause in an FD statement is 
encountered, routine TBLRPT of phase 10 
primes the RWRTBL table (first REPORT 
clause only) , sets a flag bit in the P1BTBL 
table (first REPORT clause only) , and 
enters the report name into the RWRTBL 
table (each REPORT clause encountered) . 
Phase 12 later checks the flag bit and, if 
it is not set, returns control to phase 00 
without producing an RWS. 



REPORT SECTION HEADER 



o Records information for later phases in 
TAHER tables and in COMMON cells. 

Phase 12 reads its input from SYSIN or 
from SYSUT** if LIB or LSTCOHP is in effect. 
It writes its output, the RWS, in the form 
of Data IC-text on SYSUT3 and in PO-text on 
SYSUT2. Any E-text produced is also 
uritten on SYSUT2, intermingled with the 
PO-text. The input and output are 
summarized in Figure 7. The RWS is 
described, in "Appendix C. Report Writer 
Subprogram." 

If the VERB option is in effect. Listing 
A-text is generated and passed to phase 60 
or 6** so that the object program listing 
can include verb-names and procedure names. 
Each text element is simply a word in 
EBCDIC format preceded by a code and a 
count* For every Listing A-text element 
written, a card number element is written 
in PO-text. This card number (passed on 
through the changing text forms) indicates 
to phase 60 or 64 when to read a Listing 
A-text element* 



Upon encountering the Report Section 
Header, phase 10 sets the RPTWTR bit in the 
SWITCH cell in COMMON. Routine INT10 of 
phase 00 later checks the bit and calls 
phase 12 when it is set. 



USE SENTENCES 



Upon encountering a USE sentence in the 
Declaratives Section of the Procedure 
Division, phase IBs 

• Generates REPORT-ORIGIN, a special 
Report Writer verb, to cause the 
address counter to be set to the first 
instruction in the RWS group routine 
resulting from the report group 
specified in the USE sentence. 

© Inserts, at that point in the RWS 
routine, a link to the USE routine. 

® Generates another Report Writer special 
verb, REPORT-REORIGIN, to reset the 
address counter* 



OPERATIONS IN OTHER PHASES 



In addition to normal processing of the 
Data IC- and PO-texts, other phases perform 
related operations in response to elements 
of the source program or of the RWS. These 
elements include the REPORT clause, the 
Report Section header^ USE sentences*? the 
Procedure Division verbs INITIATE, 
GENERATE, and TERMINATE, control-field 
save^area names*, and REDEFINES clauses. 



Note ; Report Writer verbs are discussed 
under "Elements of a Report Writer 
Subprogram" in "Appendix C, Report Writer 
Subprogram." 



PROCEDURE DIVISION VERBS 



Upon encountering an INITIATE, GENERATE, or 
TERMINATE verb, phase 1B generates PO-text, 
and phase 51 later generates linkage 
between the main program and appropriate 
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routines in the RWS. The INITIATE verb 
results in a link to the INT^-ROUT routine, 
TERMINATE to the LST-ROUT routine,, GENERATE 
report-name to the 1ST-R0UT routine, and 
GENERATE detail-name to the DET-ROUT 
routine. 



CONTROL-FIELD SAVE-AREA NAMES 



Upon encountering control- field save-area 
names (which are generated by phase 12) , 
phase 22 generates a dictionary entry 
consisting of the "-nnnn" name and the 
attributes of the control field which had 
been previously defined in the Data 
Division. Further discussion of 
control-field save-areas is provided under 
"Nonstandard Data-names" in "Appendix C: 
Report Writer subprogram." 



REDEFINES CLAUSE 



Upon encountering Data IC-text for a Report 
Writer REDEFINES clause, phase 22 so 
processes it that the E-point name data 
item generated from the COLUMN clause 
points to the relative location in the 
print-line work area, RPT. LIN, equal to the 
integer specified in the COLUMN clause. 
When an item is later to be moved to 
RPT. LIN, the location can be determined 
from the E-point name. The length is taken 
from the PICTURE clause information in the 
dictionary attributes for the item. 
E-Point and RPT. LIN are discussed under 
"Nonstandard Data-names" in "Appendix C. 
Report Writer Subprogram." 



PRODUCING THE REPORT WRITER SUBPROGRAM 



Generating a complete subprogram is the 
task of five routines in phase 12s RDSCAN, 
PROC01, PROC02, FLUSH, and GNSPRT. Routine 
GETDLM controls the flow of processing for 
phase 12. That flow is tailored to the 
particular source program, but the 
following discussion explains the general 
concept. 



The RDSCAN routine processes the ED 
statement and is followed by routine 
PROC01 , ¥hich processes the level-01 
sentence. If that sentence is an 
elementary item, routine PROC02 is called 
upon to process each elementary-level 
clause until the entire sentence has been 
processed. At that point, the FLUSH 
routine is called to finish generating the 
group routine. If the sentence is the 
level-01 statement of a group item, routine 
PROC01 processes the sentence, and routine 
PROC02 is called to process the elementary 
and lower- level group items following. 
When that is done, routine FLUSH is called, 
does its processing, and the compiler goes 
on to the next level-01 level statement. 

The PROC01-FLUSH- or PROC01-PROC02-FLUSH 
loops continue until phase 12 has generated 
RWS group routines for all of the level-01 
statements defined in the source program. 
Routine GNSPRT is then called on to 
complete the RWS by filling in the fixed 
and parametric routines and any necessary 
dummy group routines. Phase 12 then checks 
to see if the next logical record is an RD 
statement, in which case another RWS is 
needed and the process begins again with 
routine RDSCAN, or if it is the Procedure 
Division header, in which case phase 12, 
being finished, returns control to phase 
00. 



ROUTINE RDSCAN 



The RDSCAN routine is responsible for 
processing the RD entry of the source 
program. After first ensuring that an RWS 
should be generated (by determining whether 
the RWRTBL table is primed) , it reads each 
logical unit of the RD and processes it. 
The routine operates in a loop- type scan, 
checking each item to see if it is a 
period, CODE clause, CONTROL clause? or 
PAGE clause. If it is none of these, it is 
treated as an error. 

Routine RDSCAN then sets appropriate 
switches and enters data into storage areas 
and tables. It then gets a new record and 
repeats the loop until it encounters a 
period. When this happens, control returns 
to routine GETDLM, which calls routine 
PROC01. 
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*SYSUT6 is used if the LVL option is in effect- 



Figure 7. Phase 12 Input/Output Flow 
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ROUTINE PROC01 



1. Generates the WRT-ROUT routine* 



Routine PROC01 processes the level-01 
record descriptions. Valid input for this 
routine includes the period and the NEXT 
GROUP, LINE, TYPE, and USAGE clauses. It 
operates in a loop-type scan and processes 
each clause in much the same way as the 
RDSCAN routine does. Since an level-01 
elementary entry is permissible, other 
clauses can also be valid. Before assuming 
an error, routine PROC01, therefore, 
branches to the PROC02 routine to check for 
and process elementary-level clauses. Once 
a valid clause is processed in one or 
another of these routines, control returns 
to the beginning of the loop in routine 
PROC01. 

Processing of the TYPE clause marks the 
generation of the initial coding for the 
group routines. Since the compiler has, at 
that point, enough input to begin the group 
routine, the first part of that routine is 
generated here. 



Generates a dummy group routine for 
any of the following groups not 
defined in the source program: 
Control Heading Final, Control Footing 
Final, Page Footing, Page Heading, 
Report Heading, and Report Footing. 



3. Generates the INT-ROUT routine. 



4. Generates, if a PAGE LIMIT clause was 
specified in the source program, an 
ALS-ROUT routine and an RLS-ROUT 
routine. If no PAGE LIMIT clause was 
specified, the RWS contains neither of 
these two routines. 



Generates one USM-ROUT routine for 
each TYPE IS DETAIL group specified 
under the RD statement being 
processed. 



ROUTINE PROC02 



Routine PROC02 is entered when routine 
GETDLM encounters a level- 02 through 
level-49 entry or, at entry point PR02A, 
during PROC01 g s scan of an level-01 
elementary item. Its operation is similar 
to that of routines RDSCAN and PROC01, 
except that checks are made so that control 
returns to routine PROC01 when appropriate. 



ROUTINE FLUSH 



When routine FLUSH is called, all the 
information needed to complete one group 
routine is available in the form of table 
entries, contents of data areas in storage, 
and switch settings. Routine FLUSH 
generates the exit coding for the group 
routine, and then returns control to 
routine GETDLM. 



6. Generates in order, one each of the 
following routines: CTB-ROUT, 
RST-ROUT, 1ST-R0UT, LST-ROUT, and 
ROL-ROUT. 

7. Generates any needed CTH-ROUT 
routines. A CTH-ROUT routine is 
needed for any control specified in 
the source program after the highest 
level (of FINAL) control. If the 
source program contains no TYPE IS 
CONTROL HEADING report description for 
such a control, routine GNSPRT 
generates a dummy group routine here 
to fill the neecj. 

8. Generates any needed CTF-ROUT 
routines* A CTF-ROUT routine is 
needed under circumstances like those 
for a CTH-ROUT routine. 

9. Generates one SAV-ROUT routine and one 
RET-ROUT routine. 



ROUTINE GNSPRT 



GENERATING ERROR MESSAGES 



Routine GNSPRT is called when the GETDLM 
routine encounters a new RD or the 
Procedure Division header. At this point, 
all group routines defined in the source 
program have been written on SYSUT2 (in 
PO-text) , and all data needed to complete 
the RWS is in storage. Routine GNSPRT 
first writes out the necessary Data IC-text 
on SYSUT3 and then, in order: 



Coincident with producing the RWS, phase 12 
scans its input for syntax errors. Checks 
are made to ensure that each routine is 
both correct in itself and compatible with 
the rest of the RWS. If errors are 
detected, messages are written in E-text 
and recovery is attempted. When necessary, 
attempts to produce the particular RWS are 
abandoned. The E-text is written 
intermingled with PO-text, on SYSUT2. 
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GENERATING THE SOURCE LISTING 



As each record is read from SYSIN, a check 
is made to determine if the SOURCE option 
is in effect. If so, the source statement 
is copied out on SYSPRINT (or SYSUT6 for 
LVL option) - 



phases to use. For example, phase 12 
builds the ROUTBL table, uhich contains the 
specific GN numbers assigned to certain RWS 
routines. Phase 1B needs this information 
to process INITIATE, TERMINATE, GENERATE, 
and USE BEFORE REPORTING statements. Such 
items are stored in TAMER tables and in 
cells in COMMON. For more details on this 
subject, see Figure 7 and "Section 5. Data 
Areas. " 



INFORMATION FOR LATER PHASES 



During its processing, phase 12 stores 
various types of information for later 
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PHASE 1B 



Phase 1B (IKFCBL1B) reads the Procedure 
Division of the source program. It is 
entered, via phase 00, when the GETDLM 
routine in phase 10 or 12 encounters the 
Procedure Division header. As it reads 
each card image in the Procedure Division, 
it performs the following major functions: 



© Encoding the Procedure Division into 
Procedure IC-text (PO-text format) . 



The PDSCN routine controls Procedure 
Division processing. The GETCRD and GEMD 
routines supply the input in a manner 
similar to the description under "Major 
Working Routines" in the "Phase 10" 
chapter. These and all other routines used 
by both phases are indicated by an asterisk 
in the subroutine directories for both 
phases. Such routines do not remain in 
storage from phase 10, but are reloaded 
with phase 1B. 



«► Creating dictionary entries for 
procedure- names. 

© Writing the Procedure Division on 

SYSPRINT (SYSTJT6 for LVL option) if the 
SOURCE option was specified by the 
user. 

® Testing the BATCHSW switch in COMMON 
for a hexadecimal »40» (ENDFOUND) 
value, if the BATCH option was 
specified by the user. If this value 
is on, the last card in the current 
compilation has been read in phase 10 
and the switch is set off. Phase 1B 
then returns to phase 00. Otherwise, 
phase 1B checks for the CBL card, which 
is a source delimiter. When a CBL card 
is found, phase 1B sets on the 
hexadecimal »08 f (CARDHELD) value in 
the BATCHSW switch in COMMON, stores 
the address of the CBL card in COMMON 
location ADDRCARD, and returns to phase 
00. 

Phase 1B routines first process the 
out-of-line procedures contained in the 
Declaratives Section. (This processing is 
described under "Declaratives" below.) 
Then the in-line program is processed. 

Tables passed from phase 10 and used by 
phase 1B include the P1BTBL, PIOTBL, FNTBL, 
RCDTBL, SPNTBL, and TOTTBL tables. Tables 
passed from phase 12 for Report Writer 
operations are the RWRTBL, DETTBL, ROUTBL, 
and RNMTBL tables. The PNTABL and PNQTBL 
tables are built during phase 1B. If the 
VBREF or VBSDM option is in effect, phase 
1B will create the VERBDEF Tamer table. 
(See "Section 5. Data Areas" for formats 
of all these tables). Dictionary entries 
are made for all source procedure- names. 
Procedure IC-text (in PO-text format) is 
generated from the procedure statements. 
Formats for these texts and the dictionary 
are given in "Section 5. Data Areas." 



A major activity of phase 1B is writing 
PO-text, This text is, roughly, the source 
program Procedure Division receded into a 
form acceptable to later phases. Logical 
units (source program words) are processed, 
encoded, and written out one at a time* 
Some information, such as card numbers, is 
generated for PO-text. All user-assigned 
names are passed unchanged (preceded by 
code and count fields) from the source 
text. Verbs and other COBOL words are 
replaced by unique 2-byte codes. For the 
complete text formats, see "Section 5. 
Data Areas." 



If the VERB option is in effect, Listing 
A-text is generated and passed to phase 60 
or 64 so that the object program listing 
can include verb-names and procedure names. 
Each text element is simply a word in 
EBCDIC format preceded by a code and a 
count. For every Listing A-text element 
written, a card number element is written 
in PO-text. This card number (passed on 
through the changing text forms) indicates 
to phase 60 or 64 when to read a Listing 
A-text element. 



PROCEDURE-NAMES 



At its point of definition, each 
procedure-name (paragraph- name or 
section-name) is given a PN number. The 
point of definition is that point at which 
the name appears in Area A of the source 
program. PN numbers are assigned 
sequentially starting with 1 from cell 
PNCTR in COMMON. The procedure-name is 
entered in the dictionary, and written in 
PO-text. 
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ENTERING PROCEDURE-NAMES IN THE DICTIONARY 



Storin«g_In format ion 



The dictionary is a repository for all 
information that can be gathered about each 
us^r-assigned name in the source program 
and dummy procedure-names for the beginning 
and end of the Procedure pi vision and of 
the Declaratives Section, Such information 
about a name comprises its attributes. 
After the dictionary has been completed by 
phase 21, the attributes are substituted 
for the name itself in the Procedure 
IC-text produced by phase 3. In later 
Procedure IC-text processing by phases 4, 
tl5 9 50, and 51, all information about the 
name appears conveniently in the text 
stream, and the space required by the 
dictionary can be released. 

Dictionary entries for procedure-names 
are made, using the DICOT and HASH tables, 
by phase 1B. A procedure-name may occur in 
the source program at its point of 
definition, where it is called a left-hand 
name. The name may also occur as an 
operand in a statement such as "GO TO 
procedure-name." A procedure-name used as 
an operand is called a right-hand name. 

A dictionary entry is made for each 
left-hand name as it occurs in the source 
text, and some of its attribute bits are 
set at this time. Other attribute 
information is not known until all 
occurrences of the name as a right-hand 
name have been read. (Verbs associated 
frith right-hand names are discussed under 
^Declaratives" and "Procedure-Branching 
Verbs" later in this chapter.) 

The phase 1B routines do not make 
entries directly in the dictionary by 
themselves. Rather, they call a special 
group of routines called ACCESS routines, 
which are resident during phase 1B in the 
area of storage below the phase 1B code. 
These routines are designed especially to 
build and use the dictionary. They are 
also resident during phases 22, 21, 25, and 
3, the other phases which use the 
dictionary. They are described in 
"Appendix A: Table and Dictionary 
Handling." 



USING THE PNTABL AND PNQTBL TABLES 



Entries are made in the 
PNQTBL tables when cert 
encountered (see "Proce 
Verbs" and "DEBUG" belo 
declarative section is 
"Declaratives" belou) . 
made for dummy names, 
added to a table entry 
procedure-name occurs a 
dictionary entry is fou 
will be made for a prev 
procedure-name only if 
already been deleted. 



PNTABL or the 
ain verbs are 
dure- Branching 
w) , or when a 
processed (see 

Entries are also 
Information may be 
if the 

gain before the 
nd. A new entry 
iously entered 
the old entry has 



The formats of these entries correspond 
exactly to the format of dictionary 
attributes for procedure-names. Note that 
a source statement may refer to a 
procedure-name which has not yet been 
defined and, therefore, is not yet in the 
dictionary. 



Hoying _Information into the Dictionary 



The dictionary is searched at the end of 
every source program section. When the 
procedure-name in the table matches the 
procedure-name in the dictionary, 
information from the switches in the table 
is recorded in the dictionary attributes 
field, and the table entry is deleted. The 
dictionary search techniques are different 
for the PNTABL and PNQTBL tables. 



At the end of the first 
section, the dictionary is 
every procedure-name in the 
dictionary entry is found, 
is transferred and the PNTA 
deleted. If no entry yet e 
search bit is turned on in 
entry. This b.it indicates 
procedure-name does not app 
portion of the dictionary p 
searched. At the end of th 
program section, another se 
performed for each procedur 
the PNTABL table. Whenever 
is on for a given entry, th 
restricted to the dictionar 
most recent source program 
"LATACP" in "Appendix A. T 
Dictionary Handling") a 



source program 
searched for 

PNTABL. If a 
the information 
BL entry is 
xists, the 
the PNTABL 
that the 
ear in the 
reviously 
e next source 
arch is 
e-name then in 

the search bit 
e search is 
y entries of the 
section (see 
able and 



The PNTABL and PNQTBL tables are used to 
store certain attributes of procedure-names 
before these attributes are entered in the 
dictionary. The PNQTBL table contains 
entries for certain procedure-names that 
are qualified by section-names, uhile the 
PNTABL table contains entries for certain 
nonqualified procedure-names. 



The PNQTBL table contains the source 
program section-name qualifiers of the 
procedure- names entered. Thus, if the 
source program section named in the table 
has already been processed, a corresponding 
entry can be found in the dictionary by a 
limited search (see "LDELNH" and "LATACP" 
in "Appendix Ao Table and Dictionary 
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Handling") „ The table entry is deleted 
after the information has been transferred 
to the dictionary entry* If the 
section-name has not yet been encountered, 
no search is made. Therefore* this table 
does not require search bits. 



Figure 8 shows in diagram form an 
example of the dictionary search,, It 
explains how the search would proceed for 
several hypothetical procedure-names « llote 
that the figure does not represent table 
formats. 
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T — ~ 1 I 

Attribute Information Added | | 

After Processing Section | | 

: . . — _i | 

■2 1 I 

_ . _„„§ j 



Dictionary Entry Made 
While Processing Section 



Procedure- name 



PN2 



PN3 



S I 
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deleted. 
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N ote ; "Section" as used in this figure refers only to source program sections. 
Dictionary sections are of fixed length and do not correspond to source program 
sections. 



Figure 8. Entering PNTABL and PNQTBL Information in the Dictionary 
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PRIORITY CHECKING FOR SEGMENTATION 



For each section-name, the segmentation 
priority is entered in the dictionary. If 
no priority number uas specified, zero is 
entered as the priority* (In a 
nonsegmented program, all sections are 
given a zero priority,) If a priority 
number uas specified, its value is compared 
to the value of the SEGLMT cell in COMMON 
(set by phase 10s see "SEGMENT-LIMIT 
Clause" in the "Phase 10" chapter). If the 
priority number of the section-name is less 
than SEGLMT, it indicates that the section 
is part of the root segment. In this case, 
the priority number of the section-name is 
entered in the dictionary as zero. If the 
priority number exceeds SEGLtfT, it is 
entered as specified. 



Each time a section-n 
priority exceeds the val 
switch called SEGSW, who 
internal to phase 1B, is 
the end of Procedure Div 
this switch still contai 
that the program is not 
SEGLHT is set to heicadec 
suitch is on, SEGLMT is 
value of SEGLMT is used 
determine whether the pr 



ame is found whose 
ue of SEGLMT, a 
se location is 

turned on. If, at 
ision processing, 
ns zero, it means 
segmented, and 
imal «FF'. If the 
left as it is. The 
by later phases to 
ogram is segmented. 



PERFORM. , .THRU : The procedure-name 
following the THRU is entered. If the THRU 
option is not used, the procedure- name 
following PERFORM is entered. (This entry 
directs phase 4 to provide a return of 
control at the end of the PERFORM 
procedure.) 

INPUT/OUTPUT VERBS 



Switches are set in the PIOTBL entry for 
the file named in the input/output 
statement. These switches indicate to 
phase 21 how the file is used. In 
addition, the following processing takes 
place: 

DELETE : The FILSVB subroutine checks that 
the file name specified in the DELETE verb 
was previously specified in a SELECT 
statement. The subroutine turns on the 
appropriate bit in the PIOTBL table if the 
filename is valid. 

OPEN: If label- or error- processing 
declaratives were written for this file, 
GNs (generated procedure-name references) 
for the declaratives are encoded in the 
PO-text following the file-names in the 
OPEN statements. The handling of these 
declaratives is described below under 
"Declaratives." 



VERBS 



Ull verbs are encoded and written into 
PO-teirt. In addition, the verbs discussed 
belou require special handling. 



PROCEDURE-BRANCHING VERBS 



Procedure-branching verbs use the PNTABL 
and PNQTBL tables. Entries in these tables 
are used to set some of the attribute bits 
in the dictionary entries for the 
procedure- names. The process by which 
dictionary entries are made from these 
tables is described in this chapter under 
"Using the PNTABL and PNQTBL Tables." 

GO TO: The left-hand name (the procedure- 
name appearing in Area A, not the object of 
the GO TO statement) is entered into the 
table, (A GO TO statement preceded by a 
procedure-name definition may be the object 
of an ALTER statement elsewhere in the 
program.) If the DEPENDING ON option is 
used, no entry is made. 

EXIT: The left-hand name is entered. 

ALTER: The procedure-name following the 
word ALTER and the procedure-name following 
the phrase TO PROCEED TO are entered. 



READ : The PIOTBL entry for the file is 
checked to determine whether the RERUN bit 
is on. If it is, a special verb code is 
used. The REDSVB routine also checks for 
the word NEXT in the READ verb. If 
present, the routine turns on the 
appropriate bit in the PIOTBL table. 

WRITE, REWRITE : The record-name is sought 
in the RCDTBL table and from its FNTBL 
pointer the file-name is found. The 
file-name is then included in the PO-text 
entry (in the form WRITE file-name 
record-name) . For a WRITE statement, the 
PIOTBL entry for the file is checked to 
determine whether the RERUN bit is on. If 
it is, a special verb code is used in the 
PO-text. If the ADVANCING mnemonic-na me 
option of the WRITE statement is used, the 
mnemonic-name is sought in the SPNTBL table 
and replaced with the proper special-name. 
If an INVALID KEY option is used, phase 1B 
sets the appropriate PIOTBL bit to 1 . 

ST ART : The STTSVB subroutine checks that 
the file name specified in the START verb 
was previously specified in a SELECT 
statement. The subroutine turns on the 
appropriate bit in the PIOTBL table if the 
filename is valid. The subroutine also 
checks for a KEY of REFERENCE and/or an 
INVALID KEY clause. If either or both are 
found, the subroutine turns on the 
appropriate bit(s) in the PIOTBL table. 
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OTHER VERBS 



ACCEPT , DISPLA Y: The mnemonic- name used is 
sought in the SPNTBL table and replaced by 
the proper special-name. 

DEBUG: The attribute bits in the 
dictionary entry for the specified 
paragraph are set, using the PNTABL and 
PNQTBL tables as described above. 

EXHIBIT; A special EXHIBIT data-name is 
generated. 

READY: The SWTRCE switch in the SWITCH 
cell~in COMMON is set. 

SORT/MERGE: If the USING or GIVING options 
are specified, the appropriate PIOTBL bits 
are set in the entries for the files named. 
If these files are also specified in label- 
or error-processing declaratives, a special 
code is used for the USING or GIVING 
elements in the PO-text. 

If the COLLATING SEQUENCE phase is 
specified, the ALPHTBL is scanned to ensure 
that the phase is valid. 

Report Writer Verb s: See the chapter 
"Report Writer Subprogram." 



DECLARATIVES 



When a declarative section is encountered, 
the section- name (and paragraph-names, if 
any) are entered into the dictionary. A 
PNTABL entry is made for the section name, 
with the declarative bit and the 
appropriate bit to identify the type of 
declarative set. Every paragraph-name in 
the section is also entered in this table, 
with only the declarative bit set. These 
bits are used later to set dictionary 
attribute bits. 

Each label or error declarative is given 
a GN (generated procedure- name) number. 
These numbers are assigned sequentially 
starting with 1 from the GNCTR cell of 
COMMON. If the USE sentence specified 
file-name, the GNs are entered in the 
appropriate fields of the FNTBL entry for 
the file. If the USE sentence specified 
INPUT, OUTPUT, EXTEND, or 1-0, the GN 
number is entered in a work area. If a USE 
FOR ERROR declarative statement is 
encountered, the appropriate PIOTBL table 
bit is set to 1. 

These work areas and tables are checked 
when OPEN verbs are encountered. For each 
file-name specified in an OPEN statement, 
the corresponding FNTBL entry is inspected. 



If GNs were entered in the FNTBL table 
during declarative processing, they are 
inserted in the PO-text. Otherwise, the 
work areas for the particular OPEN option 
are used for GNs. If an ON INPUT GN for an 
error declarative is found in the work 
area, the GN number is inserted in all OPEN 
INPUT PO-text entries. The GNs for label 
declaratives are determined for files whose 
FD statements include a LABEL RECORD IS 
data-name clause. OUTPUT and 1-0 GNs are 
handled the same way. 



The USESVB routine builds the GVNMTBL 
table containing the fully qualified 
data-names used in the GIVING option of the 
STANDARD ERROR/EXCEPTION PROCEDURE 
declarative for VSAM files. The routine 
also builds the GVFNTBL table when a VSAM 
file has been specified in the ON option of 
the declarative. 

For a USE FOR DEBUGGING declarative, the 
USEGEN label is used for the DEBUG 
processing code, and will be entered only 
from DCLSCN at the start of the 
declaratives. Following USEMSG, a branch 
will be inserted to label USEGN1. At label 
USEGN1 a check is made for FOR followed by 
DEBUGGING; if found, the USEDBG code is 
executed; otherwise the USE verb code 
(USECON) is restored to CURCOD and a branch 
is taken to continue processing at USEGN1. 

The USEDBG verb is generated if a USE 
FOR DEBUGGING declarative has at least one 
valid operand. USEDBG checks the V2BUG0N 
switch. If V2BUG0N is not on, USEDBG 
ignores all code for this USE sections and 
scans to the next section- name, USE verb, 
or END DECLARATIVES. If V2BUG0N is on, 
USEDBG checks for ALL PROCEDURES; if found, 
BGALLPRC is tested to see if it has been 
specified before. If so, a message is .. 
produced indicating that the second 
occurrence of ALL PROCEDURES is ignored. 
If valid, a procedure-name number for the 
section-name, prior to USE, is entered in 
BGALLPN and its priority number is entered 
in BGALLPRI, and a USEDBG verb is 
generated. V2BUGDCL is set on to indicate 
a valid USE FOR DEBUGGING declarative has 
been found. Control is transferred to 
USEDCB which checks the BCD-name operand. 
USEBCD generates an alphanumeric literal 
representing the BCD-name operand. If it 
is a qualified-name, it goes to QLTABL to 
generate an alphanumeric literal for up to 
30 bytes containing the name and its 
qualifiers, separated by OF. If it is a 
BCD-name, the contents of CURBCD can be 
used. Then the name is generated and 
end-of -sentence is checked for; if so, exit 
is to VRBENT, if not, return to search for 
more operands. If no operands are found 
for the USE verb, a message is produced and 
the USE sentence is discarded. 
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PHASE 20 



Phase 20 (IKFCBL20) is the third of five 
phases that process the Data Division. It 
follows phase IB, overlaying it in storage. 
Phase 20 is called by routine LIHKPH1 of 
phase 00 and returns control to phase 00 
uhen it encounters an end-of-file condition 
on SYS0T3. The primary concerns of phase 
20 are the VALUE and PICTURE clauses of the 
data descriptions, which it translates from 
Data IC-text into ATF-text. 

Phase 20 processing is initiated and 
controlled by the BEGIN routine. It reads 
each Data IC-text element and, from each LD 
entry, it computes and writes a partial 
dictionary entry to be passed to phase 22. 



After completing the partial entry, phase 
20 writes it on SYSUT4 (the format of the 
entry is called ATF-text) and reads the 
next Data IC-text element, continuing until 
SYSUT3 has been exhausted. All Data 
IC-text for FDs, SDs, CDs, and keys for 
table handling and any E-text encountered 
is copied unchanged onto SYSUT4. 

Phase 2 also scans its input for syntax 
compatability and error conditions, 
producing any necessary E-text; it produces 
and passes two tables, the VALTRU and the 
VALGRP, to later phases. The input and 
output for this phase are summarized in 
Figure 9. 



SYSUT3 



SYSUT4 




ITables built by 
(phase 20 

LABTBL table 
VALGRP table 
VALTRU table 



Figure 9. Phase 20 Input/Output Flow 
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TRANSLATING LP ENTRIES INTO ATF-TEXT 



Routine BEGIN first determines whether the 
element read is an LD element; that is , one 
resulting from a source program record 
description entry of level numbers 01 
through 49, 66 , 77 , or 88. If so, BEGIN 
stores the current input card number in 
COMMON and calls on routine LDTEXT. LDTEXT 
copies the element from the input buffer 
into a work area, called ATFTXT, reads the 
next record (Data IC-text element) into the 
buffer, compares the current level number 
to the next elements level number to 
determine whether it is a group or an 
elementary item, and calls the appropriate 
routines to create the ATF-text. 



of the entry and to fill in the variable 
information field with a description of the 
item. If there was a PICTURE, the USAGE 
information, together with the PICTURE, 
provides enough information to set the 
minor code and variable information fields. 

If a RENAMES clause is associated with a 
data item, no partial dictionary entry 
exists in the ATF-text element, and all 
processing is done by phase 22. The BCD 
names are passed on unchanged from the Data 
IC-text element. 



PROCESSING GROUP ITEMS 



PROCESSING ELEMENTARY ITEMS 



For an elementary item, the LDTEXT routines 
described below produce a portion of an 
ATF-text element that contains fields 
identical to a dictionary entry except for 
the addressing parameters. Routine DICTBD 
of phase 22 fills these in later. 

If there was a PICTURE flag in the Data 
IC-text for the elementary item, the LDTEXT 
routine calls routine GSPICT to distribute 
the PICTURE into work areas. The kind of 
character is stored in work area IPT and 
the number of occurrences of that character 
in IPLT. Subroutines, depending on the 
type of the PICTURE, determine the length 
of the item and its attributes.. The 
attributes are entered in the variable 
information field of the ATF-text element. 

An indication of how many subscripts are 
needed to refer to the item is set in the 
text element by subroutine BMBSRN. The 
REDEFINES bit is set from the REDEFINES 
flag in the Data IC-text, and the object of 
the REDEFINES clause is saved for 
processing by phase 22. (If the REDEFINES 
clause is internal, that is, generated for 
the Report Section, and the subject of the 
clause is a name plus a displacement, phase 
22 adjusts the addressing parameters of the 
object of the clause to reflect the 
displacement.) The major code, which is 
changed only when a new section header is 
encountered, is moved from a work area to 
an ATF-text field. In addition, the level 
numbers are normalized as an aid to phase 
3, 

Routine BUSAGE utilizes the USAGE 
information in the Data IC-text to 
determine the size of the elementary item 
if there was no PICTURE. It provides 
enough information to set the minor code 
field in the ATF-text element to the type 



For a group item, the LDTEXT routines 
produce a portion of an ATF-text element 
that is identical to a dictionary entry 
except for the addressing parameters and 
the length of the group. These are later 
filled in by phase 22, 

The processing is the same as that for 
elementary items with two exceptions. 
Routine BUSAGE saves the USAGE, in area 
GUI, to verify the USAGE of the elementary 
items. Routine SRCHTB passes the keys for 
table handling, if any, unchanged to phase 
22. 



PRODUCING INCOMPLETE DATA A-TEXT 



Phase 20 generates incomplete Data A-text 
elements for constants defined by VALUE 
clauses. Information for constructing this 
text comes from the Data IC-text read from 
SYSUT3. For LD entries with VALUE clauses, 
the value is given in the Data IC-text 
element and is entered directly by routine 
VALGEN into the incomplete Data A-text 
element. Constants defined by VALUE IS 
SERIES clauses are discussed under 
"Building Tables for Later Phases" in this 
chapter. For the formats of Data A-text 
and Data IC-text, see "Section 5. Data 
Areas. " 



PROCESSING FILE SECTION ENTRIES 



When it encounters the File Section header-, 
the BEGIN routine transfers control to 
routine FILEST, which controls the 
processing of the section. Routine FILEST 
uses the BSUBRN routine to read the Data 
IC-text elements. If the next item read is 
a critical program break or if EOF is 
encountered, routine FILEST returns control 
to routine BEGIN. 
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PROCESSING COMMUNICATION SECTION ENTRIES 



When it encounters the Communication 
Section header, the BEGIN routine transfers 
control to routine COMSCT, which controls 
the processing of the section, CD entries 
are passed unchanged by routine CDTEXT; LD 
entries are processed by routine LDTEXT as 
described earlier. 



PROCESSING ERRORS 

————— — —y — r- — ■*.— ..!" ... ■..-.— ■■■ — 



As phase 20 processes Data IC-text, the 
clauses are checked to determine whether 



they are allowed to be used together. The 
following is an example of the checking 
that is performed. 



When routine LDTEXT processes Data 
IC-text elements for LD entries, some of 
the clauses are processed before a 
determination is made of whether the item 
is a group or elementary item. Then, when 
the LDTEXT routine determines whether the 
item is a group or elementary item, it 
eliminates any invalid clauses. For 
example, if a PICTURE clause is given for a 
group item, routine LDTEXT processes it. 
Then when it determines the item is a group 
item, routine ERRTN issues E-text for the 
invalid PICTURE clause. 



Phase 20 73 



Licensed Material - Property of IBM 



PHASE 22 



Phase 22 (IKFCBL22) is the fourth of five 
phases that process the Data Division. 
Phase 22 follows phase 20, overlaying it in 
storage. Its major functions are producing 
dictionary entries, completing Data-A test, 
and generating Q-routines. 

Phase 22 processing is initiated and 
controlled by the DIRECTOR routine. A Data 
IC-text or ATF-text element is read from 
SYSUT4 and distributed to work areas. 
Routine DICTBD then completes fields in the 
entry and places it in the dictionary. 
While building the dictionary entry, phase 
22 also checks for syntax compatibility and 
error conditions. After phase 22 has 
completed the dictionary entry for a given 
text element, it picks up the next element 
for processing, continuing until SYSUT4 has 
been exhausted. All Data IC-text for FDs 
and SDs and any E-text encountered is 
copied unchanged onto SYSDT3. 

Incomplete index-name entries (prefix 
04) are entered into the dictionary by 
routine READF4 when they are encountered. 
Later, information is filled in by routine 
XTEN, a subroutine of DICTBD. 

The input and output for this phase are 
summarized in Figure 10. 



BUILDING DICTIONARY ENTRIES 



The dictionary is used to store information 
about procedure-names and data operands and 
is the product of phases 1B, 21, and 22. 
Phase 22 stores the current card number. 



generated during phase 10 for each input 
card in COMMON. It then calls the 
appropriate routine for preprocessing of 
the data item, and after the preprocessing 
is finished, it calls routine DICTBD to 
complete the entries. The routine makes 
either complete or dummy dictionary 
entries. 



DICTIONARY PREPROCESSING 



RENAMES Entrie s; If a RENAMES clause is 
associated Mith a data item, routine RENAMS 
goes to the dictionary and locates the data 
item or items being renamed. The routine 
picks up the attributes and addressing 
parameters for the dictionary entry or 
entries and assigns them to the RENAMES 
item. The routine then places the 
completed entry for the RENAMES item into 
the dictionary. The entire dictionary 
entry for a RENAMES item is formulated by 
the REHAMS routine. 

LP Entries: Before the dictionary build 
routine is called to complete the 
dictionary entry for an elementary item, 
routine LDTXT obtains a dictionary pointer 
for the item by calling an ACCESS routine, 
GETPTR. (ACCESS routines are 
dictionary-handling routines.) 

A delimiter pointer is needed for group 
items. 

Level-88 entries are put into the 
dictionary directly by the input routine 
READF4. 



74 Section 2. Method of Operation 



Licensed Material - Property of IBM 



INPUT 
SYSUT4 



OUTPUT 
SYSUT3 



lATF-text 
j Data A-text 
j (incomplete) 
| Data IC-text 
IE-text 



Storage 

(in phase 00) 




Storage (TAMER) 

F 

Tables passed to 
phase 22 

DICOT 

HASH 

0D2TBL 

VALTRU 

VALGRP 

UPSTBL 



PHASE 22 




Storage (TAMER) 



| Data A-text 
| Data IC-text 
->|DEF-TEXT 
1E-text 

I 

i 



SYSUT2 



|To 

Iphase 21 



Q-routines 



--iTo 
Iphase 3 

t > 

I 



Storage 

(in phase 00) 



Storage (TAMER) 




Storage (TAMER) 



1 ■" -"" 


~ — 1 


1 f " 


1 


I Tables built 


by 1 


I | Tables: 




Iphase 22 




| | DICOT 
| | FDTAB 




| GPLSTK 




| | HASH 




| QITBL 




| | INDKEY 




| QRTN 




■ >| MASTODO 




| RDFSTK 




1 OCCTBL 




| RNMTBL 




| QFILE 




| SRCHKY 




I QVAR 
| RENAMTB 
| VALTRU 
| VARLTBL 




L ._ _ 


.J 


L 


J 



Figure 10. Phase 22 Input/Output Flow 
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FD Dictionary Entries; A skeleton 
dictionary entry is created by routine 
FSTXT. This entry contains only the file 
name; the attributes are filled in by phase 
21. The length of the VSAM FD dictionary 
attributes is determined by phase 22 when 
making the skeleton entry. This is true 
for all other access methods. Routine 
FSTXT writes the Data IC-text for the FD on 
SYS0T3. Phase 22 determines if there is an 
ISAM file which has no RESERVE NO clause 
and is opened INPUT or 1-0. 

Since Phase 21 processes the Data 
IC-text for FDs, routine FSTXT passes this 
text to SYSUT3 (the same file on which 
phase 22 writes Data A-text) except for 
user label record information. 

A dictionary pointer is obtained and 
processing of the entry is completed by 
routine DICTBD and its subroutine FST000. 

A skeleton dictionary entry is also 
created for any LINAGE-COUNTERs specified 
for an FD. 

CD Dictionary En trie s: Routine CDTEXT does 
the processing for the CD dictionary entry; 
it creates a dummy level-01 entry and dummy 
level-02 entries for each CD-name from 
predefined attributes. Routine DICTBD 
enters these in the dictionary. 

gart ial RD Dictionar y Entr ies; Routine 
RDTXT does most of the processing for the 
RD dictionary entry. At the end of this 
processing, the entry is complete and 
entered in the dictionary by routine 
DICTBD. 

SD Dictionar y Entr ies; SD entries are 
handled like FD entries. Routine SDTXT 
performs this processing. 



and SD entry. Then the displacement of 
each item in these areas from the beginning 
of the area is calculated. If the items in 
the area occupy more than 4,096 bytes, a 
second base locator number is assigned to 
the second 4,096 bytes, etc. (In this 
case, CD and RD entries are considered to 
be an extension of the Working-Storage 
Section and the same base locators are 
used.) 

There are three types of base locators 
(BL, BLL, and SBL) depending on the type of 
data area. Base locator numbers are 
assigned sequentially from counters in the 
COMMON area. 



Ti£e 
BL 



Counter 
BLCTR 



BLL 



BLLCTR 



SBL SBLCTR 



Use 

BL numbers are assigned to 

the Working-Storage 

Section, the Communication 

Section, the Report 

Section, and to each FD, 

CD, and RD entry. 

BLL numbers are assigned to 
the Linkage Section, the 
DEBUG-ITEM special 
register, if specified, 
label records, and to each 
SD entry. 

See "Q-routine Generation" 
in this chapter. 



Comp le ting Working-Stor age Section Entries : 
The Working-Storage Section contains only 
LD entries. Routine DICTBD completes the 
LD dictionary entries by filling in the 
addressing parameter field for group and 
elementary items and by determining the 
length and the delimiter pointer for group 
items. 



COMPLETING DICTIONARY ENTRIES 



The dictionary build routine, DICTBD, 
completes these dictionary entries which 
were begun in phase 20 by filling in 
addressing information. Each data item is 
addressed by a base locator number and a 
displacement. 



Routine DICTBD assigns a base locator 
number to the beginning of the 
Working-Storage Section. The type of the 
base locator number is BL, and the base 
locator number is the next available number 
from field BLCTR in COMMON. The d part of 
the addressing parameter is obtained from 
the LOCCTR counter in COMMON. Each time a 
data item is processed; the counter is 
incremented by the number of bytes the 
element will occupy at object time. 



The addressing parameter field has three 
parts, called i, d, and k, where i 
specifies the type of base locator (BL, 
BLL, or SBL) , d specifies the displacement 
of the item from the beginning of the area 
controlled by the base locator, and k 
specifies the base locator number. 

A base locator number is assigned to the 
beginning of each major data area, such as 
the Working- Storage Section, and to each FD 



Routine DICTBD uses the GPLSTK table to 
keep track of the length of group items* 
It enters the length and the delimiter 
pointer (the dictionary pointer of the 
group delimiter) in the dictionary entry 
for the group. It also deletes the GPLSTK 
table entry for the group. 

Note; The lengths of level-77 items are 
not added to the GPLSTK table since they 
are independent items. 
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If an item contains a REDEFINES clause, 
routine DICTBD calls routines REDEP and 
RDSYN to process the item using tables 
RDFSTK and RNMTBL. The REDEF routine makes 
an entry in the RDFSTK table, giving the 
length of the REDEFINES object and the 
level number and current addressing 
parameters of the REDEFINES subject. Then 
the REDEF routine assigns the addressing 
parameters of the REDEFINES object to the 
REDEFINES subject. An entry is also made 
in the RNHTBL table, giving the level 
number , dictionary pointer, and length of 
the object of the REDEFINES. 

Uhen an item is encountered with a level 
number less than or equal to the last level 
number in the RDFSTK table, it is assigned 
the addressing parameters from the entry. 

The length of the REDEFINES object is 
saved in the RDFSTK table to see whether 
the length of the REDEFINES subject is less 
than or equal to it. If the REDEFINES 
subject is a group item, its length is 
determined by the GPLSTK table. If it is 
an elementary item, routine RDSYN 
determines its length. (Routine RDSYN also 
checks the name of the REDEFINES object 
against the entries in the RNMTBL table to 
see whether or not it is valid.) 

Table RNMTBL is also used if there are a 
series of items with REDEFINES clauses. It 
saves the names so that an item can 
redefine an item that does not immediately 
precede it in the series . 

Completing File Sectio n Entrie s: Routine 
DICTBD uses its subroutine FSTO00 to 
complete dictionary entries for FDs. 
Subroutine FST000 performs two major 
functions: 

o it resolves the previous FD, if any. 

© It completes the processing of the 
current FD, if any. 



Cpmpleting^Communication Section Entries: 
Routine CDTEXT calls routine DICTBD to 
process the dummy CD entries that CDTEXT 
has created. Location counter values are 
saved so that every level-01 entry under a 
CD starts at the same location. Base 
locator numbers for level-01 entries are 
assigned to these items as though they were 
in the Working-Storage Section. The 
location counter value for the CD FOR 
INITIAL INPUT, if specified, is saved in 
CDLCCTR in COMMON. 

Completing Report Sec ti on Entries : R o ut i n e 
DICTBD adds no information to Report 
Section entries before it puts them in the 
dictionary. 



GENERATING DATA A-TEXT 



Phase 22 completes the incomplete Data 
A-text elements passed to it by phase 20 by 
adding the location counter values. The 
two prefix bytes (the XMO" indicator and 
the length count affixed by phase 20) are 
left to serve as an indicator to phase 21 
that the text element needs no further 
processing. Phase 21 deletes the first 2 
bytes and then passes it unchanged to phase 
6 or 64 and selects the Data IC-text 
elements (for FDs and SDs) for translation 
into Data A-text. 

Phase 22 generates five types of Data 
A-text elements itself. While doing so, it 
prefixes them with the same two bytes of 
information discussed above. The four 
types are: 

o Working-Storage Section address 
elements. 

o Constants from VALUE clauses. 

© Data-name DEF elements. 



Routine DICTBD processes SD entries in 
the same way it processes FD entries, 
except that the type of base locator number 
assigned is BLL. These are obtained from 
field BLLCTR in COMMON, and the first BLL 
number used is 3. 

Completing Linkage Section Entries: 
Linkage Section entries are processed the 
same as Working-Storage Section entries, 
except that the type of base locator number 
assigned is BLL. For a label record item, 
the first BLL is assigned. For other items 
in the Linkage Section, BLL numbers are 
assigned starting with the first BLL number 
not used for an SD entry. All level-77 
items and all group items starting with 
level-01 in the Linkage Section are 
assigned unique BLL numbers. 



® Verb DEF elements. 

© Q- routine identification elements. 

To create these elements, phase 22 uses 
information stored in COMMON, tables 
GPLSTK, VERBDEF, and VALGRP, Data IC-text 
created in phase 10 or 12 and passed by 
phase 20, and ATF-text created by phase 20. 



QTgQJJTINE GENERATION 



Phase 22 uses the following tables to 
generate Q-routines: OD2TBL, QFILE, QVAR, 
OBJSOB, QITBL, and QRTN. The OD2TBL table 
is created by phase 10 and the other tables 
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by phase 22. The QFILE table is passed to 
phases 21 and 3 and the QVAR table is 
passed to phase 3; the 0D2TBL, OBJSUB, 
QITBL, and QRTN tables are released by 
phase 22. (When the SYMDMP option is in 
effect , however, the QITBL and QRTN tables 
are passed to phase 25.) the 0D2TBL 
contains the qualified names of objects of 
OCCURS.. .DEPENDING ON clauses,, 

Routine QVARBD combines the information 
contained in the 0D2TBL r the QRTN, the 
OBJSUB, and the QITBL and QFILE tables into 
the QVAR and QFILE tables for phase 3; the 
QFILE table may be updated by phase 21. 
The routine then releases the 0D2TBL, QRTN* 
and QITBL tables. (When SYMDMP is in 
effect, it releases only the 0D2TBL table.) 

If phase 10 created an 0D2TBL table, 
phase 22 checks each elementary item that 
it processes to see whether or not it is in 
the OD2TBL table. If it is, phase 22 sets 
the dictionary entries of the item and all 
its groups to reflect that they are objects 
of OCCURS. ..DEPENDING ON clauses. If it is 
a group item, routine XTEN performs the 
processing; if it is an elementary item, 
routine ELIPR handles the processing. 
Routine ELIODO then places the dictionary 
pointer for the item and a pointer to the 
related OD2TBL entry in the QITBL table. 
If an object of an OCCURS. .. DEPENDING ON 
clause is encountered while processing the 
File Section, its 0D2TBL table displacement 
is placed in the OBJSUB table*. 

When phase 22 encounters an ATF-text 
element for an LD entry with a pointer to 
the 0D2TBL table (that is, the item was 
described with an OCCURS. . .DEPENDING ON 
clause) , routine INTVLC marks all the group 
items currently in the GPLSTK table as 
variable in length by assigning a VLC 
(variable-length cell) number from field 
VLLCTR in COMMON to each item. If a 

subject of an OCCURS DEPENDING ON clause 

is encountered while processing the File 
Section, its GN number is placed in the 
OBJSUB table. 

In addition, if an item follows a 
variable-length field and is not a new file 
or record, it is variably located. To each 
of these items, phase 22 assigns an SBL 
(secondary base locator) number from field 
SBLCTR in COMMON. At execution time, there 
are secondary base locator cells (one for 
each SBL number) in the Task Global Table 
that contain the current location of the 
variably located field. Phase 22 generates 
Q-routines to calculate initial values and 
changes in these secondary base locator 
cells. 

Whenever phase 22 generates Q-Routine 
text, a determination is made to see 
whether or not it is the first time that 



Q-Routine text has been generated for this 
record. If it is the first time, a GN 
number is generated and routine QBUILD 
places it in front of the Q-Routine text 
for identification. This routine then 
makes an entry in the QRTN table containing 
the GN and the pointer to the 0D2TBL table. 
If it is not the first time, the QRTN table 
is checked to see whether the pointer to 
the 0D2TBL table is there. If the pointer 
is missing, it is put in. 

Data A-text Q-routine identification 
elements are generated for each Q-routine 
and placed on the Data A-text data set. 
These indicate that the Q-routines are to 
be executed during initialization 
processing at execution time. 



PROCESSING ERRORS 



As phase 22 processes Data IC-text and 
ATF-text, a check is made of the clauses to 
be sure that they are. allowed to be used 
together. 

EBCDIC names for keys for table handling 
(prefix 01 or 02) are entered into the 
SRCHKY table by routine READF4 while the 
dictionary is being built. This table is 
used for syntax checking whenever the names 
are encountered. 



BUILDING TABLES FOR LATER PHASES 



Phase 22 builds eight tables for later 
phases. In addition, it uses the VALTRU 
table for syntax checking of the VALUE IS 
SERIES clause, but then leaves that table 
in storage for phase 3. The VALTRU table 
is built by phase 20 and described under 
that heading. 

The QVAR and QFILE tables are built 
during Q-routine generation and stored for 
use by phase 3; the QFILE table may be 
updated by phase 21. They are discussed 
above under "Q-routine Generation." 

During dictionary preprocessing 
(described above) , routine SRH200 creates 
the INDKEY table. 

The FDTAB table is built for phase 21. 

If the SYMDMP or TEST option is in 
effect, phase 22 primes and builds as many 
as four tables, depending on the clauses in 
the source program, for phase 25: the 
OCCTBL, MASTODO, VARLTBL, and RENAMTB 
tables. 
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PHASE 21 



Phase 21 (IKFCBL21) is the last of the five 
phases that process the Data Division. 
When phase 21 is loaded into storage, the 
dictionary is complete except that the FD 
and SD entries and the LINAGE-COUNTER 
special register are dummy entries without 
data attributes uritten by phase 22, 



The input to phase 21 includes Data 
IC-text, Data A-text (with two-byte 
prefix) , E-text, and four tables- The 
PIOTBL table, built by phase 1B, and the 
FDTAB table, built by phase 22, are used to 
supply information about files for Data 
A-text. The QFILE table, built by phase 
22, is updated if DCBs are created for 
checkpoint files. The CKPTBL table, built 
by phase 10, supplies information about 
each RERUN statement in the source program. 
Phase 21 uses the CKPTBL table to build the 
RUNTBL table, which is used in phase 51 to 
process verbs for RERUN files. 



After phase initialization, each record 
is read from SYSUT3 and the action to be 
taken is determined. For a Data A-text 
element, the 2-byte prefix attached in 
phase 22 is removed, and the element is 
copied onto SYSUT4; FD and SD elements are 
selected for processing by phase 21; all 
other records are copied unchanged onto 
SY5UT4. 



From the FD and SD Data IC-text elements 
and from information stored in the 
dictionary and the PIOTBL and FDTAB tables, 
phase 21: 



o completes FD dictionary entries from 
source program file description entries 
in the File Section. 

© Completes SD dictionary entries from 
source program sort description entries 
in the File Section. 

j o Completes LINAGE-COUNTER entries. 

© Writes the Data A-text for DCBs, DECBs, 
and buffers onto SYSUT4. 

Phase 21 also produces E-text. If an error 
(E) level message is generated and the 
CSYNTAX option is in effect, the SYNTAX 
option is forced into effect and the 
options suppressed when SYNTAX is in effect 
are turned off (see "Compiler Options" in 
the section "Introduction") . 



FD DICTIONARY ENTRIES 



The FD diction 
is filled in f 
and from FDTAB 
form. Routine 
ACCMET do most 
remaining info 
locator number 
maximum record 
fields, is fil 



ary attributes 

roi Data IC-te 
table informa 
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Q-Routine in 
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led in by the 



work area (CI) 
xt in FD form 
tion in FD 

subroutine 
sing. The 

that is, base 
dication, 
ording mode 
FST000 routine. 



The count and major code fields in the 
dictionary entry are predetermined by the 
Data IC-text. The access method field is 
filled in from the information in the 
access and organization fields of the Data 
IC-text. 



As phase 21 sets up DCB, DECB, and FIB 
identifying elements for the file 
(described in "Data A-text Elements" in 
this chapter) , subroutine ACCMET assigns 
DCB and DECB identifying numbers from the 
fields DCBCTR or DECBCT in COMMON and 
subroutine AMTXT assigns FIB identifying 
numbers from the AMICTR field in COMMON. 
These numbers are placed in the dictionary 
attributes work area. 

If the checkpoint bit in the Data 
IC-text is set to 1 , phase 21 searches the 
CKPTBL table for the entry for the 
file-name. The TYPE field in the CKPTBL 
table is tested and if the "END OF 
REEL/UNIT" option was specified, phase 21 
builds a BSAM DCB for the checkpoint file 
and makes one entry in the exit list. See 
"Creation of Exit Lists" in this chapter. 
If the "integer- 1 RECORDS" option was 
specified, phase 21 builds a BSAM DCB for 
the checkpoint file for each unique 
external name and creates a RUNTBL table 
entry from the CKPTBL table. In both 
cases, the Chain Pointer field in the 
CKPTBL table is tested and if it is not 
zero, the other entry for the file-name is 
processed as described above. After the 
RUNTBL table is completed, the CKPTBL table 
is released and the RUNTBL is made static. 
Finally, the CKPCTR cell in COMMON is set 
to the number of RERUN files with the 
"integer-! RECORDS" option. 

If DCBs are generated for checkpoint 
files and the QFILE table is present, phase 
21 increments the DCB numbers in the QFILE 
table by the number of DCBs created for 
checkpoint files. 
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While forming partial FD entries, the 
ACCMET subroutine begins building the 
SAMETB and SMRCDTBL tables. Routine FST000 
completes the fields in the tables. 

Phase 21 builds the FD dictionary 
entries, the File Information Block (FIB), 
and the IND2TBL table entry if Record key 
is specified for VSAM files. 

In building the dictionary entries, FIB, 
and IND2TBL table entry, phase 21 uses 
FS-text as its input. 



SD DICTIONARY ENTRIES 
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I LINAGE-COUNTER ENTRIES 



FIB ADDRESS ELEMENT 



Phase 21 creates a FIB address element for 
each FD entry that describes a VSAM file. 



BLOCK AND WORKING-STORAGE SECTION ADDRESS 
ELEMENTS 



Phase 21 creates a block address element 
for each FD entry that describes a basic 
access method (BSAM, BISAM, and BDAM) or a 
queued access method (QSAM and QISAM) with 
the SAME AREA clause. 

The element contains the location of the 
specified area in the object module data 
area (that is, the current value of field 
LOCCTR in COMMON) and the first base 
locator number assigned to the area. 



CONSTANT AND ADDRESS CONSTANT DEFINITION 
ELEMENTS 



Constant, address constant, and virtual 
reference definition elements are created 
to build exit lists and to specify the 
contents of DCBs and DECBs created for 
files described in FD entries. 



LINAGE-COUNTER entries are completed fron 
the Data IC-text and the dictionary. 



Creation of Exit Lists 



DATA A-TEXT ELEMENTS 



Exit lists are built of constant and 
address constant definition elements. 



Phase 21 generates the following types of 
Data A-text elements from which phase 6 or 
64 creates object text for the data area of 
the object module. 

• Block address elements 

© Constant definition elements 



The area for the exit list is reserved 
and the pointer to the list is indicated in 
the DCBEXLST field. Some of the actual 
entries to the exit list will be made at 
object time by code generated by phase 51. 

The format and contents of the exit list 
are described in "Appendix B. Object 
Module." 



9 Address constant definition elements 



® DCB, DECB, and FIB address elements 

To create these elements, phase 21 uses 
the COMMON area, the FDTAB table, Data 
IC-text, and the PIOTBL table from phase 
1B. If there is an entry for a file in the 
PIOTBL table, the Data IC-text for the file 
has a pointer to the table. The PIOTBL 
table indicates the usage of the file. In 
addition, phase 21 creates the SAMETB, and 
SMRCDTBL tables to aid in producing Data 
A-text. 



DCB'S AND DECB«S — ADDRESS AND CONSTANT 
DEFINITION ELEMENTS 



File Information Block (FIB) 



Phase 21 creates the fixed portion of the 
File Information Block (FIB) for VSAM 
files. The FIB work area is generated by 
means of the GENFIB data macro. The AMTXT, 
IDTXT, and FST000 routines fill in fields 
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of the FIB, and the BEGIN routine urites 
the FIB as Data A-text (constant 
definition) . 

Phase 21 produces Data A-text address 
elements and constant definition elements 
which are used to create DCBs and DECBs. 
The DCB and DECB address element specifies 
the location of the DCB or DECB; the 
constant definition, and address constant 
definition elements specify the contents of 
fields within the DCB or DECB, These Data 
A-text elements are used by Phase 6 or 64 
to produce the actual DCBs and DECBs. 

In addition to the location of the DCB 
or DECB, which is the current value 
(adjusted to fall on a doubleword boundary) 
of the LOCCTR cell in COMMON, the DCB and 
DECB address element contains the DCB or 
DECB number assigned to the file from cell 
DCBCTR or DECBCT in COMMON. 



specify the size o 
and DECB for files 
methods (BIS AM, BS 
is determined from 
Using the Data IC- 
21 issues constant 
which contain the 
into the fields of 
example, file-name 



f the DCB for each file 

with basic access 
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text information, phase 
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information to be placed 
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and organization. 



If the file contains a SAME AREA or SAME 
RECORD AREA clause, additional processing 
described in "Block and Working-Storage 
Section Address Elements 11 must be 
performed. 



Determination of Buffer Area Size 



The contents of the DCBs and DECBs are 
produced in several stages as information 
becomes available. The following 
discussion shows how phase 21 provides the 
contents of some of the DCB fields. DCB 
and DECB formats are given in QS/VS1 System 
Data Are as and 0S/VS2 System Data Areas . 

When phase 21 encounters the Data 
IC-text for an FD entry, the FSTXT routines 



Constant definition elements for the DCB 
and DECB entries relating to the size of 
the buffer area to be allocated for a file 
are created after appropriate calculation. 
In most cases, the compiler allocates all 
the buffer area statically at compile time. 
But in the case of QSAM or QISAM files, and 
only for those unaffected by a SAME AREA 
clause, the system allocates the buffers 
automatically at OPEN time. 
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BUFFER AREA FOR A SINGLE FILE: The size of the buffer area to be allocated for any given 
file is determined in general as follows: 

If 

c 2 = .maximum number of characters in a block (taken from BLOCK CONTAINS [ c j TO'j 
c 2 CHARACTERS) 

r 2 = ''maximum number of records in a block (taken from BLOCK CONTAINS [ri TO] 1:2 
RECORDS 9 or default =1) 

(size of ACTUAL KEY -4, if direct BSAM with Key or direct BDAM 
KEY =< 

(0 in any other case 

ri = size of record length field 

[4 if RECORDING MODE V 

,0 in any other case 
b1 = size of block length field 

(4 if RECORDING MODE V 

f in any other case 

RCD = maximum data record size for the file (calculated by the compiler from the 
maximum size of the relevant level- 01 entries) 

Then 

BLK = block size 

(c'2 if CHARACTERS option specified in BLOCK CONTAINS clause 

(b1 + (KEY + r1 + . RCD)*r 2 in any other case 

And also if 

B.CB = buffer control block size 

16 for BISAM or QISAH 

12 for QSAM if RECORDING MODE S 

1 8 for QSAM if RECORDING MODE F* V, or U 

^0 if neither BISAM, QISAK, nor QSAM 

N = total number of areas for file 

- number of alternate areas + 1 (taken froa RESERVE. . -ALTERNATE AREAS for 
QSAM or QISAH) 

/RCD * 32 for QSAM if RECORDING fiODE S 

SR = <min [RCD„ track capacity] + 8 for BSAM or BDAH if RECORDING MODE S 

\0 in any other case 

Then 

S = total buffer area for file 

= BCB * (BLK*M) + SR 

82 Section 2, Method of Operation 



Licensed Material - Property of IBM 



BUFFER AREA INVOLVING MORE THAN ONE FILE: The total amount of buffer space to be 
allocated depends? in addition, on the presence of SAME AREA and SAME RECORD AREA 
clauses. Three cases are shown below- There are n files f , where f (i=k+1 , « . . ,n) use 
VSAM, BSAM, or BDAM, and where f (i=1,...,k) use some other access method. All S , RCD , 
rl g bl 9 and KEY are determined according to the formulas and definitions shown in the 
preceding paragraph. 

lotes For automatically buffered files, as described above, the buffer area is allocated 
only if the file is currently open* 



Case 1, 



If SAME AREA was specified for all files 

total size = mas [S ] 
1<i<n 



Case 2« 



If SAHE RECORD^ AREA , was specified for all files 

k 
total size = y [ S ] + max [RCD ] + max [ bl + rl * KEY ] 

i=l l<i<n k<i<n 

where max [RCD ] represents the shared record area size 
1<i<n 

and max [ bl + rl + KEY ] represents the size of the shared 
k<i<n 

block length, record length, and key fields (if any) for 
the BSAH and BDAM files. 



Case 3« 



If neither of the above clauses was specified for any file 

n 
total size = y- [S ] 

i=l 

SAHE AREA clauses are processed by the SAME routine using the SAMETB table; SAME 
RECORD AREA clauses are processed by the SAMER routine using the SMRCDTBL table. 
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CLAUSE COMPATIBILITY 



As phase 21 processes Data IC-text, a check 
is made of the clauses to be sure that they 
are allowed to be used together. This 
section gives some examples of the checking 
that is performed. 

The clauses that can be used in an FD 
entry depend upon the access method of the 
file. For example, RECORD KEY cannot be 
used tiith a physical sequential file. 



Phase 21 contains a list of valid 
clauses for each access method, When a 
Data IC-text element for an FD entry is 
encountered, the access method for the file 
is determined. Then, as the entry is 
processed, the clauses used are checked 
against the list to determine that no 
invalid clauses for that access method have 
been used. 
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PHASE 25 



Phase 25 (IKFCBL25) is loaded only if the 
SYHDHP or TEST option is in effect. The 
major functions of phase 25 are: 

o Building the OBODOTAB table and writing 
it on the debug data set (SYS0T5) if 
the program contains any 
OCCURS.. <, DEPENDING ON clauses 



There is a DATATAB entry for each data 
item in the Data Division. There is also a 
DATATAB entry for some of the 
compiler-generated names associated with 
the Report Writer feature. There is an 
OBODOTAB entry for each unique object of an 
OCCURS... DEPENDING ON clause. 



o Building the DATATAB table and writing 
it on the debug data set (SYSUT5) . 
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PHASE 25 PROCESSING FOR THE DEBUG DATA SET 



The OBODOTAB and DATATAB tables list the 
characteristics of data items in the Data 
Division. (See "Section 5. Data Areas" 
for the format of the OBODOTAB and DATATAB 
tables) . 



Entries for either the OBODOTAB or 
DATATAB table are built in a work area 
(WRKAREA) in phase 25. Each entry in the 
OBODOTAB and DATATAB tables is moved 
directly into the debug data set buffer as 
soon as it is completed. OBODOTAB entries 
are entered in the debug data set on 
fullword boundaries. DATATAB entries are 
not aligned. 



To build the OBODOTAB and DATATAB tables, 
phase 25 uses the following tables passed 
from phase 22: 

o The D1C0T table, which contains 

information about the COBOL dictionary. 

o The HASH table which is used in 
locating dictionary entries. 

o The QITBL table^ which contains a COBOL 
dictionary pointer for every object of 
an OCCURS.. -DEPENDING ON clause. 



Certain of the DATATAB entries contain 
pointers to OBODOTAB entries. Each DATATAB 
entry for the subject of an 
OCCURS.. .DEPENDING ON CLAUSE contains a 
pointer to the OBODOTAB entry for its 
corresponding object. The pointer consists 
of the relative block number within the 
OBODOTAB table and the displacement into 
the block (in f ullwords) . Each DATATAB 
entry for a data-name subordinate to the 
subject of an OCCURS. . .DEPENDING ON clause 
also contains a pointer to the OBODOTAB 
entry for the object of that 
OCCURS.. .DEPENDING ON clause. 



o The QRTN table, which contains a COBOL 
dictionary pointer for every subject of 
an OCCURS. . . DEPENDING ON clause. 

o The RENAMTB table, which associates 
renamed data-names with their renamers. 



Building the OBODOTA B Tabl e 



o The OCCTBL table^ which contains 
information about each subject of an 
OCCURS clause. 

o The MASTODO table, which identifies all 
data-names which do not contain an 
OCCURS.. .DEPENDING ON clause 
themselves, but one of whose 
subordinate items at the next level 
does. 

© The ¥ARLTBL table, which contains an 
entry for each variable-length item. 



Phase 25 uses the OCCTBL table passed from 
phase 22 and builds the ODOTEL table in the 
process of building the OBODOTAB table. 
Phase 25 processing for the OBODOTAB table 
is shown in Figure 11. 



After the OBODOTAB table is built, 
OCCTBL table entries are completed. The 
completed OCCTBL table is used by routine 
TESTSUBS during the building of the DATATAB 
table later in the phase. 
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Building the DATATAB Tab le 



FD, SD, Working-Storage, Linkage 
Section. 



The BEGPASS routine controls building of 
the DATATAB table entries, using the 
SYMDICT DSECT. It performs the following 
functions: 

© Calls LOCNXT to read dictionary entries 

© Calls GETDEF to get generated card 
number for data-name from DEF-text. 
RENAMES items are ignored. 

© Calls BLDRD to process RD level 
entries. 

© Calls SETNAM to build fixed portion of 
entry. SETNAM calls PROCESLD to build 
variable portion of entry for LD under 



© Calls PROCRENM to process RENAMES items 
for data-name. PROCRENM calls ENTRDATA 
to move complete entry in output 
buffer. 

• Branches to TESTSUBS to determine 
subscripted items. TESTSUBS uses the 
OCCTBL table for subscripting 
information, and calls ENTRDATA as 
above. 

ENTRDATA routine calls WRITE5 to write 
buffer on SYS0T5 at end of buffer. PHASEND 
routine releases tables and repositions 
SYSUT4 when the dictionary processing is 
complete. 
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If there are ODOs, 
routine ODOBLD 
builds the ODOTBL 
table by: 



Checking the ODOCT 
counter defined in 
phase 25 for the 
number of the ODO 
entry to be processed. 



ODOCT counter 



Routine BLDOBODO builds the OBODOTAB 
table on the Debug data set from information 
stored in the dictionary, using entries in the 
ODOTBL table to locate the data items which 
comprise the OBODOTAB table. BLDOBODO 
inserts a pointer (that is, the block number and 
the displacement within the block) to each 
OBODOTAB entry into its corresponding 
ODOTBL entry. 



Phase 22 builds the OCCTBL table 
initializing it with the dictionary 
pointer of each subject of an 
OCCURS or an OCCURS... 
DEPENDING ON clause. A bit 
is set to indicate the latter. 
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Finally, using the ODOTBL table, 
routine ENDP1 fills in the OBODOTAB 
pointer for each OCCTBL table entry 
which is the subject of an ODO clause. 
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The dictionary pointer 
for the object of ODO 
is inserted into the 
ODOTBL table. 
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PHASE 3 



By the time phase 3 (IKFCBL30) is loadea 
into storage, almost all information on 
source program names in PO-text has been 
concentrated in the attributes of 
dictionary entries. Supplementary 
information is stored in the QVAR, QFILE, 
INDKEY, and VALTRU tables. Phase 3 can now 
replace each name with its attributes, as 
well as add information to verb strings 
such as SEARCH and OPEN, 



Phase 3 also performs any other 
processing that requires the dictionary. 
In this manner, storage space for the 
dictionary and for dictionary ACCESS 
routines is freed for subsequent phases. 
Phase 3's use of the ACCESS routines and 
descriptions of their functions are given 
in "Appendix A. Table and Dictionary 
Handling." 

Phase 3 processing thus consists of four 
main operations, all dependent on the 
dictionary: 

• Building a Data Division glossary of 
all source program data-names. 



© Replacing source program names with 
their attributes. 



• Performing special processing on 

procedure-names in segmented programs, 
verb strings, and verb strings with 
CORRESPONDING options. 



During the translation stage, special 
processing is performed on READ verb 
strings, OPEN verb strings; SORT and MERGE 
verb strings ADD, SUBTRACT, and MOVE verb 
strings with CORRESPONDING options; SEARCH 
verb strings; source program names and 
special registers; and syntax errors. If 
USE FOR DEBUGGING declaratives exist in the 
source program, additional special 
processing is performed on procedure names 
and ALTER verb strings. 



GLOSSARY BUILDING 



The PHINIT routine determines from the SYM 
bit of the PHZSW1 switch in COMMON whether 
a glossary has been requested. If it has 
not, the PHINIT routine tests the APPffRO 
switch in the SWITCH1 cell in COMMON to 
determine if APPLY WRITE-ONLY was specified 
in the COBOL source program. If it was, 
the PHINIT routine branches to the TSTWRO 
routine, which scans the File Section 
entries of the dictionary. For each file 
definition entry in the dictionary in which 
the WRITE ONLY switch is on, the TSTWRO 
routine sets the major code to 7 in all the 
data-name entries associated with the file. 
When all the files have been processed, the 
TSTWRO routine branches to the GLORET 
routine, which initializes the translation 
stage of processing, reads in the first 
block of PO-text, and branches to the 
PHCTRL routine. If APPLY WRITE-ONLY was 
not specified, the PHINIT routine branches 
to the GLORET routine, and processing 
proceeds as described above. 



* Performing any syntax analysis that 
requires the dictionary. 



Diagram 4 shows the overall flow of 
phase 3 operations. Phase 3 input consists 
of PO-rtext and E-text on SYSUT2, and the 
dictionary and the QFILE, QVAR, INDKEY, 
IND2TBL, and VALTRU tables in storage. Its 
output consists of P1-text and E-text on 
SYSUT3, DEF-text on SYSUT4, the glossary on 
SYSPRINT, and the DTAB table in storage. 



After the PHINIT routine receives 
control from phase and performs 
initialization for the phase, operations 
occur in two stages: glossary-building 
under the control of the GLOSRY routine, 
and translation of PO-text into P1-text 
under the control of the PHCTRL routine. 



If a glossary has been requested, the 
PHINIT routine branches to the GLOSRY 
routine, which prints out the glossary on 
SYSPRINT and simultaneously performs the 
same function as the TSTWRO routine. 



The GLOSRY routine scans the dictionary 
with the use of the DICND1 field in COMMON 

(pointing to the last Procedure Division 
entry created by phase 1B, or UPSI entry 
created by phase 22) and the DICND2 field 

(pointing to the last Data Division entry 
created by phase 22) . As each data- name 
is encountered in the dictionary, it is 
placed in location PRLINE along with 
pertinent information from its attributes. 
Phase 00 is then called to print PRLINE. 
When necessary, the GLOSRY routine converts 
numbers in the attributes from one mode to 
another. 
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TRANSLATION FRO M PO-TEXT TO P1-TEXT 



Before the GLORET routine branches to the 
PHCTRL routine for the translation stage of 
phase 3 operations, it stores the address 
of the first PO-text element in location 
PNTINo The GETNXT routine moves the 
identification code of the element (the 
first half word) into location GOTTEN. The 
PHCTRL routine then tests GOTTEN to 
determine the processing that should be 
performed. 



If the element is a READ or RETURN verb, 
the PHCTRL routine calls the READFN routine 
to insert the appropriate record-name after 
the file-name. If the element is an ADD, 
SUBTRACT, or MOVE verb followed by an 
element for CORRESPONDING, the PHCTRL 
routine copies out the entire statement as 
P1-text, using the SEARCH routine to 
determine the uniqueness of the operand. 
It uses the CORRTN routine to break down 
the statement into simple statements, each 
containing one of the matching pairs of 
elementary items. 



If the element is a source program name, 
the PHCTRL routine calls the SEARCH routine 
to determine whether it is unique and then 
calls the GENOP routine to replace the name 
with its dictionary attributes and write it 
out as P1-text. If the name is a special 
register, however, the SEARCH routine 
generates the appropriate P1-text element. 

If the PHCTRL routine encounters a 
SEARCH verb, it calls the STSRCH routine. 
If the element is a source card number, the 
PHCTRL routine places the number in CARDNO 
and then writes the element out unchanged 
on SYSDT3. All remaining elements are also 
written out on SYSUT3 unchanged. 

If the element is a file-name in an OPEN 
verb string, the PHCTRL routine sets a 
switch for the GENOP routine to add 
information for label and error processing 
to the string. 

If the element is a VSAH file-name, the 
FILENM routine initializes the Key Clause 
work area. This information is used by the 
PHCTRL routine to determine that the file 
specified in a subsequent KEY clause is a 
VSAM file and by the DATANM routine to 
determine that the data-name specified in 
the KEY clause was specified on a RECORD 
KEY data-name. 

The CORRTN and STSRCH routines each 
process the entire string associated with 
its special condition. They use the SEARCH 
routine to determine whether the names in 
the verb string being processed are unique. 



All these routines use the GENOP routine 
to replace the names with their dictionary 
attributes and write them out as P1-text 
elements. The GENOP routine also generates 
DEF-text for procedure- names if necessary. 

The processing routines perform any 
diagnostic analysis that requires the 
dictionary. When a routine detects an 
error requiring action parameters that only 
a subsequent phase can determine, it 
substitutes an error symbol for the element 
in error. When it detects an error 
condition for which it can provide an 
entire message, it calls the ERROR routine 
with appropriate error parameters before 
returning to the PHCTRL routine. 

Nhen the PHCTRL routine detects an end- 
of-file condition, it branches to the EOF 
routine, which releases tables and returns 
to phase 00. 



READ Verb String s 



The READFN routine checks the next PO-text 
element in the input buffer after a READ or 
RETURN verb to determine whether it is a 
file-name. If it is not, the READFN 
routine urites the verb element unchanged 
on SYSUT3 and returns to PHCTRL. Phase 4 
can detect the error without the 
dictionary. 

If a file-name does follow the READ verb 
element, the next dictionary entry after 
the file-name entry is checked to determine 
whether it is a record- name. If it is, the 
GENOP routine is used to build a Pi-text 
data-name reference element for the record 
and to write it out after the file-name* 
In the case of multiple records, the 
attributes of the longest record in the 
file are used. An error symbol is 
substituted for the record-name attributes 
if the dictionary entry following the file- 
name is not a record-name. 



Statemen ts wit h CORRESP OND ING Options 



The CORRTN routine checks to determine 
whether the operands in the source 
statement are valid. It then matches the 
subordinate, lower level data-names defined 
within the source statement hierarchies, 
and writes a P1-text statement for each 
matching pair. This, in effect, breaks 
down the CORRESPONDING option source 
statements into a series of similar 
statements, which together accomplish the 
operations implied by the source statement. 
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Two sample CORRESPONDING PO-text 
statements are given in Figures 12 and 13 
along with the resulting P1-text. The step 
numbers given to the left of these figures 
refer to the procedure sequence below. 

Ste p 1 : The PHCTRL routine writes otffc as 
P1-text the entire statement up to the next 
critical program break. The source 
statements are put out so tha<t phase 4 can 
perform a syntax check on thep. 



I 

I 

I £Iz±e x t : 

I 

|Step 1: 

! 

{Step 5: 

I 

jStep 5s 

i 

(Step 5: 

i 

(Step 5s 

i 

| Step 5: 

I 

| Step 5s 

I 

| Step 5: 

I 

(Step 6: 



ADD CORRESPONDING R TO K 

ADD CORRESPONDING R TO K 
ADD R TO K 
ADD R1 TO K1 
ADD R2 TO K2 



ADD Rn TO Kn 
CORRESPONDING 



Figure 12. P1-text Resulting from an ADD 
CORRESPONDING Option 

Step 2t Operand-1 and operand-2 are 
checked to ensure that they are both group 
items and valid data-names. Various 
procedures are followed, depending on what 
the checks reveal. 

If operand-1 is not an EBCDIC name or 
data operand, no more processing is done on 
the statement, and the next PO-text element 
is read in. Phase 4 can detect this type 
of error. 

If operand-1 is not an EBCDIC name but 
is a data operand (for example, a literal) , 
the CORRTN substitutes an error symbol for 
the operand in P1-text, calls the ERROR 
routine to put out error text, and reads in 
the next PO-text element. Phase 4 can 
detect this error, but the error symbol 
indicates that phase 3 has already produced 
an error message. 

If operand-1 is not a group item, error 
text is generated, an error symbol is 
substituted for the operand, and the next 
PO-text element is read in. Phase 4 cannot 
detect this error. 



If operand-1 is valid, but operand-2 is 
neither an EBCDIC name nor a data operand, 
an error symbol is substituted for 
operand-2 and a P1-text string is produced 
as follows: 

Verb 

Attributes 
Preposition 
Error symbol 



| P 0- te x t : 

I 

I 

! P 1-te xt : 

I 

IStep 1: 

I 

IStep 5: 

I 

IStep 5: 

I 

IStep 5: 

I 

IStep 5: 

1 



MOVE CORRESPONDING 1(1) TO B 

MOVE CORRESPONDING A(1) TO B 
HOVE A(1)+ TO BE- 
HOVE A(1) < TO B< 



I IStep 5: 
I i 


| IStep 5: 
i i 


I |Step 6: 

1 L, _ ,r- r,, _, 


j Figure 13. 



MOVE A(1) o TO B° 
CORRESPONDING 



P1-text Resulting from a MOVE 
CORRESPONDING Option 



The word CORRESPONDING is written after 
the string, and then the next PO-text 
element is read in c The string tells phase 
4 that no matching pairs were produced 
because of an invalid operand-2. 



If operand-1 is valid but operand-2 is 
not a group item, then error text, a 
P1-text string containing an error symbol, 
and the word CORRESPONDING are all written 
out, and the next PO-text element is read 
in. 



Ste p 3 : Assuming both operands are valid, 
the subject (operand-1) hierarchy in the 
dictionary is scanned for corresponding 
items at the same relative level in the 
object (operand-2) hierarchy. 

Since the source statement operands have 
already been checked by the dictionary 
handling routines, the CORRTN routine knons 
which operand has the highest level 
dictionary pointer. Before initiating the 
object hierarchy search, it ensures that 
the subject hierarchy pointer is at a lower 
level than that of the object hierarchy. 
If this is not the case, the operand-2 
group becomes the subject hierarchy. This 
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is done to optimize the scan, since the 
dictionary handling routines look for the 
latest entry first through the HASH table 
(see "appendix A. Table and Dictionary 
Handling") • 



If a group item in the subject hierarchy 
does not have a matching name at the same 
level in the object hierarchy, the rest of 
the items in the group are skipped. This 
is done because there is no possibility of 
finding a match for any of the items in the 
group. 



Step 4 s The subordinate items in the 
hierarchies are checked for conformity to 
the source language regulations. (For 
example, does the item contain a REDEFINES 
or OCCURS*.. DEPENDING ON clause? If it 
does,, ignore the item.) No error symbols 
or messages are generated unless no match 
is found for any of the subject hierarchy 
items. In this case, a P1-text string 
(verb, error symbol, preposition, error 
symbol) is written out to tell phase 4 that 
there were no matching items. 



Step 5: Uhen a correspondence is found, 
assuming both items are valid, Pl-text 
statements similar to the source statement 
are generated. 



Step 6; If there are no more corresponding 
items, a P1-text element for CORRESPONDING 
is written out, and the next PO-text 
element is gotten. The word CORRESPONDING 
tells phase 4 that the previous element was 
the last of a complete CORRESPONDING 
statement,, 



SEARCH Verb Strings 



For each table to be searched there is an 
entry in the INDKEY table containing such 
information as the length of the table, as 



well as pointers to attributes in the 
dictionary for all the data items 
associated with the table. The STSRCH 
routine adds some of this information and 
attributes to the SEARCH verb string. 

The STSRCH routine first writes the verb 
element out on SYSUT3 and then examines the 
element that follows. This element should 
be an EBCDIC name. If it is not, the 
STSRCH routine abandons processing the text 
as a SEARCH string and returns to the 
PHCTRL routine to process it in the normal 
manner. No error text is produced, as 
phase 4 can detect the error. 

If the element is an EBCDIC name, the 
STSRCH routine uses the SEARCH routine to 
determine that the name is unique. During 
its processing the SEARCH routine places 
the pointer to the dictionary entry for the 
name in location ID1PTR. The STSRCH 
routine uses this pointer as an argument to 
find an entry in the INDKEY table that 
contains the same pointer. This entry, in 
turn, contains pointers to entries in the 
dictionary for all the index-names, keys, 
and OCCURS... DEPENDING ON objects 
associated with this SEARCH verb string. 

Figure 14 shows the PO-text input for a 
SEARCH format-1 verb string including a 
VARYING clause, along with the resulting 
P1-text output. Note that either a data- 
name or a literal may be inserted after the 
element for identifier- 1 to express the 
length of the table. Also, depending on 
the type of EBCDIC name in the VARYING 
clause, any of three combinations of 
P1-text elements may be inserted into the 
string- 
Figure 15 shows input and output for the 
SEARCH format-2 (SEARCH ALL) string. 

Note that although in the source program 
the SEARCH statement may continue beyond 
the AT END through a number of conditional 
and imperative statements, the STSRCH 
routine stops processing before the AT END 
and returns to the PHCTRL routine to handle 
the remainder of the statement. 
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Ph ase IB Out put Phase 3 Output Meaning of Element 



Processing by u . Phase ro 3 



r— t 1 

|44 |5£| 
i i j 



i 1 1 

|23|EBCDIC Name| 
i 1 1 



i 1 1 

| 54 |88 | 



i r* 1 

| 23 | EBCDIC Name| 
i 1 1 



OR 



|23|EBCDIC Name! 

I J ; J 



|44|5E| 
i 1 1 



Verb, SEARCH format-1. Copied out unchanged. 



i 1 -i 

| 30|Attributes| 
i i i 



i 1 1 

| 30|Attributes| 

L_ — L .11 



Data-name, identifier- 1 
(table to be 
searched) . 

Data-name, object of 

OCCURS... DEPENDING ON. 



OR 



|32JLiteral | 



Name replaced by its 
dictionary attributes. 



Attributes taken from 

dictionary, using pointer 
in INDKEY table entry 
that contains pointer to 
identifier-1 dictionary 
entry. 



Represents maximum Literal taken from INDKEY 
number of occurrences. table entry that contains 

pointer to identifier-1 
dictionary entry. 



|54|88| 
i i j 



|36|Attributes| 
i i 1 



VARYING 



Data -name for 

index- name- 1 that 
belongs +^ table. 



Copied out unchangedo 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry | 
for identifier-1. j 



Data-name for 

index- name- t ' that does 
not belong to table, 
if specified. 



r — i -i Data-name for 

| 36 | Attributes | index- name- 1 that 

1 I > belongs to table. 



r 1 1 

| 54|88| 
i 1 1 



VARYING 



I 

Name replaced by attributes! 

found in dictionary using | 

pointer in INDKEY entry f 

for identifier-1'. | 

I 

I 

Added for phase 4 | 

convenience. | 



i 1 1 

| 36 | Attributes | 
i i i 



I 
1 

Data-name for Name replaced by attributes! 

index- name- 1 that does found in dictionary. f 

not belong to table, j 

if specified. j 

, . — , .„__j 



Figure 14. P1-text Written for SEARCH Format-1 PO-text (Part 1 of 2) 
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S Ph ase 1B Output P hase 3 Output Meaning of Element 
OR 



Data-name for 

identifier-2 that 
does not belong to 
table* if specified. 



Processing by Phase 3 



| 23 JEBCDIC Name | 
i _j i 



I t i 1 

!|54j70| 

a i «... ..- 1 


I 

i 

! 

1 , . 


M, L, , J 



g j J 

I 36| Attributesl 

s a i 



8 j 1 

| 5U|88| 

I L— I 



Data-name for 

index- name- 1 that 
belongs to table. 



VARYING 



j j j Data -name for 

I 30 | Attributesl identifier-2 that 

i s 1 does not belong to 

table, if specified. 



8 -HJ 1 

j54|70| 



|54|A1| 



AT 



END 



Name replaced by attributes 
found in dictionary using 
pointer in INDKEY entry 
for identif ier-1 . 



Added for phase 4 
convenience. 



Name replaced by attributes 
found in dictionary. 



Copied out unchanged by 
PHCTRL. 



Copied out unchanged by 
PHCTRL. 



Figure 14 „ P1~text Written for SEARCH Forma t-1 PO-text (Part 2 of 2) 
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Phase 1B Output Phase 3 Output Meaning of Element 



|44|5F| 

L !_*— J 



I \ 1 

!<*4|5F| 

I L— J 



Verb, SEARCH forraat-2. 



Processing by Phase 3 
Copied out unchanged. 



, — -j j f , , Data-name, identifier- 1 Name replaced by its 

|23|EBCDIC Hamef j 30 j Attributes! (table to be dictionary attributes. 

i j § i a 1 searched) . 



i 1 1 

|54|70| 

i i f 



« 1 « 

|54|A1| 
i 1 i 



L. 



r 



| BB | Literal | 



8 1 1 

1 30 1 Attributes | 



Literal representing 
number of keys* 



Attributes of first 
key. 



1 8 1 

| 30 | Attributes! 



Attributes of last 
key. 



r- — i ■ — i First index-name 

| 36 1 Attributes! attached to table. 



8 1 j 

| 30 | Attributes! 

8 L J 



OR 



Data name* object of 

OCCURS... DEPENDING ON. 



r — s 1 Literal representing 

! 32 ! Attributes! maximum number of 
1 »■ 1 occu rr en ces . 



I 54|70| 



e s 1 

| 54 | A 1 1 



AT 



END 



Literal taken from INDKEY 
entry that contains 
pointer to identifier- 1 
dictionary entry. 

Hame replaced with 

dictionary attributes 
pointed to in entry 
containing pointer to 
identifier-1 dictionary 
entry* 



Name replaced with 

dictionary attributes 
pointed to in entry 
containing pointer to 
identifier-1 dictionary 
attribute. 

Name replaced tfith 

dictionary attributes 
pointed to in entry 
containing pointer to 
identifier-1 dictionary 
attribute. 

Attributes taken from 
dictionary using pointer 
in INDKEY table entry 
that contains pointer to 
identifier-1 dictionary 
entry. 



Literal taken from 
INDKEY table entry 
that contains pointer to 
identifier-1 dictionary 
entry. 

Copied out unchanged by 
PHCTRL* 



Copied out unchanged by 
PHCTRL. 



Figure 15. P1-text Written for SEARCH Format-2 PO-text 
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The SEARCH routine aoves the source program 
na"ie it is to analyze from the input buffer 
to the location WKAREA. It then determines 
from the dictionary -whether the name is 
unique. If it is, the SEARCH routine 
returns to the PHCTPL routine to replace 
the name with its dictionary attributes and 
put the result out as P1-text. 

Special Registers: If the name is not in 
the dictionary, the SEARCH routine searches 
for it in the SPCREG area, which contains 
the names of special registers „ Associated 
with each name is a pointer to dummy 
attributes in the REGATT area. The SEARCH 
routine replaces the special register name 
with its dummy attributes and calls the 
GENDAT routine to have them written as 
PI -text. 



On al if y i &g i _H aa es : 



n PO-text, a name and 
Its qualifiers are in reverse order of 
their appearance in the source program,, 
When the SEARCH routine finds that a name 
is a qualifying name, it calls the QU&LIF 
routine. The QUALIF routine searches the 
dictionary for each name in the string of 
qualifying and qualified names. If the 
qualified name is truly unique, the 
location of its attributes in the 
dictionary is returned to the PHCTRL 
routine* Its qualifiers are discarded- 



Replacing Names with Dictionary Attributes 



The PHCTRL routine calls the GENOP routine 
to replace a name with its dictionary 
attributes and then write the result out in 
PI -text format through the GENDAT routine. 

Except for condition-names (which are 
never passed) and special registers (sihich 
contain zeros) , the pointer to the 
dictionary entry itself is appended to 
these attributes. Although the dictionary 
does not exist after phase 3 operations, 
phases 50 and 51 use the pointer as an 
argument in syntax analysis, and phase 6 or 
64 uses it as an identification code. 

The GENOP routine determines from the 
attributes which kind of P1-text element 
should be generated. Special processing 
for particular types of names is described 
below. 



QVAR tabic-: pointer is usee! to locate the GN 
number to be added to the attributes. In 
the case of an elementary item, the GN 
number in the entry pointed to is used. In 
the case of a group item, the GN number in 
the entry for the next subordinate item is 
used . 

Fi le-n ames: File-name reference items are 
generated for file-names. If the Q- Routine 
bit in the attributes is on, the QFILE 
table is searched, using the pointer in the 
attributes, for a GN number to be added to 
the attributes. 

If the OPENStf location contains a 1 (set 
by the PHCTRL routine when it encounters an 
OPEN verb element) s the GENOP routine 
searches for the GN numbers following the 
file-name element for label and error 
processing. These numbers are inserted 
between the attributes and the dictionary 
pointer in the resulting Pi-text element. 

If the file is a VSAH file, a VSAH 
file-name reference element is generated. 

CD-names s CD-name reference items are 
generated for file-names. If the Q-Routine 
bit in the attributes is on, the QFILE 
table is searched, using the pointer in the 
attributes, for a GM number to be added to 
th e at tr ib u tes . 

]?! gggf! »£ g~ n a ggg ; When the name is a 
procedure- name reference in a segmented 
program* GENOP routine searches the 
dictionary for the section in which the 
name is defined. It then adds the priority 
number of the section to the attributes of 
the procedure- name reference. 

Condition- names; When the GENOP routine 
encounters a condition-name, it creates a 
P1-text string that associates the item 
with the values for which it is to be 
tested. It uses pointers in the dictionary 
attributes of the condition-name to find 
the dictionary attributes of the item, as 
well as the test values in the VALTRU 
table. Figure 16 shows the PO-text input 
and P1-text output for a condition-string 
without a VALUE... THRU clause. Figure 19 
shows the PO-text and P1-text for a 
condition-string with a VALUE... THRU 
clause . 



ling 



Data-names: Data- name reference elements 
are generated for data-names. A unique 
data-name reference element is generated if 
dataname was specified in a USE ERROR 
DECLARATIVE with giving option. If the 
Q- Routine bit in the attributes is on, the 



DEBUG-ITEM references are only valid in USE 
FOR DEBUGGING declaratives. During phase 3 
processing when the last such declarative 
has been processed (END DECLARATIVES or 
non-USE FOR DEBUGGING declaratives 
encountered) the dictionary entries for a 
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DEBUG-ITEM are invalidated (ENDDBG 
routine) . Further references will result 
in diagnostics. The ENDDBG routine 
invalidates dictionary references to fields 
of the DEBUG-ITEM special register by 
inserting an invalid character as the first 
character of each debugging special 
register in the dictionary. ENDDBG will 
guarantee that Procedure Division 
references to any DEBUG-ITEM field will be 
flagged. 



If ALL PROCEDURES was specified in any 
USE FOR DEBUGGING declarative, DTAB is 
primed and DTAB entries created for all 
proceure-names encountered, except those in 
USE FOR DEBUGGING declaratives. PN 
definition handling is processed by the 
procedure- name handling routine (PRONAM) . 
If the program has WITH DEBUGGING MODE 
specified, and one of the debug 
declaratives has specified ALL PROCEDURES, 
and this PN definition is not a debug 
procedure, then build and add an entry to 
the DTAB for phase 35. 

The ALTSCAN routine appends a BCD 
literal element after each target PN in an 
ALTER statement. Phase 35 uses this 
routine to build a debug verb for ALTER 
procedure- names. ALTSCAN will loop until 
an error or all clauses of the ALTER 
statement are processed. Process for each 
iteration: 

| © Expects first PO element to be PN1 

| ® Checks for and skips by TO PROCEED TO 



® Expects next PO element to be PN2, 



@ If valid ALTBCD, builds and generates 
BCD literal. For PN2 after PN2 in 
P1-text. 

| ® Any deviation causes exit from ALTSCAN 



Error Processing 



The processing routines branch to the ERROR 
routine when E-text for a complete 
diagnostic message can be generated* The 
parameter list following each branch 
consists of the message number, the 
severity code, a count of the parameters if 
any r and the addresses of the parameters. 
The ERROR routine builds E-text for a 
message in location ERMSG, calls phase 00 
to write it out on SYSUT3 along with the 
P1-text, and then returns to the calling 
routine. Phase 3 also sets the ERRSEV cell 
in COMMON to the highest error severity 
level encountered. If an error (E) or 
disaster (D) level message is generated and 
the CSYNTAX option is in effect, the SYNTAX 
option is forced into effect and the 
options suppressed when SYNTAX is in effect 
are turned off (see "Compiler Options" in 
the chapter "Introduction"). The format of 
E-text is shown in "Section 5. Data Areas" 
and the manner in which diagnostic messages 
are later generated from it is described in 
the chapter "Phases 70, 71, and 72." 
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Phase 1B Output Ph as e 3 Output Mean ing of Element 



r 1 1 

|54|07j 



i j 1 

1 23 IEBCDIC Name | 



Imperative 
statement 



r 1 1 

|54|07| 



IF 



C ond i t io n- na me 



| j j 

| 30 | Attributes! Elementary iten 



| 50 f 06| 
i i 1 



EQUALS 



!* | Literal 
i a 



| First value to be 
-J tested . 



J54|54| 

8 I 1 



fl 50 f 06 | 

i a i 



OR 



EQUALS 



|* | Literal 
i s 



Imperative 
statement 



Last value to be 
tested . 



Processing by Ph ase 3 
Copied unchanged by PHCTRL, 



Uses pointer in dictionary 
entry for condition-name 
to find entry for 
elementary item. 

Writes elementary item 
attributes from its 
dictionary entry. 



GENOP generates. 



Taken from VALTRU table 
entry pointed to in 
condition- name 
attributes. 



GENOP generates. 



GENOP generates. 



Taken from VALTRU entry 
pointed to in 
condition- name 
attributes. 

GENOP returns to 
PHCTRL to handle 
remaining processing. 



*Code identifying type of literal. 



Figure 16. P1-text Written for Condition- String Testing Multiple Values without Using 
the VALUE... THRU Clause 
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Phase 1B Output Phase 3 Outp ut Meaning of Element 



i 1 1 

I 54 | 07 | 
i i, i 



i r j 

| 54 1 07 | 
t_ i i 



i 1 1 

| 23| EBCDIC Name| 
i 1 1 



IF 



Condition- name 



| 30 | Attributes | Elementary item 
i 1 i 



? 1 1 

|54|5C| 



| 50 | 0A | 
i i j 



i 1 — ■ 1 

|* | Literal | 
i 1 -j 



NOT 



LESS THAN 



First value in 
THRO option. 





r — r— i 
|54|5D| 

1. -..L. J 


AND 




1 1 1 

|54|5C| 

i , ,, i, j 


NOT 




| 501 08 | 

l X- -J 


GREATER THAN 




i i i 

|* | Literal! 
i i i 


Second value in 
THRU option. 


Imperative 
statement 


Imperative 
statement 



Processing by Phase 3 



Copied unchanged by PHCTRL. 



Uses pointer in dictionary 
entry for condition-name 
to find entry for 
elementary item. 



Writes elementary item 
attributes from its 
dictionary entry. 



GENOP generates. 



GENOP generates. 



Taken from VALTRU entry 
pointed to in 
condition-name 
attributes. 



GENOP generates. 



GENOP generates. 



GENOP generates. 



Taken from VALTRU table 
entry pointed to in 
condition- name 
attributes. 

GENOP returns to PHCTRL to 
handle remaining 
processing. 



*Code identifying type of literal. 



Figure 17. Pt-text Written for Condition-String with VALUE... THRU Clause 
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PHASE 35 



Phase 35 (IKFCBL35) processes the Procedure 
Division for debugging. It first scans the 
Declaratives Section for USE FOE DEBUGGING 
verbs and their operands, then adds to the 
source program^ text, the verb necessary 
to cause invocation of the USE FOR 
DEBUGGING declaratives. Phase 35 is 
invoked only if WITH DEBUGGING MODE is 
specified, and at least one USE FOR 
DEBUGGING declarative is present at 
completion of processing, all tables are 
released and control is returned to phase 
00. 



Phase 35 is invoked by phase 00 to 
process USE FOR DEBUGGING declaratives, 
verifying each operand. Phase 35 scans 
Procedure Division IC-text for data items 
for which debugging is specified, and 
generates debugging text for processing by 
later phases. 

IKFCBL35 first scans the Declaratives 
Section for USE FOR DEBUGGING verbs, 
analyses each verb, and makes an entry in 
the DTAB for each valid operand. If at 
least one valid operand exists in a USE FOR 
DEBUGGING sentence, a USE FOR DEBUGGING 
verb is generated into the P1A-text. Upon 
reaching the end of the debug declaratives, 
the DTAB is complete and the rest of the 
program is scanned for references to USE 
FOR DEBUGGING operands. 

Two types of debugging verbs are 
generated as references to an operand of a 
USE FOR DEBUGGING declarative are 
encountered: 

1. The DEBUG transfer of control verb 

consists of a verb code and an option 
byte. The option byte indicates the 
type of transfer of control. Phase 35 
generates DEBUG transfer verbs for the 
situations listed below. If at least 
one procedure-name is a USE FOR 
DEBUGGING operand, then: 

• Prior to a procedure-name 
definition, if it is a USE FOR 
DEBUGGING operand, but not if it is 
a declarative section, or if it is 
preceded by a COBOL conditional 
sentence, unconditional GO 
statement, END-DECLARATIVES control 
break, or an EXIT verb. 

• Prior to a GO statement 

• Prior to an I/O and/or conditional 
sentence. 



o Following a conditional sentence. 

2. The DEBUG verb that later causes a 

call to the DEBUG subroutine (ILBOBUG) 
to be made. Each call to ILBOBUG 
causes at least one DEBUG declarative 
to be invoked. The operands of this 
verb are the procedure-name number and 
priority number for the declarative to 
be invoked, an alphanumeric literal 
uhich will be the contents of the 
debug-name, a dictonary attributes 
item (dummy, if a DEBUG verb is 
produced for a procedure-name) , or an 
alphanumeric literal giving the 
contents of DEBUG-contents, and an 
optional byte giving additional 
information about the USE FOR 
DEBUGGING operand reference. 

When specified as a USE FOR DEBUGGING 
operand, the following items cause a DEBUG 
verb to be generated: 

o Any explicit reference to a QSAM or 
VSAH file-name, or a CD-name. 

o A Procedure-name reference that is the 
first operand of an ALTER verb. 

| o a procedure- name definition. 

o Any explicit reference to an identifier 
when specifying, ALL REFERENCES...; 
otherwise, only when the identifier is 
changed. 



Note: Certain verbs, because of where the 
language specifies the declarative to be 
invoked, reguires special processing. 

In general, the DEBUG declaratives are 
invoked prior to the execution of a 
procedure- name and after the execution of a 
verb. 

Special processing is reguired for any 
USE FOR DEBUGGING operand identifier that 
is indexed or subscripted, so that it may 
be properly handled by phase 50. A special 
bit is set on in the attributes indicating 
that this identifier has both subscripting 
and debugging. Also, a DBGSS (debugging 
subscript) verb string is built and 
generated preceding P1-text containing any 
such USE FOR DEBUGGING operands. 

Source output (P1-text) and DEBUG output 
are accumulated in separate tables until 
the proper time (usually end-of-verb) when 
both tables will be generated to PlA-text. 
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No te ; At any given generation moment, only 
one DEBUG verb will be put to P1A-text per 
unique USE FOR DEBUGGING operand 
referenced , unless the operand is a 
subscripted or indexed identifier. 

Some strings of debugging text are 
produced twice (for example, when a 
declarative must be invoked on the true and 
false paths of a condition) • 



| TABLE HANDLING 



P1TEXT ; Phase 35 creates this table and 
uses it to accumulate each verb string 
until debug processing for it has been 
completed, at which time the text in this 
table is generated. Phase 35 deletes 
P1TEXT upon completion of processing. 

DTAB; Phase 35 builds or adds to the DTAB 
table, saving the data descriptions of all 
valid operands found in the USE FOR 
DEBUGGING sentences. Upon completion of 
building DTAB (at end of DEBUG declaratives 
or END declaratives) it scans the remaining 
P1-text for operands that match the entries 
in DTAB. Whenever a match occurs, 
information from the DTAB entry is used to 
build a debug verb for the operand. Phase 
35 deletes DTAB upon completion of 
processing. 

DBG TXT; Phase 35 creates this table and 
uses it to accumulate DEBUG verb text while 
processing an input verb string. Phase 35 
deletes DBGTXT upon completion of ^ / 
processing. 

VRBDN: Phase 35 creates this table and 
uses it to describe each data item 
encountered by the current input in P1-text 
verb string. Phase 35 deletes VRBDN upon 
completion of processing. 



PH35VRBS; An internal t 
analyzing a verb string 
DEBUGGING operands. PH3 
proper syntax analysis r 
specific verb, and its i 
control flag settings. 
PH35VRBS contains the CO 
verb, initial analysis p 
settings, address of the 
subroutine (VRBANALZ) , a 
the entry. 



able used when 
for USE FOR 
5VRBS defines the 
outine for a 
nitial process 
Each entry in 
BOL code for the 
rocess control flag 

verb analysis 
nd the length of 



When phase 35 encounters a verb in the 
P1-text input stream, the PH35VRBS table is 
searched for the proper entry corresponding 
to the verb. The entry, with its initial 
settings is then copied into a work area, 
VRBINFO, which is utilized by phase 35 
during verb analysis. 



PROCESSING ROUTINES 



PHCTRL; The Phase Controller routine 
(PHGTRL) controls the processing of phase 
35. Upon entry to phase 35, PHCTRL 
performs the following initialization 
functions; 

o Prime the DTAB table if not previously 
done by phase 30 

• Prime the P1TEXT table 

• Prime the DBGTXT table 

o Prime the VRBDN table 

PH 35IN IT; A subroutine of PHCTRL, 
initializes processing, including Tamer 
table priming. PHCTRL transfers control to 
the ANLZUFDS routine, which analyzes the 
USE FOR DEBUGGING sentences and builds a 
DTAB table entry for each valid operand. 
When control is returned to PHCTRL (no more 
USE FOR DEBUGGING sections) , it will 
determine the category of the next input 
element and transfer control to one of two 
routines; GOTAVERB (processes all verbs 
encountered) , or PNDEFRTN (checks a PN 
definition for debugging and may generate a 
debug transfer verb as well) . 

AN LZUF DS; A subroutine of PHCTRL, is 
called to scan the entire verb sentence for 
USE FOR DEBUGGING declaratives (P1-text) 
for proper operands until the end of all 
debug declaratives, or END DECLARATIVES is 
found. The VRBANALZ routine is used to 
handle syntax variations, GETDI is used to 
build the necessary VRBDN entries and debug 
text, and GENTXT is used to generate the 
contents of the P1TEXT and DBGTXT tables to 
output. The P1-text is read until the 
first section PN definition in the 
declaratives is found. For each USE FOR 
DEBUGGING declarative, the USE FOR 
DEBUGGING sentence is examined. A USE FOR 
DEBUGGING statement must begin with a 
section definition. Each operand is 
checked for validity (for example; not RD, 
index-name or special register) . ANLZUFDS 
invokes CKUFDOPS for each USE FOR DEBUGGING 
declarative. In turn, CKUFDOPS invokes 
CKUFDOP for each operand in the sentence. 
CKUFDOP verifies the operand as valid and 
unique (QSAM or VSAM file-name, CD-name, 
PN, data-name), then adds an entry to the 
DTAB table via the DTABADD routine. If a 
PN, the BGALLPRC bit in COMMON must be 
tested to verify that ALL PROCEDURES had 
not been specified. If so, the PN must be 
diagnosed as invalid and discarded. A PN 
will be entered as FF, plus the PN number 
in the DICTPTR field of the DTAB entry. 
For a non-PN, the DICTPTR field contains 
the dictionary pointer. A special check 
must be made against each identifier to 
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ensure that PAGE-COUNTER , LINAGE-COUNTER, 
LINE-COUNTER, or PRINT-SWITCH have not been 
used as an operand of the USE, if so, they 
are diagnosed and discarded. 

Once it has been determined that an 
identifier is valid, the size of the 
operand must be compared to the MAXBGITM 
cell in COMMON- At the end of phase 35, 
MAXBGITM will contain the size of the 
largest element for which debugging is 
validly reguested. (Maximum allowed, 
however is 32K-57.) 

If at least one operand in the sentence 
is valid, a USE FOR DEBUGGING verb is 
generated. Then input text, up to the next 
declarative section or END DECLARATIVES, is 
generated to output unchanged. When 
END-DECLARATIVES or a non-USE FOR DEBUGGING 
declarative section is encountered, control 
is returned to PHCTRL. 



GO TAVERB; determines the verb and passes 
control to ANLZVRBS. 

ANLZVRBS : ANLZVRBS is a subroutine of 
PHCTROL that processes complete P1-text 
verb strings for debugging. This 
subroutine searches each verb string 
looking for operands that were specified in 
a USE sentence. VRBANLZ routines are 
invoked to handle specific SYNTAX and 
processing variations. ANLZVRBS will find 
other verbs in the internal phase 35 table 
(PH35VRBS) , and copy the initial VRBANALZ 
control flags from the table. (PH35VRBS 
defines the proper syntax analysis routine 
for a specific verb and its initial process 
control flag settings. Each operand 
produces only one debug verb for its use in 
a given verb string (except subscripted or 
indexed variables) . 

P1-text is kept in the P1TEXT table as 
it is being read. The debug verb text is 
also accumulated in the DBGTXT table as 
debugging operands are matched in the verb 
string. The P1TEXT table, and the DBGTXT 
table are generated when end of verb is 
determined (except for PERFORM, IF, ON, and 
SEARCH) . End of verb is determined by 
searching for; card number, verb, or a 
special keyword (AT, END, NO (in RECEIVE), 
DATA, WHEN, THEN, or AFTER (in PERFORM)). 
When one of these occurs, the following is 
the seguence of the generation of tables: 

« For verbs that end in an IF, UNTIL, or 
WHEN condition, or GO TO DEPENDING ON, 
DBGTXT is put out first, then P1TEXT. 

• For special keywords (except THEN or 
AFTER (in PERFORM) or ATEND (in 
RETURN)), the P1TEXT table including 
special keywords, is generated, then 
DBGTXT. 



• For special keywords THEN or AFTER (in 
PERFORM) DBGTXT table, then P1TEXT 
table excluding special keywords, is 
generated. 

• For special keyword AT END (for RETURN) 
the P1 TEXT table, excluding special 
keywords, is generated, then the DBGTXT 
table is generated. 



VR BANA LZ: The VRBANALZ su 
by ANLZVRBS at entry point 
address in PH35VRBS. The 
of each VRBANALZ subroutin 
given verbs P1-text string 
generating debug text for 
operands encountered, with 
dependency on syntax analy 
subroutines only perform a 
checking as necessary for 
verification) . 



broutines invoked 

based on the 
major objective 
e is to process a 
, locating and 
USE FOR DEBUGGING 

minimal 
sis (VRBANALZ 
s much syntax 
location 



Some VRBANALZ subrouties look only for 
specific keywords that will give 
information about data items encountered 
before and/or after the keywords. Others 
may perform more complex operations. 

Because of the generality of the 
VRBANALZ subroutines, it is possible to 
combine the processing of several similar 
verbs in one routine. Most of the VRBANALZ 
subroutines may be invoked several times 
while ANLZVRBS is processing a particular 
verb string. On each invocation, most will 
process what it recognizes, or copy what it 
knows is unimportant (such as extraneous 
COBOL words) , then return to ANLZVRBS which 
may determine analysis for the current verb 
string if finished, and/or pass on the 
current P1 element to GETDI which checks if 
it is a USE FOR DEBUGGING operand. 

Some routines process verbs whose 
debugging analysis is very sensitive to 
syntax. These routines often are invoked 
only once for a given verb occurrence and 
will stop analysis immediately if a syntax 
incongruity is encountered. 

Input to VRBANALZ is the current P1 
element addressed by P1TXTPTR (address of 
COMMON is in COSADR) . Three sets of 
control flags (switches) are: 

• PH35FLGS: phase control flags 
maintained continuously throughout 
phase 35. 

• CURVFLGS: verb control flags. 
Original settings copied from PH35VRBS 
entry for the current verb and 
maintained continuously throughout the 
current verbs processing. 

• ADDVFLGS: Additional verb control 
flags initialized prior to the current 
verb processing and maintained 
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continuously throughout the current 
verbs processing. 

Output from VRBANALZ is P1-TEXT and 
DEBUG-TEXT saved in their respective Tamer 
tables, P1TEXT and DBGTEXT (some VRBANALZ 
subroutines) will generate these tables to 
P1A-TEXT when analysis deems it necessary. 
Input flags (switches) may be reset, 

PNDEFRTN: The PNDEFRTN routine checks 
procedure- name definitions for debugging. 
PNDEFRTN determines if the PN definition is 
a USE declarative header. If so r any debug 
text for a PN definition is saved in the 
DBGTEXT table later to be generated 
following the P1-text for the USE verb. 
For any other PN definition, the debug text 
will be saved in the P1TEXT table. If this 
is any PN definition not immediately 
following an END DECLARATIVES, a 
conditional sentence, an EXIT verb, or an 
unconditional GO statement, a DEBUG 
transfer verb is generated. The PN 
definition element is saved in the P1TEXT 
table. Later, when PN analysis is 
complete, GENP1TT is called to generate the 
P1TEXT table, including the PN definition 
element, and possibly the DEBUG verb text 
for the PN definition, 

ER ROR ; The ERROR subroutine builds and 
produces E-TEXT for error messages and 
associated parameters, and terminates 
compilation, if necessary. If error was 
disaster level, phase and compiler 
terminates, either immediately by ABEND, or 
shortly via EOFRTN. 

EOFRTN : The EOFRTN routine receives 
control at end-of-file to release the 
tables and to terminate phase processing. 
EOFRTN guarantees that text tables have 
been generated, and releases all Tamer 
tables used by this phase. 



| NON-DEBUGGING DECLARATIVE CONSIDERATIONS 



Collecting information about various data 
items encountered in a verb string as 
potential debugging operands is handled by 
the VRBDN table in phase 35. Each entry in 
the VRBDN table corresponds to a potential 
debugging operand in the verb string. 
Information stored includes whether the 
operand: 1) was found in the DTAB, 2) is 
unigue, 3) is subscripted, or 4) will 
change value. Additionally, the entry 
identifies the offset in the DBGTXT table 
where the debug verb, if any was built for 
this operand, is stored. When text is 
generated form the DBGTEXT table, phase 35 
references each entry of the VRBDN table to 
determine if its corresponding debug verb 
should be generated and where in DBGTEXT it 
is located. 



Four features of the debugging language 
make it necessary for phase 35 to be aware 
of the context in which the operand it is 
processing appears: 



1. If an identifier is specified as an 
operand in a USE sentence without the 
ALL REFERENCES phrase, the declarative 
is to be invoked only if the 
identifier is changed. With the ALL 
REFERENCES phrase, the declarative is 
invoked whenever the identifier is 
explicitly referenced. 

flote: When an identifier is 
encountered with certain verbs you 
cannot be sure if it will be changed 
until a later word is recognized in 
the verb (for example; 
RELEASE|REWRITE| WRITE. If FROM is 
specified, record-name has changed) . 

2. Phase 35 is sensitive to the syntax if 
the compiler has generated implicit 
text. Phase 35 must not generate 
debugging verbs for implicit text 
operands. The following verbs reguire 
special handling because of 
compiler-generated text: 

- ADD | SUBTRACT! MOVE CORRESPONDING 
Only the first string is eligible 
for debugging. Subsequent 

ADD | SUBTRACT | MOVE verbs until 
CORRESPONDING (signifying end of 
string) are ignored. 

- RE AD | RETURN 

Record name has been appended after 
file-name. Must be ignored. 

- WRITE| REWRITE 

File-name has been inserted prior 
to record-name. Must be ignored. 

- SEARCH 

After identifier-1 will be either 
identifier or literal. Ignore if 
identifier as it was generated. 

- SEARCH ALL 

a. When BBxxxx is encountered in input 
ignore the next xxxx elements (keys 
for table) . 

b. Next two elements, index-name and 
identifier or literal must also be 
ignored. 

- SORT | MERGE 

Phase 30 generates three SORT | MERGE 
strings as well as OPEN|CLOSE for 
USINGI GIVING files. Only one 
invocation of the debug verb should 
be generated for each applicable 
operand only after the last string 
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generated for the SORT | MERGE 
statement. 

3. Upon recognition of certain non-verb 
keywords to generate the appropriate 
P1TEXT table and DBGTXT table. The 
keywords are; AT, END, NO (in 
RECEIVE), DATA, WHEN, THEN, and AFTER 

(in PERFORM). 

4. Subscripting or indexing. When an 
identifier is found which qualifies 
for debugging, the next operand must 
be checked to see if it is a left 
parenthesis. If so, a bit is set on 
in the attributes of an identifier to 
indicate that this subscripted 
identifier requires debugging. A verb 
will also be put out which will 
contain the actual subscript string. 
This will be produced prior to the 
source verb string. 

Note; Debugging is only produced once for 
any operand in a given verb string, but if 
it is subscripted or indexed it will be 
invoked once for each occurrence of the 
subscripted variable in the verb string. 



I Output 



DEBUG verb: 




448A 


DEBUG verb 


DO.. . 


PN reference of 




USE FOR DEBUGGING 




declaratives 


34... 


DEBUG- NAME 


26/21/25/30*/34... 


DEBUG-CONTENTS 


24nnxx** 


option byte 



identifier, if subscripted or indexed, 
a bit is on. 



** bit will be set on if this is the last 
DEBUG verb in a series. 



| xx has the following settings: 



#IDCD 

#ALTER 

#PN 

#FDREAD 

#FDNREAD 

#LASTDBG 



ID or CD 

ALTER 

PN 

FD for READ 

FD not for READ 

last DEBUG verb 

in a series 



j 3. DEBUG subscript verb: 



8 Th 
I Ph 



There are three types of output produced by 
ase 35: 



| 1. DEBUG transfer of control verb 



4483 
2401 nn 



DEBUG transfer 
option byte 



where nn has the followng settings: 



#GO 

#FALLTHRU 

#MERGE 



GO 

FALL THROUGH 

MERGE 



4496 
5200 
30.., 



5201 



left parenthesis 
identifier 



right parenthesis 



Later phases use the DEBUG transfer verb 
to update the Task Global Table with 
DEBUG-LINE and type of transfer of control. 
These fields are used by the ILBOBUG 
subroutine when invoked for procedure- name 
to properly set up debug-i terns. 
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PHASE 4 



Phase 4 (IKFCBL40) continues the 
transformation of a source program 
Procedure Division into machine- language 
instructions. Its main functions are: 

• Transforms P1-text into P2-text 

• Transforms P2-text into ATM-text for 
the UNSTRING verb 

• Analyzes syntax and checking for errors 
in the P1-text statements. 

• If COUNT is in effect, converts all 
verbs to Data A-text and defines block 
nodes with a counter in both the count 
table (Data A-text) and P2-text. 

During phase 4, the card number of the 
statement currently being processed is kept 
in a three-byte cell labeled CARDNO, 
internal to phase 4, and in the CURCRD cell 
of COMMON. 



TRANSLATION OF P1-TEXT TO P2-TEXT 



Control flows through routine IDENT. This 
routine scans the current input element, 
anticipating either a procedure-name 
definition, a verb, or a program break. If 
the element is a procedure-name definition, 
control is given to routine IDLHN. If a 
verb is found, control is given to the verb 
analyzer routine for that particular verb. 
The verb analyzer processes the verb and 
its operands. Program breaks are processed 
by IDBRK, a subroutine of IDENT. 

These routines return control to IDENT, 
with the input pointer containing the 
address of the next P1-text element. 



VERBS 



• A string is not issued unless it is 
free of errors. This cannot always be 
determined until the entire string is 
produced. 

• Sometimes the information that appears 
at the end of a P1-text statement (for 
example, UPON CONSOLE in a DISPLAY 
statement) is put at the beginning of 
the string as an aid to phase 51. 

A string of P2-text is put out with a 
maximum of five operands. If more than 
five operands are required by a single 
verb, a continuation string is put out. 
See the discussion of the DISPLAY string. 
For an example of a continuation string, 
see the discussion of the DISPLAY statement 
in the chapter "Phase .51. " 

When phase 4 encounters an UNSTRING 
verb, it first puts out P2-text for the 
verb. All other information is put out on 
SYSUT2 in the form of ATM-text for phase 45 
to process. Phase 4 sets a bit (PH45BIT) 
in the SWITCH1 cell in COMMON to indicate 
that phase 45 is to be called to process 
the UNSTRING verb, and passes the ATM-text 
to it. If phase 4 encounters a Q-Routine 
control break and the PH45BIT is on, it 
writes all Q-Routine text on SYSUT2. 

The following sections give examples of 
phase 4 processing for several types of 
verbs. These examples show the general 
pattern of analysis for verbs and use most 
of the phase 4 tables. 



MOVE STATEMENT — SUBSCRIPTING 



Phase 4 processing for the MOVE statement 
consists simply of producing a MOVE string 
that gives the number of operands and names 
the operands. For the input elements 

MOVE A TO B 



There is a separate verb analyzer routine 
for each COBOL verb. 

The verb analyzer routines use a number 
of tables while building a verb string. 

The STRING table is used by most verb 
analyzers that produce output. It holds an 
output string while it is being built. The 
string is held in the table, rather than 
being put out in parts as it is built, 
because: 



phase 4 generates the string 

MOVE (2) A B 

The operands of a MOVE statement may be 
subscripted. When subscripted operands are 
encountered in any statement, the 
generating routine first issues a SUBSCRIPT 
string for each subscripted operand and 
then issues the string for the verb. The 
following MOVE statement exemplifies the 
building of SUBSCRIPT strings: 
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r ■ - ■ ■ ■ ■ i 

| STRING Table 


r — -'" i 

DEFSBS Table 


i 
Output | 


| MOVE (2) 

| SSID1 | 

| SSID2 


SUBSCRIPT (3) 

A 

6 

SSID1 

SUBSCRIPT (5) 

B 

C 

D 

E 

SSID2 


SUBSCRIPT (3) A 6 SSID1 | 
SUBSCRIPT (5) B C D E SSID2 | 
MOVE (2) SSID1 SSID2 | 



Figure 18, Tables and Output for the Statement MOVE A (6) TO B(C,D,E) 



MOVE A(6) TO B(C r D,E) . 

Processing for this statement is 
illustrated by Figure 18, which shows the 
contents of tables built for the statement 
and the P2-text strings produced. 

EXPLANATION; The MOVE verb, with 2 to 
indicate the number of operands, is placed 
in the STRING table. Then the first 
subscripted operand is processed. For this 
operand, a SUBSCRIPT string is built in the 
DEFSBS table. (SUBSCRIPT is a special 
COBOL verb used only within the compiler; 
the DEFSBS table is a table similar to the 
STRING table, but it is used only to hold 
subscript information.) 

The SUBSCRIPT string is used by phase 50 
to resolve the subscripted reference. For 
the first SUBSCRIPT string shown in Figure 
18, this string means "Compute the address 
of the sixth occurrence of A; place that 
address into a temporary cell called 
SSID1. " At execution time, the address of 
the data item to be moved will be held in 
SSID1; therefore, SSID1 becomes the operand 
of the MOVE verb. The same applies to the 
second operand. 

When the period ending the statement is 
encountered, all three strings are put out. 



DEBUG CARD 



If a procedure-name is referred to by a 
DEBUG card, phase 4 produces a CALL string, 



The output generated for debugging 
procedures is illustrated in Figure 19. 

When routine IDLHN analyzes a PN 
definition, it determines from the 
attributes that this PN is referred to on a 
DEBUG card. First, it issues a PN 
definition element. Then, it obtains a GN 
number from GNCTR in COMMON and issues a 
CALL string with this GN as its operand. 

The PN number and GN number are saved 
together in table DBGTBL. 

When a DEBUG card is encountered, the 
DBGTBL table is searched for a PN number 
that matches the one on the DEBUG card. In 
the table, this PN number has a 
corresponding GN number, and a GN 
definition element is issued for this GN. 
Therefore, the GN defines the location of 
the debugging procedure. 



ALTER STATEMENT 



For each ALTER statement i 
statements reguire ALTER p 
ALTER statement itself, an 
statement named in the ALT 
Either of these statements 
encountered first. When o 
an ALTER/GO TO pair is enc 
number is assigned, and a 
is written using this VN n 
entry is made, giving the 
PN number to which it corr 
the second statement of th 



n a program, two 
rocessing: the 
d the GO TO 
ER statement. 

may be 
ne statement of 
ountered, a VN 
string of P2-text 
umber. A VNTBL 
VN number and the 
esponds. When 
e pair is 



| Input Statements I DBGTBL Table 



h 



4- 



Output 



| PN1. ADD... 

| PN2. MOVE.., 

| DEBUG PN2 

| DEBUG PN1 

L_ 



| PN1 
| PN2 
I 
I 



GN1 
GN2 



PN1. CALL GN1 ADD. . 

PN2. CALL GN2 MOVE. 

GN2. DEBUG PN2 

GN1. DEBUG PN1 



Figure 19. DBGTBL Entries and P2-text for DEBUG Card Processing 
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encountered, this VNTBL entry supplies the 
VN number for this statement's P2~text 
output. 

At execution time, each PN is assigned a 
cell in the Program Global Table. (For the 
format of the PGT, see the chapter "Object 
Module.") In this cell, the address of the 
first instruction for the PN is permanently 
stored. Each VN is assigned a cell in the 
VN field of the Task Global Table. (For 
the format of the TGT, see "Appendix B. 
Object Module.") However, the contents of 
these cells are not permanent. When a 
branch instruction is modified by an ALTER 
statement (or a PERFORM statement as 
described later in this chapter) , the 
address contained in the VN cell is 
changed. 

Figure 20 gives an example of phase 4 
processing for two ALTER statements. 

1 In this example, the first statement 
read is PN1. This is a GO TO statement 
referred to by an ALTER (the ALTER 
statement follows PN3) . 

2 When routine IDLHN examines the 
definition of PN1, it determines from 
the attributes that this statement is 
an altered GO TO statement. Then the 
GO verb analyzer processes the 
statement. 

3 It obtains a VN number, which it stores 
with PN1 in the VNTBL table, and puts 
out two strings. 

4 The GO VN1 string indicates that, when 
this branch is executed, the branch 
address is to be picked up from a 
uniquely identified VN cell in the TGT. 

5 EQUATE VN1 PN3 indicates that at 
execution time the initial contents of 
this VN cell is the address of PN3. 
Until the value is changed by an ALTER 
statement, the cell will be unchanged, 



and any execution of PN1 will branch to 
PN3. The equated address is also 
placed in a VN cell in the PGT. 

(In a segmented program, the VN is given 
the same priority as the PN to which it is 
equated.) 

2 When the ALTER PN1 statement is read, 
the VNTBL table is searched for PN1. 
Since an entry is found, the 
corresponding VN number (VN1) is used 
as the receiving field of the MOVE. 

6 At execution time, this MOVE statement 
takes the address of PN2, which is 
stored in a PN cell in the PGT, and 
places it in the VN cell for VN1. 

The execution-time operation of this 
ALTER/GO TO pair of statements is 
illustrated in Figure 21. The flow of 
control resulting from this ALTER statement 
is shown in Figure 22. 

Figure 20 also illustrates a second 
ALTER/GO TO pair. 

7 In this case, the ALTER statement 
(ALTER PN4) is read first. 

8 A search of the VNTBL table reveals 
that no entry for PN4 has been made, so 
the ALTER analyzer obtains a VN number 
and enters that VN number with PN4 in 
the table. 

Sp eg ial M Processing f or Optimization: When 
the OPT option is in effect, most PN cells 
are eliminated from the Program Global 
Table. For addressing PNs without address 
constants in the PGT, phases 62, 63, and 64 
use Procedure Block base locators. some GN 
and PN cells remain unchanged by phases 62, 
63, and 64. Phase 4 generates P2-text 
Optimization information elements (changed 
to Optimization A- text elements by phase 
50) to identify the type of element that 
follows. 



106 Section 2. Method of Operation 



Licensed Material - Property of IBM 



1 .......... ... 

| Input Statements 


VNTBL 


■ 
Table 


— i 

Output | 


| 1 PN1. GO TO PN3. 




3 PN1 


VN1 


4 PN1 . GO VN1 I 
EQUATE VN1 PN3 | 


| 7 ALTER PN4 


TO PROCEED 


8 PNU 


VN2 


MOVE PN6 VN2 | 


| TO PN6. 










| PN2 








PN2 | 


| GO TO PN1. 








GO TO PN1 | 


| PN3 








PN3 | 


| 2 ALTER PN1 


TO PROCEED 






6 MOVE PN2 VN1 | 


| TO PN2. 










| PN4. GO TO PN5. 








PN4. GO VN2 | 
EQUATE VN2 PN5 | 


| PN5 








| PN5 | 


| PN6 








| PN6 | 



Figure 20. Table Entries and Output for ALTER Statements 



PN1. 



GO TO PN3. 



PN2. 



PN3. 



GO TO PN1. 



ALTER PN1 TO PROCEED TO PN2. 
GO TO PN1. 



simplified assembler coding and the TGT 
and PGT cells shown below. (Only the 
underscored statements are directly 
involved in the logic of the ALTER 
statement .) 



Assembler 

coding 

for PN1 

GO TO statement 



Assembler 
coding for 
ALTER statement 



L 
BR 



L 

ST 



REG,VN 
REG 



0,PN2 
0,VN 



PN (cells of PGT) 



|a(PN1) 



I 



|a(PN2) 
fc 



|a(PN3) 



VN (cells of TGT) 



U(PN3) 

i — 



I 



A 
I 



PGT and TGT cells 
for execution of 
ALTER code 



Figure 21. Execution of an ALTER Statement 



Phase 4 107 



Licensed Material - Property of IBM 



lr- 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

M 

II 

II 

II 

II 

l«~ 

I 



| Beginning | 
I of | 
| program | 




no 



yes 



PN2 



r 
i 




■ ■■ * l 
i 


1 

>l 

1 
i 


PN3 


1 

i 

i 
_ ...i 



ALTER 



figte: This illustrates the same example used in Figure 23. Assuming that no other 
ALTER or GO TO statements occur in this program, the flow of control will follow the 
single-line path the first time through and the double-line path every time after the 
first. 



Figure 22. Flow of Control for ALTER/GO TO Statements 
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1 

| Procedure Statement 


■" — - ■ -i 

VNTBL Table 


" ' 

PFMTBL Table 


Output | 


| SN1 SECTION. 


... 




o 


SN1. 


I 


| SN2 SECTION. 


... 1 


SN2 VN1 2 


SN4 YN1 3 


SN2. 


... | 


| PN3. ... 








PN3. 


GO VN1 5 | 
EQUATE VN1 SN4 6 | 


| SN4 SECTION. 


... 8 






SN4. 


... 7 | 


| PN5. PERFORM 


SN1 THRU SN2. 






PN5. 
GN1. 


MOVE VN1 PFMSAV1 9 | 
MOVE GN1 VN1 | 
GO SN1 | 
MOVE PFMSAV1 VN1 | 


I PN6. ADD... 








PN6. 


ADD... | 



Figure 23. Effect of a PERFORM Statement 



PERFORM STATEMENT 



It issues an EQUATE string to equate 
VN1 to SN4. 



Processing of a PERFORM statement resembles 
that of an ALTER statement. The return 
from a performed procedure is a GO string 
with a VN as its object. This GO string is 
placed at the end of the performed 
procedure , just before the procedure 
delimiter. 



Phase 4 uses the VNTBL and PFMTBL tables 
to keep track of the VNs. Figure 23 gives 
an example of the use of these tables. 

1 The dictionary attributes of 
section-name SN2 indicate that it is 
the object of the THRU option of a 
PERFORM statement. 

2 Routine IDLHN obtains a VN number from 
the VNCTR cell of COMMON and enters VN1 
and SN2 in the VNTBL table. 

3 In the PFMTBL table, it enters VN1 and 
the delimiter of SN2, which is SN4. 

4 When section-name SN4 is encountered, 
routine IDLHN knows it is the delimiter 
of the performed procedure because it 
is in the PFMTBL table. Therefore, 
before the procedure -name definition 
element for SN4 is issued, routine 
IDLHN sets up the return from the 
performed procedure. 

5 It obtains the VN number from the 
PFMTBL entry. 

6 It issues a GO string to go to VN1. 



When the PERFORM statement (PN5) is 
encountered, the verb analyzer PRFORM 
issues instructions to set up the 
return from the performed procedure. 



9 It obtains a PFMSAV number from the 
PFMCTR cell of COMMON. This number 
represents a 4-byte cell in the Task 
Global Table of the object program. 
The value of VN1, which is the address 
of the next sequential instruction 
after the performed procedure, is saved 
by moving it into this PFMSAV cell. A 
GN number is obtained, and this GN is 
moved into the VN1 cell. This GN is 
defined at the point of return from the 
PERFORM. The instructions issued at 
this point cause restoration of the 
original value of VN1. 

At execution time, sections SN1 and SN2 
are first executed in-line. VN1 contains 
the address of section SN4, and thus the 
"return" from the procedure (the statement 
"GO VN1") actually causes control to pass 
to SN4, the next sequential instruction. 
Later in the program, the execution of 
statement PN5 causes SN1 and SN2 to be 
executed again. This time, the return is 
to GN1 . The original value of VN1 is 
restored, and PN6 is executed. 

Figure 24 gives an example of how a 
PERFORM statement operates at execution 
time. Figure 25 illustrates the flow of 
control for the program shown in Figure 24. 
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COBOL Statements 



PERFORM SEC2 THRU SEC3. 



SEC1 SECTION. 



SEC2 SECTION. 



SEC3 SECTION. 



SEC4 SECTION. 
GO TO SEC1. 



Coding for 
PERFORM 



GN 



(SEC1) 

(SEC2) 

(SEC3) 

Coding for 
Return 
(SEC4) 



Associated Assembler Coding 



L 

ST 

L 

ST 

L 

BR 

L 

ST 



0,VN 

0,PFMSAV 

0,GN 

0,VN 

REG,PN+4 

REG 

0,PFMSAV 

0,VN 



Save initial value. 



Branch to performed 

procedure. 
Reinitialize. 



L 

BR 



REG,VN 
REG 



Load A(SEC4) 
Branch. 



Relevant PGT a nd TGT Cell s 
PN (cells of PGT) 



|a(SECl) 
h 



|a(SEC2) 
I 



| a (SEC3) 
I 



|a(SEC4) 



GN (cells of PGT) 



a (GN1) 



| u_ 1 

\ VN (cells of TGT) 



|a(SEC4) 
-f— — 



-j<- 



(a)pf 



FMSAV (cells of TG 



T, (J)j 



»->! 



Coding for 
PERFORM 



GN 

(SEC1) 

(SEC2) 

(SEC3) 

Coding for 
Return 
(SEC4) 



Associated Asse mbler Coding if OPT is in Effec t 



MVC 

LA 

ST 

L 

BC 

MVC 



PFMSAV(4) r VN 

O r GN 

O f VN 

11 r Procedure block of PN 

1 5 „ Displacement of PN(11) 

VN(4) # PFMSAV 



Save initial value. 



If necessary. 
Branch to performed 

procedure. 
Reinitialize. 



L 
BR 



REG,VN 
REG 



Load A(SEC4) 
Branch. 



Figure 24. Execution of a PERFORM Statement 
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PERFORM 




Yes 



SEC1 



I I 

-> | Reinitialize f- 

I I 

i , i 



A 
I 

I 

I 
-J 



A A 



fiote: This illustrates the same PERFORM statement shown in Figure 26. Assuming that | 
no other procedure branching statements occur in this program, the flow of control will| 
follow the single-line path the first time through and the double-line path every time | 
after the first. I 

l 8 

Figure 25. Flow of Control for a PERFORM Statement 



COMPUTE STATEMENT 



Verb analyzer routine COMPOT, with its 
major subroutine FORMLA, breaks down the 
arithmetic expression of a COMPOTE 
statement into a series of simple 
arithmetic strings. It uses two tables, 
PNOONT and PSIGNT, in the processing of the 
arithmetic expression. PNOUNT contains 
operands and PSIGNT contains signs 
(operators and parentheses) of the 
expression. 

These two tables are needed because the 
hierarchy of arithmetic operators may 
necessitate a rearrangement of the 



expression, 
order is: 



The hierarchy in descending 



unary - 

* and / 
+ and - 

For example, the statement COMPOTE 
X = A-B*C reguires strings in the order 

MOLT C B IR1 
SOB IR1 A IR2 
STORE IR2 X 

where IR1 and IR2 are intermediate results. 
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r —-"■" i - ■■■■ -t — - — 1 ■ "i 

| IPNOUNT (PSIGNT I | 
| Input (Table {Table f Strings Stored | 
(Element | Contents {Contents | in STRING Table j 


I A | A | | | 


1 + 1 A | + | | 
i 11 1 J 


1 ( 1 A | + | | 
1 1 1(1 1 

J 1 1 1 1 


1 ■ 1 1 1 1 

1 C | A I + | | 
1 1 C | ( | | 


1 - 1 A | + | | 
1 1 C | ( | | 

i i i i i 


1 D | A | + | | 
1 1 C | ( | | 
1 1 D | - | | 


1 / 1 A | + | | 
1 1 C | ( | 1 
1 | D | — 1 | 
1 1 1 / 1 1 
1 ' 1 9 1 i 4 


I E | A | + | | 
1 1 C | ( | | 
1 | D 1 - | | 
1 | E | / | | 


1)1 A | + | DIV E D IE1 | 
I I C | ( | | 

! G) i IR1 i " ! ! 


i \y iii i 

| | A | + | SUB IR1 C IR2 | 
I I IR2 | | I 


I * I A | + [ | 
I I IR2 I * I I 


| F | A | + | I 
I I IR2 | ■■ * | | 
I I F | | | 

i 1 i j • 


| - | A | + j MULT F IR2 IR3 1 

I O ! IR3 ! ! ■ ! 


1 ^^ | IR4 i - | ADD IR3 A IR4 | 


| G | IR4 | - | | 

1 1 G | | | 
it i j i 


| (?) j | | SUB G IR4 IR5 ( 
I ^ 1 1 1 STORE IR5 X | 
1 ii i 1 


|Note: The circled numbers in the figure | 
j | refer to explanations in the text. i 



Phase 4 builds a s 
string to be placed i 
when the signs in the 
that the arithmetic h 
requires a string, T 
last operator in the 
into a verb, the last 
PNOUNT table are used 
intermediate result i 
intermediate result i 
table as an operand.) 
apply when a string i 



imple arithmetic 
n the STRING table 

PSIGNT table indicate 
ierarchy of operators 
o build a string r the 
PSIGNT table is made 
two nouns in the 
as operands, and an 
s appended. (The 
s placed in the PNOUNT 

The following rules 
s to be built : 



© If there are no more input elements, 
all remaining strings are built, 
(see (T\ in Figure 26) 

• If a right parenthesis is encountered, 
all strings up to the left parenthesis 
proceeding backwards into the tables 
are built. 

(see (T) in Figure 26) 

• If an operator is encountered that, in 
the hierarchy of arithmetic operators, 
is lower than or equal to the last sign 
in PSIGNT, a string is built. 

(see (?\ in Figure 26) 

Figure 26 shows the evaluation of the 
following COMPUTE statements 



COMPUTE X = A+ (C-D/E) *F-G. 



Each row in the figure shows table contents 
after processing the input element in the 
first column. 



Figure 27 gives the final output from 
the COMPUTE statement example used in 
Figure 26: 



COMPUTE X = A+ (C-D/E) '*F-G. 



Figure 26. Evaluation of a COMPUTE 
Statement 



r 1 " -"■■ ■ ■" 

| EVAL DMAX DCURRENT X 




| DIV E D IR1 (-C) 




| SUB IR1 C IR2 (*F) 




| MULT F IR2 IR3 (+A) 




| ADD IR3 A IR4 (-G) 




| SUB G IR4 IR5 (ST X) 




| STORE IR5 X 

i ., . "... - . 





Figure 27. Strings Resulting from a 
COMPUTE Statement 
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As an aid to phase 50 
issued preceding the ari 
The EVAL string contains 
as the maximum number of 
any operand, the number 
in the result, and the p 
or ON SIZE ERROR clauses 
string containing an int 
an indication of the use 
intermediate result. Fo 
used in a subtraction wi 



an EVAL string is 
thmetic strings, 
information such 
decimal places in 
of decimal places 
resence of ROUNDED 
Appended to any 
ermediate result is 
of that 
r example, IR1 is 
th C. 



| MULTIPLE RESULTS IN ARITHMETIC STATEMENTS 



For COMPUTE with multiple operands before 
the equal (=) , and for ADD, SUBTRACT, 
MULTIPLY, and DIVIDE with multiple GIVING 
operands, SETTBL is used to save the result 
operands. After determining whether SIZE 
ERROR is present, and analyzing the 
arithmetic expression for COMPUTE, SETTBL 
is used as the input stream to produce the 
store into each result. The routine ST0RAN 
is called once for each result. 



IF STATEMENT 



The IF verb analyzer, assisted by its major 
subroutine PFINDL, evaluates IF statements 
and issues strings consisting of a 
relational verb, two operands to be 
compared, and a third operand, which is a 
GN reference for branching. The following 
example shows the verb string issued from a 
simple IF statement: 



St atements 

IF &=B DISPLAY C. 



Strings 

IF-NOTEQ A B GN1 
DISPLAY C 



Nested IF Statement 



Figure 28 shows how the PSHTBL table is 
used in evaluating the following statement: 

IF A=B THEN IF C=D THEN IF E=F STOP ' 0« 
ELSE STOP «3' ELSE STOP «2« ELSE STOP M« 
ADD... 



i 

I 

| Procedure 

| Statement 



t r 

Status of 
PSHTBL 
Table 



k 

->|IF A=B 
i 



fr — >|IF C=D 
I 



h 



r->| IF E=F 

I 
I 



| STOP •()' 
I 

I 



->| ELSE STOP 
| '3' 
I 
I 



->|ELSE STOP 
| <2' 
I 



| 

->| ELSE STOP 
| M ■ 



| ADD 
t 



GMT 



GN1 
GN2 



GN1 
GN2 
GN3 



GN1 
GN2 
GN3 



GN1 
GN2 



GN1 



Output String 



IF-NOTEQ A B GN1 



IF-NOTEQ C D GN2 



IF-NOTEQ E F GN3 



STOP ■0 I 
GO GN4 



GN3. STOP '3' 
GO GN4. 



GN2. STOP «2« 
GO GN4 



GN1. STOP M 1 



GNU. ADD... 



Figure 28. Evaluation of a Nested IF 
Statement 



ADD. 



GN1. ADD. 



Note that the condition is reversed in the 
string to minimize the number of branches 
required. The branch to the GN is taken if 
the condition (A=B) is false, that is, if 
the DISPLAY is not to be executed. 



(IFs and ELSEs are paired from the inside 
outward.) The PSHTBL table saves the 
procedure-names (GNs) generated for 
branching to the ELSE statements. When an 
ELSE is encountered, the last GN in the 
table is issued as its procedure-name 
definition. 



The PNOUNT and PSIGNT tables are used in 
evaluating arithmetic expressions in IF 
statements* The strings produced are the 
same as for COMPUTE statements except that 
the last string is a relational string (for 
example, IF-EQ or IF-NOTGT) instead of a 
STORE string. 

The PSHTBL and PTRFLS tables are used in 
evaluating IF statements. The PSHTBL table 
collects branches to ELSE statements in 
nested IF statements, and the PTRFLS table 
collects branches within compound IF 
statements. 



SEARCH F0RMAT-2 (SEARCH ALL) STATEMENT 



The SEARCH ALL statement is executed by a 
COBOL library subroutine. (For a 
description of the subroutine, see the 
publication IBM 0S/VS_C 0B0 L Subroutine 
Libr a ry Progr am Logic. Therefore, phase 4 
does not generate statements to perform the 
search. Instead, it produces a parameter 
list for the subroutine (the actual call to 
the subroutine is generated by phase 5 0) , 
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and it creates verb strings for the 
imperative statements following AT END and 
WHEN clauses,. 

Figure 29 gives an example of phase 4 
output for a SEARCH ALL statement. The 
example shows the P2-text that would be 
produced for the following statement: 

SEARCH ALL TABLE-K AT END GO TO NOT-FOUND 

WHEN KEY-1 (INDEX-K) = 5 
AND KEY-2 (INDEX-K) = 10 
AND KEY-3 (INDEX-K) = DATANAME-K3 

MOVE TABLE-K (INDEX-K) TO ENTRY-FOUND. 



example, this is accomplished ¥ia the 

GO GN4 statement. 



© 
© 



The verb analyzer first receives, as 
P1-text input, and saves TABLE-K and 
the maximum number of occurrences. 

Then it receives a count of the number 
of keys, followed by the keys 
themselves. The dictionary pointer for 
each key is entered into the KEYTBL 
table, with a flag byte of 00. 



If any of the keys is found to be 
sterling or floating point, a C-level 
E-text element is generated, and the 
statement is processed as though it were a 
SEARCH forma t-1, with WHEN conditions being 
processed by the IF analyzer and no special 
WHEN statements generated. 

After the table has been built, the 
analyzer transfers control to the SEARCH 
analyzer to scan the WHEN and AT END 
clauses. 

To generate verb strings for the 
imperative statements following AT END and 
WHEN, the SEARCH verb analyzer calls other 
verb analyzers* However, the IF analyzer 
is not called to generate conditional 
statements. Instead, SEARCH returns 
control to the SEARCH format-2 analyzer to 
do special WHEN processing. 

(In If the imperative statements following 
the AT END or WHEN clauses do not 
provide exits from the search, phase 4 
generates GO TO NEXT SENTENCE. In the 



GN2, 



GN 



© 



© 

GN1. 
GN4. 



GO GN1. 

GO PN50. (where PN50 is the PN 
number of NOT-FOOND) 
WHEN (3) 1 
TABLE-K 
num-occur 2 
GN2 

EVAL DMAX DCURRENT KEY-1. 
EQUATE 5 KEY-1. 
EVAL DMAX DCURRENT KEY-2. 
EQUATE 10 KEY-2. 
EVAL DMAX DCURRENT KEY-3. 
EQUATE DATANAME-K3 KEY-3. 
ENDWHEN (1) INDEX-K. 3 

SUBSCRIPT (3) TABLE-K INDEX-K SSID1« 
MOVE (2) SSID1 ENTRY-FOUND. 
GO GN4. 
GO GN3. 
next sentence 



*If KEY-1 required two levels of 
subscripts or indexes, the first 
subscript would be put out as the fourth 
operand of the WHEN verb. If three 
levels were required, the first two 
subscripts would be operands 4 and 5 of 
WHEN. All keys must be subscripted or 
indexed when used in WHEN conditions, 
but phase 4 does not produce SUBSCRIPT 
strings or SSIDs for them. 

2If TABLE-K has a fixed number of 
entries, num-occur is a literal 
specifying the number (the value 
following OCCURS in the data description 
for TABLE-K) . If the table has a 
variable number of entries, num-occur is 
the name of the data-item which follows 
OCCURS... DEPENDING ON. 

3 The lowest level of indexing or 
subscripting for KEY-1 is passed as the 
operand of ENDWHEN, since it is needed 
for the search. 



Figure 29. 



Example of Phase 4 Output for a 
SEARCH ALL Statement 
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GN3 r 



| CALL | 
| subroutine | 
i , 1 



SEARCH ALL 

object-time 

subroutine 




GN2. 



| Imperative 
| statement 
-> | following 

I WHEN 



Return at a 

specific number i 

of bytes after {Imperative 
GN3 (first | statement 
-> | following 
| AT END 



executable 

instruction 

immediately 

follows 

parameter 

list) 



I 
| (if specified) | 

I I 

i j 



Exit from SEARCH 
via GO statement 
or next sentence 



Exit from SEARCH 
via GO statement 
or next sentence 



(The largest box indicates control flow within the SEARCH ALL object-time subroutine; 
smaller blocks are executed in-line.) 

Figure 30- Flow of Execution for a SEARCH ALL Statement 



Figure 30 is a generalized chart showing 
the flow of execution into and out of the 
SEARCH ALL object-time subroutine. 



Phase 4 checks WHEN conditions for 
conformity to language rules by using the 
KEYTBL table. 

When the first part of the WHEN 
condition is processed, the dictionary 
pointer for the key named in the condition 
is compared to that of the first key in the 
KEYTBL table. If it matches , the flag byte 
is set to 01 and the condition is valid. 
Each part of the condition should name a 
key matching an entry in the KEYTBL table, 
and its flag byte will be set. 

After the entire WHEN condition has been 
processed, the KEYTBL table is examined to 
determine whether any key is tested in the 
condition without all preceding keys being 
tested. If this occurs, E-text is issued 
and no P2-text is generated. 



The user is not required to name the 
keys in the WHEN condition iri any 
particular order. However, phase 4 must 
produce a P2-text string giving the keys in 
the order specified in the KEY IS clause. 
To produce text in the proper order, the 
STRING table is compared to the KEYTBL 
table. The STRING table entry that matches 
the first KEYTBL entry is used to produce 
the first text string, and the entries are 
then deleted from both tables. This 
process continues until all strings for the 
WHEN condition have been put out. 



If, in any part of the WHEN condition, 
none of the operands named is a key, or if 
any other error condition is detected, 
E-text is issued and no P2-text is 
produced. 
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SYNTAX ANALYSIS AND ERROR CHECKING 



ID5 Routine 



Phase 4, in subroutine ERROR, issues E-text 
when an error is detected. 



Before branching to the verb analyzer 
routines, this routine calls TIMCNT. 



Primarily, phase 4 checks to see that 
required COBOL words are present and in the 
correct order, and that operands are 
compatible with each other and in 
permissible format for the statement in 
which they are used. 

In addition, phase 4 performs a limited 
check of the relationship between 
statements. For example , it can detect a 
conditional statement that has no 
conclusion. 

It also checks miscellaneous special 
requirements, such as: subscripts must be 
integers, parentheses in logical and 
arithmetic expressions must be paired, and 
a maximum of twelve sort keys must not be 
exceeded. 

If the CSYNTAX or SYNTAX option is in 
effect, E-text generated by phase 4 as well 
as the E-text passed from phase 3 is 
written on SYSUT4. Otherwise, E-text is 
written on SYSUT1. Phase 4 also sets the 
ERRSEV cell in COMMON to the highest error 
severity level encountered. If an error 
(E) or disaster (D) level message is 
generated and the CSYNTAX option is in 
effect, the SYNTAX option is forced into 
effect. If the SYNTAX option is in effect, 
phase 4 issues an end-of-job call if no 
messages were generated. If messages were 
generated, control is returned to phase 00 
which sets the value of LINKCNT to indicate 
that phase 70 is to be executed next; error 
messages are listed and the compilation is 
terminated. (See "Syntax-checking 
Compilations" in the chapter "Phase 00.") 



ISTRUV Routine 



This routine turns on NNODSW and NNODEOS, 



ID BRK Routine 



If not a report writer declarative, this 
routine turns on NNODSW, ENTRYSW, UPPROC, 
NTIMSW, and turns off NNODEOS and VBSKIP. 
If it is a report writer start, IDBRK turns 
on VBSKIP; if it is a report writer end, it 
turns off VBSKIP. 



ID LH03 Routine 



Just before FLOW is tested, this routine 
turns on NNODSW, DPPROC, ENTRYSW, FNDPARNM, 
and turns off NNODEOS. Then, if FLOW is 
on, it turns on TIMFLOSW. Then GENTIM is 
called. In addition, if there is a DEBUG 
packet, at the end of IDLH10, GENTIM is 
called again. Note: the test and code 
generation for USE FOR DEBUGGING 
paragraph-name precede the tests for FLOW. 



SOSlx-SIlS E Routines 



METHOD OF DEFINING VERB BLOCKS 



The major routines used in defining verb 
blocks and the functions they perform are 
explained below. 



Upon final exit from these routines, NNODSW 
is turned on if INPUT or OUTPUT procedures 
were specified. If INPUT or OUTPUT 
procedures are specified, NTIMSW is also 
turned on upon exit from processing the 
INPUT or OUTPUT procedure phrase. 



Phase 40 Initialization Routine 



EOF Routine 



This routine turns off the ENTRYSW, 
FNDPARNM^ NNODEOS, NNODSW, NTIMSW* 
TIMFLOSW , UPPROC, and VBSKIP switches. 



If COUNT is on, this routine indicates the 
end of the COUNT Table in Data A-Text and 
rounds the size of the COUNT Table to the 
next even number. 



116 Section 2. Method of Operation 



Licensed Material - Property of IBM 



GBTNXT (GET13 and GE T14) Routine 



This routine saves Listing A-Text in order 
to maintain the last procedure-name for 
GENPAR. 



Data A-Text for the paragraph 
section-name, or missing paragraph-name is 
generated (using FNDPARNM) , and FNDPARNM is 
turned off. 



EXIT5 (EX IT PROGRAM) Routine 



GENTIM Routine 



Prior to generating this verb, this routine 
calls GENTIM, passing zero as the parameter 
to be generated* Afterwards, NTIMSW is 
turned on. 



GENN OD R ou tine 



If COUNT is off, or if VBSKIP is on, GENNOD 
returns. Otherwise, if NNODSW is on, 
NODECTR is updated. In any case, Data 
A-Text is generated. In addition, if 
NNODSW is on, a COONT verb with a counter 
is generated, and NNODSW is turned off. 



GENPAR Routine 



First GENPAR turns off UPPROC. Then, if 
COUNT is off GENPAR returns. In any case. 



First GENTIM turns off NTIMSW. If UPPROC 
is on, it calls GENPAR. In any case, if 
ENTRYSW is off, GENTIM generates a TIMERA 
verb (with a zero or PROCCTR as the count r 
depending on input parameters) and then 
returns. GENTIM turns off ENTRYSW, and if 
TIMFLOSW off, generates a TIMERB verb (with 
PROCCTR as the count) and returns. 
Otherwise it turns off TIMFLOSW and 
generates a TIMERC verb with PROCCTR as the 
first constant and with ISN or Card-number 
as the second constant. 



WRSYS4 Routine 



This routine puts the Data A-Text on 
SYS004. 
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PHASE 45 



The function of phase 45 
produce P2-text on SYSUT 
verb. The phase is give 
phase 4 encounters a val 
string, in which case, p 
PH45BIT Switch in SWITCH 
45 is called by phase 00 
processing if phase 00 f 
switch on. 



(IKFCBL45) is to 
1 for the UNSTRING 
n control only if 
id UNSTRING verb 
hase 4 sets the 
1 in COMMON. Phase 

following phase 4 
inds the PH45BIT 



Phase 45 operations consist of reading 
and analyzing the ATM-text for the UNSTRING 
verb, which phase 4 has written on SYSUT2, 
and transforming it into P2-text. The 
ATM-text consists of a series of subscript 
strings followed by an UNSTRING verb 
string; one or more of these series may be 
present. 



sending field is subscripted. If it is, 
UNSTRING calls the FINDSSC routine to find 
the corresponding subscript string and 
enter it in the SSCOUT table. The FINDSSC 
routine also enters the data item text 
element in the TXTOUT table. If the 
sending field is not subscripted, the 
UNSTRING routine enters the data item text 
element in the TXTOUT table only. The 
UNSTRING routine branches to the proper 
field analyzer to process delimiter fields, 
receiving fields, delimiter-in fields, 
count-in fields, pointer fields, and 
tallying fields. The individual field 
analyzers set flags and make entries in the 
appropriate tables. When all of the DOPs 
have been processed, control is returned to 
the PH45CTL routine to refill the DOPs. 



INITIALIZATION AND ATM-TEXT ANALYSIS 



CREATING P2-TEXT FOR PHASES 50 AND 51 



Phase 45 first primes the four tables, 
SSCIN, SSDELIM, SSCOUT, and TXTOUT, which 
are used during ATM-text analysis. These 
tables are used by phase 45 only. 



After priming the 
begins to process th 
The PH45CTL control 
input verb string an 
operands in the stri 
operands into work a 
through D0P5 (hereaf 
DOP is a reference t 
areas) . The PH45CTL 
whether the string i 
If it is, the string 
table and another in 
read. If it is an U 
PH45CTL branches to 
process it. 



tables, phase 45 
e ATM-text from SYSUT2. 
routine examines the 
d gets the count of the 
ng. It moves the 
reas labeled DOP1 
ter, a reference to a 
o one of these work 

routine then checks 
s a subscript string. 

is saved in the SSCIN 
put verb string is 
NSTRING verb string, 
the UNSTRING routine to 



The UNSTRING routine scans the operands 
and sets the appropriate flags to indicate 
operand type. It also checks whether the 



As ATM-text is analyzed and rearranged, 
P2-text is created for phases 50 and 51. 
The P2-text is generated so that the 
subscript for a subscripted field is 
calculated immediately before the field is 
referred to. Also, any Q-routines which 
must be called following the change of the 
object of an OCCURS. . .DEPENDING ON clause, 
are called immediately instead of after the 
entire verb string has been analyzed. 
P2-text elements, called Data-name 
information for UNSTRING (2A) , are also 
created to pass information about UNSTRING 
data items, such as address and size, which 
is used by phase 51 when it generates 
Procedure A-text. 

The P2-text is formatted in the SSCOUT 
and TXTOUT tables. The SORTXT routine 
sorts the corresponding sections of these 
tables, putting the text in the correct 
order. Finally, P2-text is written on 
SYSUT1 . 
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PHASE 50 



Phase 50 (IKFCBL50) read 
P2-text written by phase 
depending upon the type 
either processes it or p 
51 for processing. Outp 
includes P2-text passed 
Intermediate A-text, and 
E-text, all written on S 
and Optimization A-text 
for phase 6 or 62. Inte 
consists of E-text passe 
generated by phase 50, t 
prefix to make it readil 
Intermediate A-text cons 
A-text or Optimization A 
generated by phase 50 an 
added a prefix. If the 
option is in effect, no 
Intermediate A-text. 



s elements of 
s 4 and 45 and, 
of each element, 
asses it to phase 
ut from phase 50 
unchanged, 

Intermediate 
YS0T2 for phase 51, 
written on SYSUT2 
rmediate E-text 
d from phase 4 or 
o which is added a 
y recognizable, 
ists of Procedure 

text, which is 
d to which has been 
SYNTAX or CSYNTAX 
prefix is added to 



Procedure A-text is generated by 
analyzing P2-text verb strings and 
generating elements that correspond to 
assembler-language instructions. That is, 
the elements combine to form name, 
operation, and operand fields. 
Optimization A-text is generated for use by 
phase 6 or 62 in eliminating duplicate 
references. 

Input to phase 50 (a combination of 
P2-text and E-text) is read from SYS0T1. 
Output is written on SYSUT2, except for 
literals written as Optimization A-text on 
SYS0T3 (see the section "Literals and 
Virtuals" later in this chapter) . In 
addition, if the SYNTAX or CSYNTAX option 
is in effect, E-text is written on a 
separate data set, SYSUT4; and the ERRSEV 
cell in COMMON is set to the highest error 
severity level encountered. (E-text 
processing is discussed under "E-text" in 
the chapter "Phase 51.") 

Routine PH5CTL calls GETNXT, which 
obtains P2-text elements, determines what 
type they are, and calls the routines 
required to process them. The elements may 
be of the following types: 

© Program breaks 

© Verb strings 

© E-text 

o Segmentation control breaks 

o P1J, GN P and TO definitions 

Of these, only program breaks and 
certain verb strings are processed by phase 



50. The others are 
processing. Element 
prefixed with header 
phase 51, and copied 
Segmentation control 
VN definitions are w 
Optimization A-text 
GN, or VN definition 
in the XSCRPT table, 
subscript values, ar 
"Using and Optimizin 
explains why this is 



PROGRAM BREAKS 



passed to phase 51 for 

s of E-text are 

s for identification by 

as output. 

breaks and PN, GN, and 
ritten with an 
prefix. Before a PN, 

is copied, all entries 

used in calculating 
e deleted. The section 
g Subscript References" 

necessary. 



Routine GETNXT uses program breaks to 
determine where to issue a START macro-type 
instruction. This indicates where in the 
object-time coding the first executable 
instruction is generated. The Procedure 
Division, beginning-of-declaratives, and 
end-of -declaratives breaks are used for 
this. (All other types of program breaks 
are ignored.) 

If no beginning-of-declaratives break is 
encountered, routine GETNXT issues the 
Procedure A-text for START immediately 
after finding the Procedure Division break. 
If a beginning-of-declaratives break is 
encountered, the START Procedure A-text is 
issued after the end-of-declaratives break 
has been found. 

Since the coding for a START macro is 
always the same, this A-text is generated 
from Constant A-text, which is described 
later in this chapter. 



VERB STRINGS 



The P2-text for a verb string consists of a 
verb followed by from one to five operands. 
Any operands beyond the fifth have been 
placed into one or more continuation 
strings by phase 4; the first operand of 
the first string is the COBOL word FIRST, 
and the last element of the last string is 
the COBOL word END. (An example of this 
appears in the discussion of the DISPLAY 
string under "Verbs Requiring Calls to 
Object*Time Subroutines" in the chapter 
"Phase 51.") 

Once routine PH5CTL has established that 
an element of P2-text is a verb string, it 
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moves the operands into work areas labeled 
D0P1 through D0P5 (hereafter, a reference 
to a DOP is a reference to one of these 
work areas) . The verb code for the verb 
currently being processed is moved into a 
cell called GANLNO, where it is kept until 
overlaid by the next verb code. 

The PH5CTL routine then calls routine 
XIS31, which determines whether any of the 
operands are subscripted or indexed 
data-names. If one is, the pointer to the 
desired occurrence has already been 
computed in phase 50 (subscripts and 
indexes are resolved by processing 
SUBSCRIPT verb strings, which always 
precede the verb string in which they are 
referenced; see the section "Resolving 
Subscripted and Indexed References" later 
in this chapter) . The routine changes the 
idk (addressing parameters) field in the 
DOP from a subscripted or indexed reference 
to a data-name reference. (A full 
description of the idk field appears in 
"Dictionary Entry Formats" of "Section 5. 
Data Areas" under the addressing parameters 
field of the LD dictionary entry.) 

Upon return, routine PH5CTL checks to 
see whether the verb string is one that is 
to be processed by phase 50. Verb strings 
processed by phase 50 include: 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 

EXPONENTIATION 

Numeric IF 

Numeric MOVE 

SEARCH 

DEBUG 

INSPECT 

DEBUG SUBSCRIPT 

EVAL 

STORE 

SUBSCRIPT 

EQUATE, when in SEARCH ALL 

END OF, when in SEARCH ALL 

The last five are verb strings created 
by phase 4. If the verb is one of those 
listed, an appropriate verb processor is 
called. Otherwise, routine PH5BVB is 
called, which performs some checking of 
phase 51 verb strings before passing them 
as P2-text to phase 51 (see "Handling Phase 
51 Verb Strings" in this chapter). 



PH5CTL with an indication that such is the 
case. 



VERB PROCESSING 



From the verb code, routine PH5CTL 
determines which verb analyzer to call. If 
the STATE, TEST, or SYMDMP option is in 
effect, phase 50 generates a call to the 
object-time COBOL library debugging 
subroutine entry point ILBODBG4 before the 
code to call any other object-time 
subroutine except ILB0FLW1 . The call to 
ILBODBG4 is generated only once per verb, 
even if the verb causes calls to more than 
one subroutine. For details on the 
object^time subroutines, see the 
publication IBM p OS/VS COBOL Subroutine 
L ibrary Program Lo gic. In general, there 
is a specific routine to analyze each COBOL 
verb, but there are a few cases of overlap. 
For example, all arithmetic verbs use parts 
of a processor known as the arithmetic 
translator. 

The illustrations in this chapter show 
P2-text strings as a verb followed by 
data-names, and Procedure A-text elements 
as assembler-language instructions. These 
are simplifications for the reader: the 
texts actually contain codes rather than 
verbs, and the P2-text for data-^names 
contains the dictionary attributes of the 
item, rather than its name. The actual 
text formats, including the codes, are 
shown in "Section 5. Data Areas." 

Note: When phases 50 and 51 use registers 
14 and 15 in their generated instructions, 
Procedure A-text DESTROY and RESERVE 
elements are passed to phase 6 or to phases 
62, 63, and 64. The purpose of the DESTROY 
element is to indicate that the contents of 
the registers are not to be relied upon any 
longer. The purpose of the RESERVE element 
is to indicate that the register may not be 
used by phase 6 or by phases 62, 63, and 64 
in the generated code until a FREE element 
for that register, issued by phase 50 or 
51, is read. 



RESOLVING SUBSCRIPTED AND INDEXED 
REFERENCES 



Note: The PH5CTL routin 
between numeric and nonn 
verb strings as follows: 
verb has a different ver 
nonnumeric IF. For all 
control is given to the 
analyzer; if this routin 
operands, it returns con 



e distinguishes 
umeric IF and MOVE 

the numeric IF 
b code from the 
MOVE strings, 
numeric MOVE 
e finds nonnumeric 
trpl to routine 



This section describes the processing of 
the SUBSCRIPT verb string. It shows how 
subscripted addresses are calculated and 
how the XSSNT and XSCRPT tables are used to 
eliminate duplicate calculation. Then the 
handling of indexes (which are very similar 
to subscripts and use the same tables) is 
discussed. 
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How Subscripte d Addresses Are Calculated 



To refer to a subscripted item, the object 
program must knot* the displacement in bytes 
of the desired occurrence from the 
beginning of the subscripted field. To 
calculate this displacement, the following 
must be known: 

• The number of bytes in the entire 
subscripted field. 

• The relative position in the field of 
the desired occurrence . 

The size of the field is known from the 
Data Division description of the field, 
including the PICTURE clause of the 
elementary item. The relative position is 
known from the value of the subscripts. 

The examples which follow show three 
levels of subscripting. The same concepts 
(and the same formula) apply to one or two 
levels of subscripting. 

The formula used to calculate a 
subscripted address is: 

(subscript 1*length1) + (subscript2*length2) 
+ (subscript3*length3) 
- (Iength1+length2+length3) 

This formula is used whether the 
calculation is done in phase 50 or in the 
object program. 

The following discussions use examples 
based on this entry in the Data Division: 

02 FIELD OCCURS 10 TIMES. 

03 SUBFIELD OCCURS 10 TIMES. 

04 ITEM OCCURS 10 TIMES PICTURE XX. 

Literal, Subscripts: When all the 
subscripts in a reference are literals,, the 
subscripted address can be calculated at 
compile time (the calculation is done by 
routine XSCOMP) . If a reference is made to 
ITEM (9, 8,7), the calculation is: 

(9*200) + (8*20) + (7*2) - (200+20+2) . 

The value of the result is the displacement 
in bytes of ITEM (9, 8, 7) from the 
beginning of the subscripted field. 

When the SUBSCRIPT string was first 
encountered, an entry was made for it in 
the XSCRPT table (the building of this 
table is more fully described in the 
section "Using and Optimizing Subscript 
References") • One field of the entry, 
called the idk field, contains a code, i, a 
displacement, d, and a base locator (BL) 
number, k. (BLs are assigned by phase 22; 
for a description, see the chapter "Phase 



22.") The value of d is the displacement 
away from the BL of the beginning of the 
subscripted field. After the formula has 
been calculated, the results are added to 
d. If this value is less than 4096 bytes, 
it becomes the new value of d. If it is 
4096 or greater, it is decremented by 4096; 
this decremented value is then placed in 
the d field of the XSCRPT table entry, and 
the BL number is incremented by one. The 
table entry now points to the desired 
occurrence at execution time. (Note that 
if the value of d exceeds a multiple of 
4096, it is decremented by 4096 as many 
times as required to make it less than 
4096, and 1 is added to the BL for each 
decrement., For example, if d=13,000, it is 
decremented by 12,288 and the BL number is 
incremented by 3.) 



Data-name Subscripts : When the subscripts 
are data-names, their values vary at 
execution time. Therefore, code must be 
generated to perform the calculations in 
the object program. This is done in 
routine XSCOMP, using the A-text generator. 



Suppose that reference is made to ITEM 
(X, Y, Z) . XSCOMP must first determine 
whether each subscript is binary. If not, 
code must be generated to get the value of 
the subscript from the data area of the 
object program, move it into a work area, 
and convert the value in the work area to 
binary* It is then handled as a binary 
subscript, using the value in the work area 
rather than the data area. 

The generated code performs the 
following actions at execution times 

© The value of d in the XSCRPT table (the 
address of the subscripted field) is 
loaded into a register. 

® The first subscript (X in the example) , 
in binary, is loaded into another 
register. This subscript denotes the 
desired occurrence number for FIELD, 
the highest level in the hierarchy. If 
FIELD is of constant length (that is f 
if it does not contain the DEPENDING ON 
option) , the value of X in the register 
is multiplied by a literal representing 
the length of FIELD (200 bytes) . If 
FIELD does contain the DEPENDING ON 
option, a value, instead of the 
literal, is picked up from a VLC 
(variable-length cell) where it was 
placed by a Q-Routine. This value 
represents the current length of FIELD. 

• The result of this multiplication is 
added to the value of d in the first 
register, and this process is repeated 
for each subscript. 



Phase 50 121 



Licensed Material - Property of IBM 



© Phase 50 has generated a literal 
(referred to in this discussion as 
LITX) whose value is: 

(length of FIELD + length of 
SUBFIELD + length of ITEM). 

© When the multiplications have been 
finished and the final increment has 
been added to the address in the 
register, this literal is subtracted 
from the register, and the result is 
the address of the desired occurrence. 

This computation is an exact duplicate 
at execution time of the formula applied to 
literal subscripts at compile time. 



The P2-text for these statements would 



be: 



PN1. 



After routine XSCOMP 
Procedure A~text for the 
changes the idk field of 
entry for ITEM. It repl 
contents with the number 
which at execution time 
calculated address of IT 
code indicating that thi 
number rather than a dis 



has put out the 

se instructions, it 

the XSCRPT table 
aces the former 

of the register 
will contain the 
EM (X, Y, Z) , and a 
s is a register 
placement. 



Mixed Literal, and, Data-name Subscripts : 
When the subscripts are mixed literals and 
data-names, for example, ITEM (X, 4, Z) , 
part of the calculation can be done in 
phase 50 to save time in the object 
program. XSCOMP multiplies the literal 
subscript by the length of the field it 
refers to. In the example, this is 4*20 
(SUBFIELD is 20 bytes long). This result 
is subtracted from LITX before A-text for 
LITX is generated. Then, at object time, 
the multiplications and additions will be 
performed for X and Z and this new value of 
LITX will.be subtracted. 

Note that , to arrive at a meaningful 
value, the entire formula must be 
evaluated. The intermediate results of a 
subscript calculation are meaningless in 
themselves. 



Using and Optimizing Subscript Refe rences 



Part of the function of the XSCRPT table is 
to avoid duplicate calculations for a 
subscripted reference. For example, given 
the source statements: 

PARAGRAPH!. ■ MOVE ITEM (X, Y, Z) TO D. 
ADD ITEM (X, Y, Z) TO E. 

It is unnecessary to calculate the address 
of ITEH (X, Y, Z) twice. When the ADD 
statement is executed at object time, the 
correct address will already be in a 
register. 



SUBSCRIPT (5) ITEM X Y Z SSID1 
MOVE (2) SSID1 D 
SUBSCRIPT (5) ITEM X Y Z SSID2 
ADD (2) SSID2 E 



When the first SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a matching entry. None is found, so an 
entry is made after the instructions for 
the subscript calculations have been 
generated. This entry includes the idk 
field described earlier and the dictionary 
pointers for ITEM and all the subscripts. 
(Note that the dictionary pointer is used 
only because it provides a unique 
identifier. The value of the pointer 
itself is meaningless.) There is also a 
field for the total length of the entry 
(the exact format can be found in "Section 
5. Data Areas.") 

An entry is also made in the XSSHT 
table. This entry includes the subscript 
number (SSID1) and a pointer to the XSCRPT 
entry. 

After the SUBSCRIPT string has been 
processed, the MOVE string is encountered. 
Routine XI S3 1 (also called XSUDB3) searches 
the XSSNT table for SSID1. It uses the 
pointer in the XSSNT table to pick up the 
idk field in the XSCRPT table. This field 
replaces SSID1 in the DOP, and the verb is 
now processed as if the operand were a 
data-name. 

The XSSHT entry for SSID1 is nou 
deleted, since it trill never again be 
referenced. This is because phase 4 gave a 
unique number to each subscript 
calculation. 

When the second SUBSCRIPT string is 
encountered, the XSCRPT table is searched 
for a match. The search is made on total 
entry length (if this does not match, the 
entries cannot be identical) . When the 
match is found, an XSSNT entry is made for 
SSID2, with a pointer to the same XSCRPT 
entry as for SSID1. 

If there are not enough registers for 
the subscripted address to remain in a 
register for the second time it is 
referenced, code is generated before the 
register is used to store the address in a 
subscript save cell. (These cells are 
located in the SUB ADR field of the Task 
Global Table.) An indication of this, 
along with the cell number, is placed in 
the XSNIDK field of the XSCRPT entry, so 
that the second time the address is needed, 
the contents of the cell can be loaded into 
another register. The section "Register 
and Storage Allocation" later in this 
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chapter describes hou values in registers 
are saved. 

Thus, the XSNIDK field may ultimately 
contain three types of information: 

1 . If all subscripts used in the 
subscripted reference were literals, 
the field contains a BL type, BL 
number, and displacement, in the idk 

format. 

2. If one or more subscripts were 
data-names, the field has been updated 
to contain a register number and the 
code indicating that this is a 
register. 

3. If the register is needed for some 
other purpose before the subscripted 
reference is used, the field contains 
the number of the subscript save cell 
in which the register contents have 
been stored, with the appropriate 
code. 

Every time a PN, GN, or VN definition is 
encountered in the P2-text, the entire 
XSCRPT table must be deleted. The reason 
is shown by the following source program 
statements: 

ON 2 AND EVERY 2 GO TO 
PARAGRAPHS. 

MOVE ITEM (X, Y, Z) TO D. 
PARAGRAPH2. ADD ITEM (X, Y, Z) TO E . 

In this example, if PARAGRAPH2 is 
entered through the branch in the ON 
statement, the subscript calculations 
generated for the MOVE will not have been 
executed, and the register will contain 
whatever value was left from the last time 
it was used. Therefore, the calculation 
must be performed in PARAGRAPH2. Deleting 
all the entries in the XSCRPT table 
whenever a paragraph-name is encountered 
assures that the code will be generated. 

The XSCRPT table must also be deleted 
when any verb is encountered which can pass 
control to any point other than the next 
sequential instruction. An example of such 
a verb is a SORT verb or any VSAM verb. 



expressing a displacement in bytes from the 
beginning of the indexed field. The value 
in the cell corresponds to the following 
formula: 



(occurrence number - 
elementary item 



1) * length of 



It is the responsibility of the source 
programmer to set the value in the index- 
name via a SET statement before an indexed 
reference is made. The SET verb performs 
the same calculations for an index-name 
that routine SSCRPT does for a subscript. 

Indexing may be direct, indirect, or 
mixed (indexes and literals) . Direct 
indexing uses only index-names. Indirect 
indexing uses literals as increments or 
decrements. Mixed indexing consists of at 
least one index with one or more literal 
subscripts. Given the Data Division 
statements : 

02 FIELD OCCURS 10 TIMES INDEXED BY A . 
03 SOBFIELD OCCURS 10 TIMES INDEXED BY B. 
04 ITEM OCCURS 10 TIMES INDEXED BY C 
PICTURE XX. 

a reference to ITEM (A, B, C) would be 
direct indexing, and a reference to ITEM 
(A+4, B-5, C+6) would be indirect indexing. 

Direct Indexin g: The P2-text contains a 
SUBSCRIPT verb string with a special code 
in the operands to indicate that they are 
index-names rather than subscripts. 
Entries in the XSCRPT and XSSNT tables are 
made and used in the same way as for 
subscripted references. Object code is 
generated to place the value of d from the 
idk field into a register and add the 
values of all the index-names to it. 

In dire ct. In dexing : Routine SSCRPT 

determines 

SUBSCRIPT 

placed in 

area, ffhe 

the indexe 

dictionary 

prevent a 

necessary 

following: 



that there are literals in the 
string. These literals are 
an information gathering work 
n the XSCRPT entry is made for 
d field referenced, the 

pointers are not entered, to 
match from being found. This is 
for possibilities such as the 



Inde xed References 



Indexed references are resol 
routines, applying the same 
subscripted references. The 
their handling occurs becaus 
values are never known at co 
because, at object time, the 
cells (each index-name is a 
the INDEX field of the TGT) 



ved by the same 
logic, as 

difference in 
e index- name 
mpile time, and 

index-name 
1-word cell in 
contain values 



MOVE ITEM (A+4, B-5, C+6) TO D. 
MOVE ITEM (A, B, C) TO E. 

If a normal XSCRPT entry was made for the 
first statement, the dictionary pointers 
would be identical and the second statement 
would use the register set up by the first. 
Since the indexing does not point to the 
same place, the operation would be 
incorrect. 

After routine XSCOMP has generated the 
code to add the index-names (as described 
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earlier under "Direct Indexing") , it tests 
the information-gathering work area. When 
literals are present, the routine generates 
additional instructions. These 
instructions load the literal into a free 
register, multiply the register by the 
length in the VLC for that level (in the 
example, the literal 4 would be multiplied 
by 200) , and add this value to the register 
pointing to the indexed field (this 
register has already been incremented by 
the index-name values). This process is 
repeated for every literal. The 
multiplication must be done because the 
literals, unlike the index-names, represent 
occurrence numbers, not displacements in 
bytes. 

Mixe d L i teral an d Direct Indexin g; Mixed 
indexing is processed as a combination of 
direct and indirect. All index-names are 
processed first, then each literal is 
treated as an indirect increment. 



ARITHMETIC VERB STRINGS 



The Arithmetic Translator is a group of 
verb analyzers used to process arithmetic 
verb strings. It is also used for all MOVE 
statements and IF statements processed by 
phase 50. 

Given the source program statement: 

COMPUTE X=A+(C-D/E) *F-G . 

the following P2-text would be generated: 

EVAL DMAX DCURRENT X. . . 
DIV E D IR1 (-C) 
SUB IR1 C IR2 (*F) 
MULT F IR2 IR3 (+A) 
ADD IR3 A IR4 (-G) 
SUB G IR4 IR5 (ST X) 
STORE IR5 X 

For a description of how phase 4 generates 
this string, see "COMPUTE statement" in the 
chapter "Phase 4" where this same example 
is used. 

For each verb string, the Arithmetic 
Translator routines do the following: 

1 . Place information about each operand 
in a work area. 

2. Determine the sizes of intermediate 
and temporary fields, and check for 
possible overflow by performing 
com pile-time arithmetic. 

3. Determine the mode for the operation. 



4. Allocate registers and temporary 
storage for the operation. 

5. Call the A-text Generator (described 
later in this chapter) to produce the 
Procedure A-text. 

The formats of switches used by the 
Arithmetic Translator routines are given in 
Figure 31. 



Work Area 



For each operand in a string, a work area 
called an operand information buffer is set 
up. There are three types of operands: 

1. Data-name operands. In the example, 
all the operands named in the source 
program COMPUTE statement are 
data-name operands. 

2. Intermediate results. In the example, 
these include all the operands named 
with IR. Intermediate results are 
required because arithmetic machine 
instructions can handle only two 
operands at a time. The result of one 
arithmetic operation becomes an IR, 
which is then used as an operand of 
the next operation. 

3. Temporary results. These are used by 
series addition and subtraction with 
multiple receiving fields. For the 
source statement: 

ADD M, N, TO P ROUNDED, Q 

a temporary result is required to hold 
the sum of M, N, and 0. 

Each operand information buffer holds 
information similar to an entry in the 
table XINTR. This includes such attributes 
as the mode of the operand, the number of 
digits to the left and right of the decimal 
point, and the largest possible value of 
the operand. (The format of table XINTR is 
given in "Section 5. Data Areas.") For a 
data-name operand, these attributes are 
found in the P2-text element. For 
intermediate results or temporary results, 
the information is found in table XINTR, 
when the operand is used in the operation. 
It was placed in the table after processing 
of the string in which the intermediate or 
temporary result was crea ted. The 
attributes for the intermediate result that 
is the result of the operation are filled 
in after processing the operands which form 
it (how the attributes are found is 
discussed in this section under 
"Compile-Time Arithmetic") . When the MULT 
string is processed, in the COMPUTE 



124 Section 2. Method of Operation 



Licensed Material - Property of IBM 



| XGSWT | 


d i 1 

| Bit | Meaning I 


| | Binary mode | 
1 1 f Arithmetic operation | 
I 2 J Internal decimal mode | 
| 3 | Size error in floating-point | 
| | conversion j 
j 4 j Receiving field is floating-point i 
| 5 | End of ADD CORRESPONDING | 
| 6 | Size error option | 
| 7 | Rounded option I 
i.i. 1 


| XGNSW | 


1- * 1 

| Bit | Meaning I 
» I n 


u 1 (1 

I | Decimal place added for rounding | 
j 1 j Divide rounded remainder option | 
\ 2 | IKF5011I-W already printed j 
| 3 j Minus exponent j 
j 4 j Bypass store operation | 
| 5 | ADD CORRESPONDING \ 
1 6 | Size error I 
j 7 j Subroutine entered at entry point | 
I | XOTSEM I 
* i ., , , , j 


| XOPMOD j 


Ci i 1 
j Bit | Meaning I 


| \ All subscripts are numeric | 
1 1 J Subtract operation | 
| 2 j Division operation J 
| 3 | Divisor I 
| 4 | Multiply operation | 
j 5 j Add or subtract operation | 
| 6 | Floating-point mode | 
| 7 | Unused j 



1 XZSWT 






1 Bit | 


Meaning 




1 | 


i 
XR3 contains address of second 1 




operand | 


I 1 I 


Set XREG2 operand; XREG1 operand | 




already set | 


I 2 | 


Both operands processed | 


I 3 I 


Length preset | 


I 4 I 


Use length after scaling | 


I 5 | 


Floating- 


-point operation | 


I 6 ! 


Logical operation | 


I 7 | 


Binary 




| Y1IRX+1 in Operand Buffers | 


| Equate | | 




j name 


I Bit | 


Meaning j 


| XLITZR | | 


Zero literal j 


| XGNCON | 1 | 


Generated constant | 


| XFTPT 


I 2 | 


Computational-1 or | 
computational-2 | 


| XLITER | 3 | 


Literal | 


| XINREG | 4 | 


Operand is in a register | 


j XGDPFP | 5 | 


Double precision | 






floating-point | 


| XGOVFL | 6 | 


Overflow may occur | 


| XG2IRX | 7 | 


Double precision mode | 


j Flag Byte in Phase 50 Internal Table for | 


| Registers through 5 | 


1 Bit | 


Meaning 




r r 

i o r 


Permanent flag for floating-point | 




regist< 


srs | 


i 1 i 


Subscript 


ts being computed | 


I 2 { 


Register 


being used for subscript | 




computation | 


I 3 | 


Register 


being used for an | 




intermediate result | 


! <* i 


Register 


being used in double | 




precision mode | 


i 5 | 


Register 


not available | 


I 6 | 


Register 


contains operand 2 | 


I 7 | 


Register 


contains operand 1 | 



Figure 31, Arithmetic Processing Switches 



statement example above, IR2 is found in 
the XINTR table. The attributes of IR3 are 
determined during processing of the MULT 
string, and IR3 is then used as an operand 
of the ADD string which follows. 

If any of the operands are 
floating-point, the floating-point verb 
analyzer is called immediately to generate 
the Procedure A-text. Otherwise, 
compile-time arithmetic is performed. 

Note : The operand information buffers are 
defined on the same storage as the data 
area for the SUBSCRIPT analyzer. 



Co mpil e- Ti m e , A r it h met ic 



Compile-time arithmetic is performed 
with the maximum possible values of the 
operands (9 in every digit position) . If 
one of the operands is a literal, its 
actual value is used. The purpose of 
compile-time arithmetic is to determine if 
overflow is possible, and to determine how 
many places are required to hold the 
intermediate or temporary result. 

For example, assume that for the string 
ADD IR3 A IR4 (-G) , the attributes of A 
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show that it has a PICTURE of 99V9 and the 
attributes of IR3 (from table XINTR) show 
that it has a PICTURE of 9(3)V9(2). The 
compile-time arithmetic for the maximum 
value of the scaled operands is: 

9990+99999=109989 

The result determines the attributes 
(including the maximum possible value) of 
IR4, which are placed in table XINTR at the 
end of the ADD processing. 

If the intermediate result (IR4 in this 
case) exceeds or is equal to 10**30, 
overflow is possible. To avoid overflow, 
instructions are generated to truncate the 
intermediate result down to 30 digits. 

That is, let DM AX be the maximum number 
of decimal places in any operand in the 
source statement, let DIR be the number of 
decimal places in the intermediate result, 
and let IIR be the number of integer places 
in the intermediate result. Then the rules 
for truncation are: 

1. If DIR exceeds DMAX and IIR+DMAX is 
less than or equal to 30, then 
low-order decimal places are truncated 
from DIR until IIR+DIR=30. 

2. If DIR exceeds DMAX and IIR+DMAX is 
greater than 30, then low-order 
decimal places are truncated from DIR 
until it equals DMAX, and high- order 
integer places are truncated from IIR 
until DMAX+IIR=30. 

3. If DIR is less than DMAX, then 
high-order integer places are 
truncated from IIR until DIR+IIR=30. 



Mode of Operation 



The mode of the operands determines the 
mode of operation. In general, the mode of 
operation is predetermined (for example, if 
one of the operands is floating-point, all 
of the operands are converted to 
floating-point and the operation is in 
floating-point). However, for operations 
involving binary and internal decimal 
operands, routine XHSMD is used to perform 
some tests to determine whether the 
operation is to be in binary or in internal 
decimal. 

If any of the operands is external 
decimal, it is converted to internal 
decimal unless it is in a MOVE statement. 
If an operand is sterling nonreport, it is 
converted to internal decimal unless it is 
the target field of a MOVE or STORE verb. 



If any conversions are required, they 
are handled by inline conversion or calls 
to COBOL library subroutines, depending on 
the complexity of the conversion. See the 
publication IB M OS /VS COBOL S ubroutine 
Lib rar y Program Logic, for the generated 
calling sequences. 



Regi ster and Stora ge Al loc ation 



To assign registers for an instruction, 
special register handling routines are 
used. These are: 

© XRASG or XRSUAS to assign a single 
register 

© XRDBIR to assign a register pair 

© XRSASF to assign a floating-point 
register 

Phase 50 maintains an internal table for 
registers through 5, which are the 
arithmetic work registers of the object 
program. Each table entry contains a flag 
indicating whether the register is being 
used, how it is being used (for example, as 
one of a pair) , and what it contains (such 
as a subscript or index calculation, or an 
intermediate result). The format of this 
flag byte is given in Figure 31. 

If a register must be freed, routine 
XFREER is called. The calling routine 
passes the number of the register to be 
freed to XFREER in the XREGNO cell of the 
phase 50 data area. (XFREER is also used 
by phase 50 when it is analyzing phase 51 
verbs; see "Handling Phase 51 Verb 
Strings.") If registers through 5 must be 
freed, routine DFREER is called. 

XFREER checks the register table entry 
for the specified register and, if it is in 
use, generates instructions to store it. 
It must then indicate that the value 
formerly in the register is no longer 
there. If the register was being used for 
an arithmetic operation, it updates the 
operand information buffer by filling in 
the number of the TEMP STORAGE (object-time 
arithmetic temporary storage) cell in the 
TGT where the register contents are stored, 
and the displacement of the cell in bytes 
from the beginning of the TEMP STORAGE 
area. If the value in the register was a 
subscript, XFREER changes the code of the 
idk (addressing parameters) field in the 
XSCRPT table entry (see "Using and 
Optimizing Subscript References" earlier in 
this chapter) to indicate that the value is 
in a subscript save cell, and provides the 
cell number. Subscript save cells are 
assigned in the SUBADR field of the Task 
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Global Table (TGT) during program 
execution. 

Operations in binary are performed in 
registers,, and the intermediate results are 
left there whenever possible. Decimal 
operations are performed in storage r with 
the intermediate results placed in cells of 
the TEMP STORAGE area. 



added to Q- When the temporary result is 
added to P, its value is moved into another 
cell of the TEMP STORAGE r and the operation 
is performed from that cell ? leaving the 
original temporary result unchanged. 



GENERATING A-TEXT 



Space in the TEMP STORAGE area is always 
allotted in 8-byte (doubleword) cells, 
regardless of how many bytes are actually 
required to hold the operand. (If more 
than eight bytes are needed, two cells are 
allotted.) To minimize total temporary 
storage area used by the program, each TEMP 
STORAGE cell is made available as soon as 
the value in it is no longer needed. 

TEMP STORAGE cells for arithmetic 
operations are assigned by using the 
counter TSM&X in COMMON (for the format of 
CO!! HON, see "Section 5, Data Areas"). 
TSHAX contains the number of the highest 
numbered doubleword cell that has been 
assigned. When a new TEMP STORAGE cell is 
assigned, this counter is incremented by 
one. As soon as the value in the TEMP 
STORAGE cell is no longer needed, the cell 
number is placed in table XAVAL. The next 
time a TEMP STORAGE cell is required, XAVAL 
is searched first. If it has any entries, 
the cell found there is used, and the XAVAL 
entry is deleted. Only if table XAVAL is 
empty is a new TEMP STORAGE cell assigned 
from TSMAX. 

Intermediate results are handled in such 
a way that, as soon as possible after an 
intermediate result has been computed, it 
is used in the next computation and is then 
no longer needed. In the COMPUTE statement 
shoun above, for example, IR3 is the result 
of the MULT operation, and then is 
immediately used as an operand of the ADD. 

Note that an intermediate result is also 
required after the last arithmetic 
operation (IR5 in the example) and that the 
value is then moved into the data-name 
result (X) via the STORE verb. This is 
necessary because the value may have to be 
converted, truncated, or aligned to conform 
to the format for X. 

A temporary result, on the other hand, 
must be saved until all operations 
requiring it are finished. In the 
stateaent: 

ADD M, N, TO P ROUNDED, Q. 

the temporary result (the sum of M f N, and 
0) is first added to P and then added to Q. 
All steps involving P (rounding, 
truncation, or conversion, if needed) are 
completed before the temporary result is 



A-text is generated from three sources: 
Constant A-text, Direct A-text, and the 
A-text Generator. The nature of the text 
required determines which source is used to 
generate a particular block of text. 

Constant A-text: This type of Procedure 
A-text resides in the phase 50 constant 
area. It is stored in the form of DCs, 
ready to be written out when needed. It is 
used for standard, frequently occurring 
object-time operations, such as START. 

Direct A-text : This is generally written 
as one block of instructions at a time by 
routine GATXTV. The routine is called by 
the verb analyzers using two parameters: 

© Displacement of the desired block of 
text from the beginning of the text 
area 

o Length of text to be written 

The verb analyzer fills in the variable 
fields before calling GATXTV. 

A-text Generator: The A-text Generator is 
called by a verb analyzer to write one 
instruction of Procedure A-text at a time. 
It also generates Optimization A-text for 
virtual and literal definitions. It is 
used frequently by the Arithmetic 
Translator and by other analyzers requiring 
the generation of A-text too variable to be 
stored as Constant or Direct A-text. 

To call the A-text Generator, the verb 
analyzer fills in the appropriate cells in 
the parameter area (see Figure 32) and 
calls a particular generating routine. The 
generating routine usually has the same 
name as the instruction it produces (for 
example, MVC, LOAD) . The A-text Generator 
has no common entry point. 

Before returning to the caller, the 
generating routine sets the entire 
parameter area to 0. 

From the parameter information, the 
generating routine determines exactly what 
type of instruction to write. For example, 
if the LOAD routine finds that the only 
operands specified are two registers, it 
writes an LR instruction. If a nonregister 
operand is two bytes long, the generating 



Phase 50 127 



Licensed Material - Property of ' IBM 



routine generates an LH. This occurs for a 
cell such as a VLC, which is always a 
half word or a 2- byte literal. The A-text 
Generator does not test the length of a 
data-name. 



f — 


Parameter Cells for the A-text Generator I 


| OPERAND-1 PARAMETERS 


Defini- 
tion 


Element 


OPERAND-2 PARAMETERS j 


| Name 


Meaning 


I i 

| Name 


Meaning { 


|0P1 


| Pointer to the DOP 
(storage cell in the 
phase) for a data- name 

(operand. 


1F 


Address 
Reference 


0P2 


Same as for the first | 
operand. | 


|XL1 


(Length of operand (used 

for SS instructions such 
(as EX, MVC, AP) . The 
(routine, which generates 

the text, decrements this 
(value by 1 before using 

it, as required by these 

instructions. 


1H 




XL2 


Length of second j 
operand (for SS j 
instructions &ith two | 
lengths, such as AP, | 
SP, ZAP) . The I 
generating routine | 
decrements the value | 
by 1. | 


|XWC1 


For arithmetic 
(operands, specifies the 

operand's position in 

the TEMP STORAGE field 
(of the TGT. TEMP 

STORAGE is used for 
[arithmetic operands 

only. 

I Bytes 1 and 2 : 
(Displacement of the 

8-byte slot containing 
(this operand from the 

beginning of the TEMP 

STORAGE field. 

Byte 3: Number of bytes 


XLS 




(XWC2 


Same as for the first j 
operand. j 




actually required by the 
(operation. TEMP STORAGE 

space is always assigned 
| in slots of 8 bytes, but 

frequently an arithmetic 

operand is shorter, 
| using only a few of the 
I low-order bytes. 




I TALLY1 


[First operand is TALLY. 


XL1 


Address 
Reference 


TALLY2 


Second operand is TALLY. | 


IBDISP1 


| Base (specifies a 

[register number) and 

| displacement of operand. 


! XL2 


(Base and 
Displacement 


IBDISP2 


| Same as for the first | 
(operand. | 



Figure 32. Parameter Cells for the A-Text Generator (Part 1 of 4) 
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Parameter Cells for the A-text Generator 



"T~ 



OPERAND-1 PARAMETERS 



Name 



Meaning 



Defini- 
tion 



Element 



OPERAND-2 PARAMETERS 

^ 



Name 



Meaning 



RELAD1 



Operand is referenced by 
its relative location 
within a field. 

Byte 1 : Code indicating 
the type of cell being 
referenced (the codes 
are listed under 
"Relative Address 
Element" in the 
Procedure A-text 
formats, given in 
"Section 5. Data 
Areas") . 

Byte 2 : Number of bytes 
needed to express the 
address constant . 

Bytes 3 and 4 : 
Identifying number which 
pinpoints this cell 
within its field. 



VIRTC1 {Identifying number 

assigned from VIRCTR 
when the operand is a 
virtual. The number 
begins in byte 3. 

GVIRTl|Name of virtual (used 
with VIRTC1) . 

XC0N1 | Used for two distinct 
types of information: 

(1) Operand is a literal 

Byte 1-16; Value of 
literal, right-adjusted. 

By te 1 7: Length of 
literal. 

(2) Operand is a DC-type 
constant other than an 
address constant 

B yte 1 : Length of 
constant. 

J Bytes 2-17: Value of 
j constant, left-adjusted. 



1F 



1F 

2F 
XL17 



Relative 
Address 



Virtual 
Reference 



Literal 
Reference 



RELAD2 



Unused. 



VIRTC2 



GVIRT2 



XC0N2 



Unused. 



Unused. 



Same as for the first 
operand. 



Figure 32. Parameter Cells for the A-Text Generator (Part 2 of 4) 



Phase 50 129 



Licensed Material - Property of IBM 



Parameter Cells for the A- text Generator 
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a GN reference. 



Operand is a PN 
reference. 
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1H 



1F 



of PN 



Bytes 3 and 4; PN 



number 

Operand is an item in one 
of the variably- located 
fields of a Global Table. 

Byte 1 : Type code (the 
codes are listed under 
"Global Table 
Variably-located Area 
Reference" in the 
Procedure A-text 
formats, given in 
"Section 5. Data 
Areas") . 

Displacement from 
beginning of allocated 
storage of a 
right-adjusted operand. 

Operand is a VN reference 

Byte 1: Code 00 

B yte 2 ; Priority number 



XL3 



XL3 



1F 



Bytes 3 and 4; VN 
number 

Operand is an item in a 
fixed-location field of 
a Global Table. 

Byte 1 t Type code (the 
codes are listed under 
"Global Table Standard 
Area Reference" in the 
Procedure A-text 
formats, given in 
"Section 5. Data 
Areas") . 



XL2 



the first 



the first 



8 
I 
i 

| Global Table 

(Variably- 

| located Area 

(Reference 

I 

I 



I I 

I I 
I I 

|XCNTR2|Same as for 
j | operand. 



the first 



I 
I 


1 

1 


1 

1 


I 
I 


1 
1 


1 
1 


I 


IPLUS2 


| same as for 


I 
I 


1 
1 


| operand. 
1 


I 
1 


1 
1 


1 
1 


I Variable 


1 


1 


IProcedure- 


name| 


1 


| Reference 


1 


1 


1 


1 


1 



the first 



I I 

I I 

(Global Table 

(Standard Area 

(Reference 

I 

I 

I 



I I 



I 
I 
I 

|GDEBG2| Same as for 
I (operand. 
I ( 
I I 



the first 



Figure 32. Parameter Cells for the A-Text Generator (Part 3 of 1) 
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f-"" 1 ■' ' ■ ' ..■....■ ■ 1 

| Parameter Cells for the A- text Generator | 




OPERAND-1 PARAMETERS 


| | | OPERAND-2 PARAMETERS 




i 


r "i 

IName 


- 
Meaning 


[tion | Element | Name j Meaning | 


IBLREF1 


Operand is a base 
locator. 

Byte 1: Type of base 


| XL2 JBase Locator | BLREF2| Unused. 
I | Reference | | 








locator: BL, BLL, SBL 
(»i« field of idk) 






Byte 2: BL number 


j XL1 j |XREG2 | Register number 
|| j {second register 


for 
in an 




IXREG1 


Register number if first 
operand is a register 






Note; When this is 
used, the second operand 
(unless it is a register 
also) is still 
considered the first 
[non-register operand and 
| is placed in the 
operand-1 cell. 


| j j | RR instruction. 






|IMH 


Immediate field value 
[for an SI instruction. 


I XL1 | II 






IXXREG 


Register number for 
(index register in an RX 
instruction. 


I XL1 | | | 







Figure 32. Parameter Cells for the A-Text Generator (Part 4 of 4) 



LITERALS AND VIRTUALS 



The A-text Generator does not include 
literals and virtuals in the Procedure 
A-text. Rather, it writes the virtual with 
an Optimization A-text prefix on SYSUT2 and 
writes the literal as Optimization A-text 
on SYSUT3. At execution time, virtuals and 
literals are stored in the Program Global 
Table. By processing Optimization A-text, 
phase 6 or 6 2 can eliminate duplicate 
storage if the same virtual or literal is 
used more than once. 

For virtuals, the A-text Generator 
assigns an identifying number to the 
virtual and writes the number as Procedure 
A-text. The virtual itself is then written 
with an Optimization A-text prefix on 
SYSUT2, along with its identifying number. 

Virtual identifying numbers are assigned 
from the VIRCTR cell of COMMON. This 
counter is initialized to 1 in phase 00. 
The counter is incremented to indicate the 
number of virtuals reguired by the options 
that are in effect. Each virtual and the 
options for which it is required are listed 
below. Although more than one option may 



require the same virtual, the virtual 
appears only once. 



Virtual 


Options that require the 




virtual 


SRVO 


NORESIDENT 


DBGO 


COUNT, FLOW, STATE, SYMDMP, 




TEST 


DBG5 


SYMDMP 


FLWO 


FLOW 


STNO 


STATE 


CT10 


COUNT 


TO00 


COUNT 


SGMO 


TEST, segmentation 



The total number of virtuals processed by 
phase 50 is equal to the number of virtuals 
required by the options in the above list. 
At the end of phase 50 initialization, the 
value in VIRCTR is one greater than the 
total number of virtuals processed by the 
phase. Within phase 50, whenever a new 
virtual is needed, the current value of 
VIRCTR is used as the virtual number, and 
then the counter is incremented. At the 
end of phase 51, the counter is decremented 
by 1. (VIRCTR is the only counter in 
COMMON handled in this manner. For all 
other counters, the value of the counter is 
incremented before being used.) 
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When a literal reference is required, 
the Procedure A-text element contains a 
code and a counter. The literal itself is 
put out as Optimization A-text, and the 
LTLCTR counter of COMMON is incremented. 
An identifying number is assigned to the 
literal, so that phase 6 or 64 can 
determine which literal reference applies 
to a given literal. 

During phase 50 processing, the 
Optimization A-text for a literal 
definition is written in SYSUT3; all other 
output from phase 50 is written in SYSUT2. 



HANDLING PHASE 51 VERB STRINGS 



the case, routine XSPRO generates calls to 
Q-Routines. 

Finally, routine PH5BVB determines 
whether the verb is one that requires 
deletion of all the entries in the XSCRPT 
table. These verbs include: 



CALL 


WRITE 


RECEIVE 


LINK 


REWRITE 


ACCEPT MESSAGE 


ENTRY 


REPORT-CALL 


CANCEL 


SORT 


RELEASE 


VSAM READ 


OPEN 


ON 


VSAM WRITE 


CLOSE 


STOP 


VSAM REWRITE 


ACCEPT 


STRING 


VSAM DELETE 


RETURN 


UNSTRING 


VSAM START 


READ 


SEND 


VSAM OPEN 


MERGE 




VSAM CLOSE 



Once the PH5CTL routine has determined that 
a verb string is not one of those processed 
by phase 50, it calls routine PH5BVB to 
handle the verb string. 

The PH5BVB routine first checks to see 
if the verb is one that will use registers 
through 5 at execution time. If it ds> 
routine DFREER is called to free registers. 
(DFREER is described in "Register and 
Storage Allocation" earlier in this 
chapter.) 

Routine PH5BVB then writes the header 
and operands of the verb string on SYSUT2 
as P2-text. Then it determines whether the 
verb is MOVE, EXAMINE, TRANSFORM, RECEIVE, 
or SEND; a MESSAGE condition; or a 
subroutine test verb generated for an IF 
(NOT) MESSAGE statement. If it is one of 
these, routine XSPRO is called. This 
routine checks to see whether there is an 
object of an OCCURS clause with the 
DEPENDING ON option in the data-name being 
moved into, examined, or transformed, in 
the CD-name, or in the data-name associated 
with a RECEIVE or SEND verb. When this is 



If the verb is one of the above, routine 
KILSUB is called to delete the XSCRPT table 
entries. 



ADDITIONAL PROCESSING FOR THE OPT OPTION 



If the OPT option is in effect, phase 50 
also performs the following functions: 

• Converts phase 4 Optimization 
Information elements (43xx) to phase 50 
Optimization Information elements 
(COxx) . 

• Primes the BLUSTBL table for the number 
of BLs and BLLs present in the program. 
For each reference to a data-name, it 
adds 1 to the entry for that BL or BLL. 
This table is used by phase 62 to 
assign permanent base registers to the 
BLs and BLLs. Phase 51 also updates 
the BLUSTBL table. 

• Writes GNUREF elements for Q-Routine 
calls. 
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PHASE 51 



Phase 51 (IKFCBL51) func 
manner to phase 50* Ele 
written by phase 50 are 
Phase 51 checks each ele 
whatever processing is r 
the type of element read 
processing, it writes th 
Procedure A-text on SYSU 
A-text on SYSUT3, or as 
(Optimization A-text is 
after any Optimization A 
written on SYSUT3 by pha 



tions in a similar 
ments of text 
read from SYSUT2. 
ment and performs 
equired, based on 

After 
e element as 
T1 , as Optimization 
E-text on SYSUT4. 
written immediately 
-text that was 
se 5(h) 



Input to phase 51 can be any of the 
following: 

o Intermediate Procedure A-text 

• Intermediate Optimization A-text 
© Verb strings 

• Intermediate E-text 

An element of Intermediate Procedure 
A-text may be a Q- Routine control break, or 
it may be text generated by phase 50 and 
requiring no further processing. If it is 
a Q-Routine control break, routine GETNXT 
generates an end-of-file macro instruction, 
if necessary, and writes the text element 
of 4440. Otherwise, the element is merely 
copied as Procedure A-text output without 
the identifying prefix of 28 and its count 
field. 

An element of Intermediate Optimization 
A-text, identified by a prefix of 27, can 
be a segmentation control break or a PN, 
GN, or VN definition. 

Verb strings written in P2-text require 
processing by one of the phase 51 verb 
analyzer routines. 



E-TEXT 



Whenever it encounters E 
or generates an E-text e 
phase 50 writes it out o 
identifying prefix or, i 
CSYNTAX option is in eff 
without the prefix. E-t 
is referred to as Interm 
Phase 51 recognizes it, 
prefix, and writes the E 
SYSUT4. 



text in its input 
lement itself, 
n SYSUT2 with an 
f the SYNTAX or 
ect, on SYS0T4 
ext with the prefix 
ediate E-text. 
discards the 
-text out on 



To enable phase 00 to pass a return code 
back to the operating system at the end of 
compilation, phase 51 must determine the 
highest severity level encountered in the 
program. When routine GETNXT encounters an 
element of E-text or when the phase 51 
processing routines find an error situation 
requiring that E-text be written, routine 
ERRPRO is called. This routine uses a cell 
in COMMON called ERRSEV (for the format of 
COMMON, see "Appendix A: Communications 
Area") . If any E-text was generated by 
phases 10, 12, 20, 22, and 21, ERRSEV was 
set by phase 21. Thereafter, ERRSEV is set 
by phases 3, 4, and 50 to the highest error 
severity level encountered. 



Routine ERRPRO adds 1 to the severity 
code of the current E-text element and 
multiplies this value by 4. (The code must 
be incremented by 1 because certain errors 
produce a severity code of 0; adding 1 to 
the severity code distinguishes such an 
error from no errors at all.) 



ERRPRO then compares this value to the 
current value of ERRSEV, and enters the 
code of the E-text into ERRSEV if it is 
higher. The E-text is then written out on 
SYSUT4. Note that this is the first time 
(unless the CSYNTAX or SYNTAX option is in 
effect) that E-text is separated from the 
other output of a phase, rather than 
embedded in it. 



If the CSYNTAX option is in effect and 
if any phase generates an error (E) or 
disaster (D) level message, the SYNTAX 
option is forced into effect. Following 
phase 50 processing if phase 00 finds the 
SYNTAX option in effect, phase 00 sets the 
value of LINKCNT to indicate that phase 70 
is to be executed next. If phase 00 finds 
that the CSYNTAX option is still in effect, 
processing continues with phase 51. If 
phase 51 detects no syntax error which 
would cause an error (E) or disaster (D) 
level message, a full compilation is 
produced. Otherwise, the SYNTAX option is 
forced into effect, the ERRSEV cell is set, 
and control is passed to phase 00. Finding 
the SYNTAX option in effect, phase 00 sets 
the value of LINKCNT to indicate that phase 
70 is to be executed next; error messages 
are listed and the compilation is 
terminated (see "Syntax-checking 
Compilations" in the chapter "Phase 00") . 
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PROGRAM BREAKS 



Routine GETNXT uses program breaks to 
determine where to issue the START 
macro-type instruction. This instruction 
indicates where in the object program 
control is to be passed by the 
initialization routines (see the discussion 
of these routines in the chapter "Phase 6") 
if the program is executed by PROGRAM-ID 
rather than at an alternate entry point. 



Each program break re 
(except for segmentation 
that are handled as desc 
handled by the routines 
CHKSEG examines the type 
the bit configuration of 
switch. STRTEST checks 
the exact point at which 
macro-type instruction s 
STRTSW is also used to c 
which current processing 
for example, within the 
Section. 



ad by phase 51 
control breaks 

ribed below) is 

CHKSEG and STRTEST. 
of break and sets 
STRTSW, a one-byte 

STRTSW to determine 
the START 

hould appear. 

heck the point at 
is taking place. 

Report Writer 



If no beginning-of-declaratives break is 
encountered, the START is written 
immediately after the Procedure Division 
break is encountered. If declaratives are 
present, the START is written after the 
end-of-declaratives break has been found. 



SEGMENTATION CONTROL BREAKS 



Phase 51 writes Procedur 
direct-access device SYS 
or phases 62 and 63, rea 
segments must be read an 
order of priority, rathe 
in which they appear in 
To facilitate this, rout 
a table (called SEGTBL) 
relative disk address of 
each segment. 

The relative disk add 
through phase 00. (Note 
handles all input/output 
other phases.) When pha 
Procedure A-text for the 
record of a segment, aft 
been issued for that WRI 
NOTE macro instruction, 
instruction returns the 
address of the record ju 
is saved in SEGSAVE, a c 
phase 00. 



e A-text on the 
UT1. When phase 6, 
d this text, 
d processed in 
r than in the order 
the source program, 
ine SEGENTR builds 
containing the 
the beginning of 



resses are obtained 

that phase 00 

requests for the 
se 00 writes 

first physical 
er the CHECK has 
TE, it issues a 

The NOTE macro 
relative disk 
st written, which 
ell internal to 



The segmentation control break 
encountered by phase 51 signals the end of 
one segment and the beginning of a segment 
with a different priority. Routine GETNXT 
calls phase 00 with a request for the 



SEGNOTE function. (For a description of 
the calling sequence and parameters, see 
"Phase Input/Output Requests" in the 
chapter "Phase 00".) To complete the 
output for the previous segment, phase 00 
writes whatever is left in the buffer, and 
passes back to phase 51 the value in 
SEGSAVE, which is the starting address of 
the previous segment. Phase 51 stores this 
as an entry in SEGTBL, along with the 
priority number of the previous segment. 
(For the SEGTBL table format, see "Section 
5. Data Areas.") 

The call to SEGNOTE also indicates to 
phase 00 that the next time it writes on 
SYSUTl, it will be the beginning of a new 
segment and another NOTE must be issued. 



PN. GN* AND VN DEFINITIONS 



When a PN, GN, or VN definition is 
encountered, routine PUTDEF is called. 
This routine changes the definition to 
Procedure A-text and writes it out. 

For PN definitions, the PN number and 
the priority number are saved before PUTDEF 
is called. For VN definitions, the SEGLMT 
cell in CbMMON (see "Appendix A: 
Communications Area") is tested to see if 
the program is segmented (a value other 
than hexadecimal FF in SEGLMT means the 
program is segmented) . If it is segmented, 
the VN definition is written as both 
Procedure A-text and Optimization A-text. 



Building PN and GN E qua te Strings 



It is possible that earlier phases have 
generated more than one GN to define a 
single verb within a procedure statement. 
When this occurs, several GN definition 
elements are encountered in a row without 
any intervening text. If the source 
program included a procedure-name at this 
point, a PN definition also occurs, 
preceded by one or more GN definitions. 
Since only one procedure-name is required 
to provide a branching point in the object 
program, the rest of the GNs can be 
eliminated. All the GNs (and the PN, if 
any) are collected in a phase 51 work area 
called GNLIST, from which they are written 
in Optimization A-text as an Equate string. 
In Procedure A-text, only the PN definition 
is written or, if there was none, the first 
GN definition (the one with the lowest GN 
number) . Phase 6 uses the Equate string to 
change all references throughout the 
program from the equated GNs to the one for 
which Procedure A-text was issued. 
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If the OPT option is in effect, these PN 
and GN Equate strings are not written- All 
PNs and GNs are written in Procedure A-text 
regardless of their position. Since no 
cells in the PGT are allocated for their 
addresses, it is not necessary to equate 
their addresses. They are addressed 
instead by using a displacement from a base 
register. 



Building the PNUTBL Table 



The source programmer may have coded some 
procedure- name definitions to which 
reference is never made. The address cells 
for such procedure-names can be eliminated. 
To do this, routine PNDSED in phase 51 
builds the PNUTBL table for phase 6 or 62. 

This table contains one bit for every PN 
definition in the program, rounded up to a 
multiple of 4, The size of the table is 
determined from the cell PNCTE in COMMON. 
This cell was incremented by phase IB every 
time a PN definition was created, and 
therefore contains a count of the total 
number of PNs in the program. All bits in 
the table are initialized to ff and every 
time a PN is referred to throughout phase 
51 processing, the bit in the table 
corresponding to the PN number is set to 1, 
Phase 62 uses the PNUTBL table to determine 
if a PN has been referenced. If it has not 
been referenced, no entry point processing 
is done at the point of definition. 



¥ERB STRIlfGS 



Phase 51 processes input/output verbs, 
other nonarithmetic verb strings (including 
some requiring calls to object-time 
subroutines) , and DISPLAY literals. As 
examples, the ON string is discussed below 
under "Other Nonarithmetic Verb Strings 81 
and the DISPLAY verb under "Verbs Requiring 
Calls to Object-Time Subroutines.." Samples 
of coding are included in those 
discussions. 

If the STATE or the SYMDMP option is in 
effect* a call to the COBOL library 
debugging subroutine entry point ILB0DBG4 
is generated for all verb analyzers (except 
FLOW and COUNT) which produce code 
branching outside the main line of the 
program, (However, this call is not 
generated before the call to the flow trace 
subroutines entry point ILB0FLW1,). Uhen 
routine PH5CTL encounters the READ, 
^RITE/REWRITE, OPEN/CLOSE, RETURN, RELEASE, 
USE/ENDUSE for error and label 
declaratives, and checkpoint READ and DJRITE 



verbs, it calls routine DBGTEST to generate 
the call. The call is also generated 
before the code generated to call any COBOL 
object-time subroutine or any program that 
is the operand of a CALL statement, and 
before any branch to a Q-Routine or to 
report writer routines (not including 
report writer declaratives) . For a 
description of the COBOL library 
subroutines, see the publication IBM OS/VS 
COBOL Subr outi ne Librar y Program L ogic . 



Input/Outp u t V erbs 



Phase 51 generates the object code required 
for the input/output verbs discussed in 
this section. There is a separate verb 
analyzer routine for each verb. Each 
routine may share several subroutines with 
other analyzers. 

The coding generated is basically the 
required linkage to an input/output routine 
and, therefore, depends on the access 
method. Additionally, the following 
factors influence the coding: the 
organization of the data records, the 
blocking factor, the recording mode, 
multiple buffering, use of SAME RECORD AREA 
clause, inclusion of a RERUN clause, use of 
label records and declaratives, and the 
type of device. 

By convention, the following register 
assignments are used at execution time. 

© Before an input/output operation: 

— If a DECB for a file is referred to 
in the generated code for an 
input/output operation, the address 
of the DECB is placed in both 
registers 1 and 3, and the address 
of the DCB for the file is placed 
in register 2. 

-- If a DECB for a file is not 

referred to in the generated code, 
the address of the DCB for the file 
is placed in both registers 1 and 
2. 

— Register 15 contains the address of 
the input/output routine that 
corresponds to the particular 
operation and access method. 

o After certain input/output operations: 

-- Register 1 contains the address of 
the next record to be read or the 
next area to be written in, 

© Before calls to object-time 
subroutines: 
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— Register 15 contains the address of 
the COBOL library subroutine to be 
called. 

— Register 1 contains the address of 
the parameter list, if any. 

N ote : Before the first inline call for a 
SORT or MERGE statement to the ILBOSRTO 
subroutine , registers through 5 contain 
parameters used by the subroutine. 

The code generated for input/output 
verbs is described in the paragraphs that 
follow. In cases where a call to a COBOL 
library subroutine is generated, the 
calling sequence is given in the 
publication IBM OS/VS COBOL Subroutine 
Library Program Logic . 



OPEN 1 ; The general form of the code is the 
expansion of the OPEN macro. Several 
additions may be made depending on the 
device and access method used. A call to 
the ILBOSAMO subroutine is generated for a 
BDAM file opened as output. Code is 
generated to move the address of the Error 
subroutine, ILBOSYNx, into the SYNAD 
address in the DCB, to move the address of 
ILBOSPAO into the DCB extension, to move 
the address of ILB0EXT1 into the exit list, 
and if RERUN has been specified, to move 
the address of the Checkpoint subroutine, 
ILBOCKPO, into the exit list. The input is 
two strings, the first of which is used to 
generate device-type code and the OPEN 
macro expansion. The second is used to 
generate the device- dependent code needed 
after the file is open. In addition, code 
is generated for each file so that an 
appropriate message can be produced on the 
console in the event of an unsuccessful 
open for a file. 



WRITE 1 ; This verb may cause either of two 
distinct sets of code: a PUT or WRITE 
macro expansion is generated, with 
additions and modifications depending on 
the device and access method used; a COBOL 
library subroutine linkage is generated in 
special cases, for example, a WRITE 
statement for a BSAM file, or QSAM file, or 
printer spacing. 

Note: For the OPEN, CLOSE, READ, and WRITE 
verbs, Procedure A-text BLCHNG elements are 
written. This indicates to phase 6 or to 
phases 62, 63, and 64 that if they have 
permanently or temporarily loaded the 
associated BL into a register, they must 
reload the register or flag the register as 
no longer containing the BL. For ENTRY, 
SORT, MERGE, label declaratives 
initialization, and referencing the TOTALED 
AREA, Procedure A-text BLCHNG elements 
followed by the BLL reference instead of 
the base locator (BL) reference are written 
to indicate that a BLL has changed and must 
be reloaded into the permanently assigned 
register or that the internal phase 62 
temporary register cell (14 or 15) must be 
flagged as no longer containing the BLL. 



START 1 : The START statement for ISAM files 
without the generic KEY specified, results 
in the macro expansion of an ESETL macro 
instruction, followed by a SETL macro 
instruction without the key class option. 

The START statement for ISAM files with 
the generic KEY specified, results in the 
generated code for a call to the START 
subroutine. Following the subroutine call, 
phase 51 generates the macro expansion of 
the ESETL macro instruction, followed by a 
SETL macro instruction with the key class 
option. 



CLOSE 1 : The code generated is the 
expansion of the CLOSE macro. Additions 
may be made depending on the device and 
access method used. A call to the ILBOSAMO 
subroutine is generated for the CLOSE 
statement for a BSAM file. 



DI SPLA Y: The DISPLAY statement results in 
the generated code for a call to the 
ILBODSPO or ILBODSSO subroutine except for 
a DISPLAY of an alphanumeric literal, which 
results in the macro expansion of a WTO 
macro instruction. 



READ 1 : This verb may cause either of two 
distinct sets of code: a GET or READ macro 
expansion is generated in most cases, with 
additions depending on the device and 
access method used; a COBOL library 
subroutine linkage is generated in special 
cases. 



tFor VSAM files, all interfaces to the VSAM 
access method are handled by the library 
subroutines ILBOVOC and ILBOVIO. These 
subroutines are described in IBM OS /VS 
C OBOL S ub rout i ne Li brary Program Logic . 



ACCEPT : The ACCEPT statement results in 
the generated code for a call to the ACCEPT 
subroutine, ILBOACPO, when the "FROM SYSIN" 
option is used. When the "FROM CONSOLE" 
option is specified or implied, a WTOR 
macro expansion is generated. 

RECEIV E: The RECEIVE statement results in 
the generated code for a call to the 
RECEIVE subroutine, ILBORECO. The ACCEPT 
MESSAGE statement also results in the 
generated code for a call to the RECEIVE 
subroutine, ILBORECO. A switch byte is set 
to indicate that the call is for a message 
condition rather than a RECEIVE verb. 



136 Section 2. Method of Operation 



Licensed Material - Property of IBM 



SEND: The SEND statement results in the 
generated code for a call to the SEND 
subroutine, ILBOSNDO. 

STRING; The STRING statement results in a 
call to the STRING subroutine, ILBOSTGO. 

UNSTRING: The UNSTRING statement may 
result in one or more calls to the UNSTRING 
subroutine, ILBOUSTO, and in two or more 
calls to the conversion subroutine, 
ILBOCVBO, at both entry points: ILBOCVBO 
and ILB0CVB1. The number and order of 
calls are determined by the types of 
operands specified in the UNSTRING 
statement. 

USE: The USE verb, on entry to the 
Declaratives Section, generates code which 
sets up fields (pointers) for the 
information requested, such as the address 
of a label or an error block. At the end 
of the section, the code needed to return 
to the object-time subroutine is generated. 



Othe r Non a rithmet ic Verb Strings 



This section discusses the ON string as an 
example of a nonarithmetic verb string. 

When routine PH5CTL encounters an ON 

string, it moves the operands into a work 

area and calls routine ON to process the 
string. 

The processing depends upon the options 
given in the ON statement. In the simplest 
case (ON 1), instructions are generated to 
test a switch to see if the statement 
completing the ON has been executed and, if 
it has, to branch around this statement. 

Figure 33 shows the Procedure A-text 
produced for an ON statement with an 
initial value, increment, and maximum 
value. The numbers of the following 
explanations refer to the circled numbers 
in the figure. 



© 



© 



GN1 is the generated procedure- name 
assigned to the next sequential source 
program statement. A branch must be 
made to this statement when the ON 
condition is false (that is, in this 
example, when the ON instructions to 
test and increment the counter have 
been executed an odd number of times 
or more than 16 times) . 

This instruction loads the contents of 
0NCTR1 into register 3. 0NCTR1 is the 
identifying number of an ON control 
cell. At execution time, this cell 
will be incremented by 1 each time the 
ON statement is executed and compared 



© 



© 



© 



© 



with the maximum value, as specified 
in the UNTIL option. 



Phase 51 assigns identifying numbers 
to ON control cells using the ONCTR 
cell in COMMON. At execution time, 
each ON control cell will occupy four 
bytes in the ONCTL field of the Task 
Global Table, or TGT (see "Appendix B. 
Object Module" for the format of the 
TGT) . 



Registers 1 and 2 are generally used 
in the object program for 
nonarithmetic operations. When a 
nonarithmetic register is needed by a 
phase 51 verb, one will have been 
freed by phase 50' s issuing of an 
instruction to store its contents in a 
subscript save cell, if necessary (see 
"Register and Storage Allocation" in 
the chapter "Phase 50" for a fuller 
description of register saving) . 
Subscript save cell numbers are 
obtained from the SUBCTR cell in 
COMMON. They correspond to SUBADR 
cells in the Task Global Table of the 
object program. The instructions to 
save the registers would precede the 
LOAD instruction. 



The literal 16 is not actually issued 
in the Procedure A-text. Rather, a 
literal definition element is issued, 
and the literal itself is written as 
Optimization A-text (see "Literals and 
Virtuals" in the chapter "Phase 50") . 



This branch statement transfers 
control to GN1 (the next source 
program statement) when ONCTR1 
contains a value greater than 16. 



This statement causes a branch to GN1 
when ONCTR1 contains a value that is 
less than 2. 



XSASW1 identifie 
control the incr 
of the ON state! 
The switch will 
the statement is 
to determine whe 
statement should 
The switch is us 
increment is 2 o 



s a cell that will 
ement (EVERY option) 
ent at execution time, 
be flipped each time 

executed and tested 
ther the imperative 

be branched around, 
ed only if the 
r in the ON 1 case. 
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I Source Statements 



OH 2 AND EVERY 2 UNTIL 16 MOVE A TO B. 
ADD C TO D. 



P2-text Strings 



ON 2 2 16 GN1. 
MOVE (2) A B. 
GNU ADD (2) G D. 

Procedure A-text 



© 



L 3,ONCTR1 

LA 3,1 (3) 

ST 3,ONCTR1 

C 3,= (16) 

L 2,A(GN1) 

BCR NOTLO,2 

C 3,= (2 J 

BCR L0 r 2 5 

XI XSASW1,X V 01' 

CLI XSASW1,X«01« 

BCR NOTEQ,2 
instructions for MOVE 
GN1. instructions for ADD 



© 

© 
© 



© 



Figure 33, Analysis of an ON Statement 



The identifying numbers are assigned 
from cell XSHCTR in COMMON. They 
correspond to cells in the XSASW field of 
the Task Global Table in the object 
program. 

If the increment is not 2, an ON control 
cell is used to control the increment. 
Like the cell described in paragraph number 
2, it is assigned an identifying number 
from ONCTR in COMMON, and it is used in a 
similar manner. 



Special Considerations for Nonarithmetic 
Verbs™ 



Some nonarithmetic verbs create special 
situations that require additional 
processing. These are described in this 
section. 

Nonarithmetic C o nversion s; In a few 
instances, nonarithmetic^data items must be 
expressed in binary during object program 
execution. These instances are illustrated 
by the following source program statements: 

GO TO A B C DEPENDING ON X. 
PERFORM RTNA X TIMES. 

In both these cases, the value of X must 
be in binary when the statement is 
executed; however, the source programmer is 
not required to create X as a binary data 
item. This situation also arises in some 
Q- Routines. 



To handle this, the verb analyzer calls 
routine DNT0R1 . This routine determines 
whether the value is already in binary or 
must be converted. If conversion is 
needed, DNT0R1 generates code which 
converts the value at object time, and 
places the binary value in a work area in 
the TEMP STORAGE-2 field of the Task Global 
Table (leaving the value in the data area 
unchanged) . The work area, rather than the 
data area, is then used when the value is 
referred to. 

Procedure, Bran ching in a Seg mented Prog ram : 
If a GO statement transfers control out of 
the current segment and the current segment 
is not the root segment, phase 4 has 
indicated this by passing a special verb 
code (see "Checking for Segmentation in 
Procedure Branching" in the chapter "Phase 
4") . When phase 51 encounters this verb 
code, it generates a call to the COBOL 
library subroutine, ILBOSGMO, or if the OPT 
option is in effect, to ILB0SGM1 (the 
calling sequence is given in the 
publication IBM OS/VS COBO L Subroutine 
Library Program Logic . This subroutine 
checks to see whether the necessary segment 
(the one containing the object of the GO 
TO) is already in storage, brings it into 
storage if it is not, initializes the 
segment, and transfers control to the named 
procedure. 

If the operand is a PN or GN in a GO TO 
statement with the regular GO verb code, a 
normal branch is made whether or not the 
program is segmented. No test need be 
made, because phase 4 only issued a regular 
GO verb code if the branch did not require 
segment initialization. 

If the operand is a VN, the SEGLMT cell 
in COMMON is tested. If the test indicates 
that the program is segmented (a value 
other than hexadecimal FF) , a call to 
ILBOSGMO is generated. If, at execution 
time, the VN is within the same segment, 
the subroutine will execute a normal 
branch. If the VN is not in the current 
segment, the subroutine will perform 
segment initialization. 

If the GO TO statement contains a 
DEPENDING ON option, SEGLMT is tested to 
see whether the program is segmented. If 
it is, a call to the COBOL library 
subroutine, ILBOSGMO, is generated. If the 
OPT option is in effect, a call to the 
COBOL library subroutine, ILBOGDOO, is 
generated. This subroutine passes control 
to the appropriate PN. If the program is 
segmented, the address of entry point 
ILB0SGM1 is passed in register 2 to the 
ILBOGDOO subroutine. This subroutine then 
determines which PN to branch to and passes 
control to entry point ILB0SGM1 to do 
standard processing for segmentation. 
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yerbs Requiring Calls to Object-Time 
Subroutines ^ 



In this section, the DISPLAY verb is 
discussed as an example of a verb which is 
executed by a COBOL library subroutine. 
(This discussion assumes that neither the 
DYNAM nor RESIDENT option is in effect and 
that the COBOL library DISPLAY subroutine, 
ILBODSSO, cannot be used.) The discussion 
is based on the DISPLAY statement shown in 
Figure 34. In this example. A, B, C, D, 
and E are data-names whose USAGE is DISPLAY 
and whose PICTURE is XX. The numbers of 
the following explanations refer to the 
circled numbers in Figure 34. 



© 



Phase 4 puts a maximum of five 
operands in a string. Since the 
number of operands in this DISPLAY 
statement requires a continuation 
string, the first operand generated by 
phase 4 is the COBOL word FIRST, and 
the last operand is the COBOL word 
END. This is the form of all 
continued strings. The second operand 
identifies the device and the third 
through next-to-last operands are the 
data items named in the source 
statement. (Note that the P2-text 
contains the attributes, not the 
names, of the data items.) 



Source Statement 





DISPLAY 


A B 


C 


D 


E 


UPON 


CONSOLE. 


P2- 


-text 


(5) 


FIRST 


CONSOLE 


A 






DISPLAY 


B C 




DISPLAY 


(3) 


D 


E 


LAST 








Procedure A 


i-text 
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L 15,=V(ILBODSP0) 

BALR 1 ,15 

DC XL2'02' 

DC XL-MOO' 

DC XL3, 000002' 

DC AL4 (BC-DISP) 

DC XL2 8 1F« 



© 



© 



DC 



X«FFFF« 



© 



Figure 34. Analysis of a DISPLAY Verb 



© 



ILBODSP0 is the name of the COBOL 
library DISPLAY subroutine. Since it 
is a virtual (for a definition of 
virtuals, see the glossary) , it is not 
written as part of the Procedure 
A-text. Rather, its virtual number is 
written as Procedure A-text; the name 
of the virtual itself is put out as 
Optimization A-text. See "DISPLAY 
Literals" below and "Literals and 
Virtuals" in the chapter "Phase 50" 



© 



© 



© 



for a discussion of how this text is 
produced. 

This parameter gives the device code, 
which is 02 for CONSOLE. The section 
on ILBODSP0 in the publication IBM 
OS/VS COBOL Subroutine Library Prog ram 
Logic, contains a complete list of 
device codes. 

This parameter and the three which 
follow it give operand information for 
data-name A. Each operand is 
specified in a 10-byte field. The 
description of ILBODSP0 in the 
publication I BM OS/VS COBOL Subroutine 
L ibrary Program Logic , gives all the 
codes; the meanings of the codes used 
in this example are as follows: 



Code 
00 



000002 



Meaning 

Specifies the type of 

the item. In this case, 

data-name A is 

nonnumeric, ready to 

display. 

Specifies the length of 
the item. Since the 
PICTURE for A is XX, the 
length is two bytes. 

Specifies a displacement 
of an item from the 
beginning of the table 
identified by a base 
code. 

Specifies the 
displacement of A from 
the beginning of the 
area controlled by its 
base locator. 



Following the description of A are 
similar 10-byte fields describing each 
of the other operands. The code FFFF 
follows the last description. 



AL4(BC-DISP) 



1F 



Note: As a special case, the DISPLAY of a 
single alphanumeric literal UPON CONSOLE 
generates an in-line WTO 

(write-to-bperator) coding, rather than a 
call to the library subroutine. 

If the STATE option has been specified, 
a call to the library subroutine ILBODBG4 
is generated before any DISPLAY coding. 



DISPLAY Literals 



Generation of A-text, including literals 
and virtuals, is almost identical to that 
performed in phase 50. There is one 
exception, however. If a literal is in a 
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DISPLAY statement that requires a call to a 
COBOL library subroutine, a separate 
DISPLAY literal Optimization A-text element 
is written. This element is of a different 
type than an internal literal. It is 
generated differently so that phase 6 or 62 
can build separate tables for internal and 
DISPLAY literals and search these tables 
using different techniques. 



Generating System/37 Inst ru ctions 



(24) elements for PERFORM verbs, and VN 
(38) EQUATE (44) PN (4C) elements, and 



GENERATING OBJECT CODE,, TO PROCE SS VS AM 
FILES 



Phase 51 contains a verb analyzer routine 
for each of the VSAM input/output verbs: 
OPEN, CLOSE, READ, WRITE, REWRITE, START, 
and DELETE. The VSAM verb routine: 



If a variable-length 
required, the MVCL (for 
(for a compare) machine 
generated. If a compare 
greater than 256 bytes i 
receiving field for a mo 
512 bytes in length, the 
machine instruction, res 
generated. If the recei 
move is right justified 
field for the move is ei 
512 bytes in length or v 
a call is generated to t 
library subroutine. 



move or compare is 
a move) or the CLCL 
instruction will be 

involves a field 
n length or if the 
ve is greater than 

CLCL or MVCL 
pectively, is 
ving field for a 
and the receiving 
ther greater than 
ariable in length, 
he ILBOSMVO COBOL 



• Analyzes the operands in the verb 
string. 

• Creates ;the parameter list to be passed 
to the object-time subroutine that 
performs input /output operations for 
VSAM files. 

• Generates the calling sequence for 
object-time subroutine. 

The calling sequences to the COBOL 
object-time subroutines (ILBOVCOO, and 
ILBOVIOO) are described in IBM OS/VS COBOL 
Subroutine Library Program Logic. 



Text Ge ner ation fo r, t he OPT Option 



If the OPT option is in effect, phase 51 
generates the following text elements: 

• Procedure A-text BC elements following 
a call to the COBOL library 
segmentation or GO TO DEPENDING ON 
subroutine. 

• Procedure A-text CO elements, 
specifically, C001, C003, and C006. 

• Optimization A-text GNOREF (1C) 
elements, PNUREF (20) elements, GN-VN 



GENERATING CALLS TO THE ILBOVCOO AND 
IL BOVI OO SUB ROUTIN ES 



The COBOL object-time subroutines act as 
the interface between the COBOL object 
program and VSAM. It uses the File 
Information Block (FIB) (built by phase 
21), the File Control Block (FCB) (created 
at object-time) , and the parameter list and 
options list (created in the calling 
sequence for the subroutine by phase 51). 
Phase 51 determines the parameters and the 
list of options by examining the verb 
string following each VSAM verb. 
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PHASE 6 



Phase 6 (IKFCBL60) prepares a machine 
language program suitable for input to the 
linkage editor. The elements of this 
program are described in the chapter 
"Object Module." The phase is divided into 
several sequential parts, each of which 
performs specific functions. These are, in 
order: 



o Determines object program storage 
allocation for the TGT (Task Global 
Table) by processing counters in COMMON 
and calculating the displacements of 
items that reside in the TGT at 
execution time. 



© Optimizes literals, virtuals, source 
procedure-names, and compiler generated 
procedure-names by processing 
Optimization A-text and the PNUTBL 
table; determining storage allocation 
in the PGT (Program Global Table) for 
these items and calculating their 
displacements, using counters in 
COMMON. 

o with Procedure A-text as input, 

generates and writes machine language 
instructions. If the program is 
segmented, grouping the sections of 
instructions into segments. If the 
SXHEF or the XREF option was specified, 
writes procedure-name and data-name 
defi- nitions on DEF-text, and 
procedure- name and data -name 
references on REF-text, for input to 
phase 6A. 

© With Data A-text as input, writes 
object text for the data area of the 
object program. 

© Writes object text for the TGT and 
PGT from the RLDTBL table and Data 
A-text. 

© Writes object text for the INIT2, 
INIT3, and INIT1 routines of the object 
program, in that order. 

© Writes EXTRN statements for any 
program referenced by a CALL statement. 

© Passes E-text to phase 70 by storing 
it in the ERRTBL table, or by writing 
it on SYSUT3 if the table overflows. 
If the TERM option was specified, 
incrementing the ERRNUM cell in COMMON 
each time a message definition element 
of E-text is encountered. 



OUTPUT OF PHASE 6 



The output of phase 6 depends on the 
compiler options specified by the user or 
determined by defaults set at installation 
time. The SXREF and XREF options have 
already been mentioned. The following are 
the other options that determine the output 
produced by phase 6: 



O ptio n 
PMAP 



CLIST 



DMAP 



LOAD 



DECK 



BATCH 
NAME 



Result 
Causes the TGT, Literal Pool, 
PGT, register assignments, 
Working-Storage message, and 
a listing of the object text 
to be written on SYSPRINT. 



Causes the TGT, Literal Pool, 
PGT, register assignments, 
Working-Storage message, and 
a condensed object program 
listing to be written on 
SYSPRINT. The object program 
is limited to the card 
number, verb name (or verb 
number if the program is 
segmented) , and address of 
the first instruction for 
each verb. 

Causes the TGT; Literal Pool, 
PGT, register assignments, 
and the Working-Storage 
message to be written on 
SYSPRINT. This option has 
already caused phase 3 to 
print a Data Division 
glossary. 

Causes the object program to be 
written on SYSLIN. 

Causes the object program to be 
written (punched) on 
SYSPUNCH. 

If both the BATCH and NAME 
options are specified, they 
cause a linkage editor 
control card to be generated 
at the end of the object 
program, so that the object 
program will be a separate 
load module. If BATCH is 
specified, the relative 
number of this compilation in 
the batch appears among the 
statistics printed by phase 
6. 
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Note; The linkage editor 
control card generated for the 
BATCH and NAME options is 
produced by phase 65 if the 
FLOW or STATE option is 
specified* 

FLOW[=n[n] Causes the flow trace facility 
to be included in the object 
program. The number [n[n]] 
of traces requested is 
retained in the FLOWSZ cell 
in COMMON and is passed to 
phase 65, which places the 
number in the variable 
portion of the TGT. 

STATE Causes the statement number 
facility to be included in 
the object program. Phase 6 
writes Debug-text elements on 
SYSUT2 for use by phase 65. 

For all compilations, compiler 
statistics are written on SYSPRINT from 
COMMON, where they were saved by phase 02. 

The user may specify both the LOAD and 
DECK options, in which case the object 
program is written on both SYSLIN and 
SYSPUNCH. He may also specify NOLOAD and 
NODECK; in this case, he receives no 
executable copy of his object program. 

If no output was requested (no PMAP, 
LOAD, DECK, CLIST, DMAP, BATCH, NAME, 
STATE, SXREF, XREF, VBREF, or VBSOM) , phase 
6 text processing is bypassed unless the 
TERM option was specified. In this case, 
phase 6 scans the E-text on SYSUT4 and 
increments the ERRNUM cell in COMMON. 
After phase 6 scans the E-text, it rewinds 
SYSUT4 and returns to phase 00. Phase 00 
uses the count in ERRNUM to write a message 
to SYSTERM giving the number of errors 
encountered for the compilation. Phase 6 
also sets a bit in COMMON to indicate 
whether phase 70 is required (see 
"Suppression of Output Listing" below) . 



by testing the ERRSEV cell in COMMON. A 
value of 12 or greater means that at least 
one D- level or E-level message occurred. 

The ERRSEV cell was set by phases 2, 3, 
4, 50, and 51 every time they encountered 
or generated an element of E-text (see 
"E-text" in the chapter "Phase 51"). A 
test is made for this condition upon 
entering phase 6. If it occurs, a message 
is printed and the text is not processed 
unless SXREF or XREF is specified. 

If the SDPMAP condition occurs and 
neither SXREF or XREF was requested, phase 
6 terminates processing after it sets two 
bits in COMMON (bits 6 and 7 of the second 
byte of SWITCH) . Bit 6 indicates that 
phase 70 is to be called, and bit 7 
indicates to phase 70 that E-text must be 
read from SYSUT4. However, if the TERM 
option was specified, phase 6 scans the 
E-text on SYSUT4 and increments the ERRNUM 
cell in COMMON. After phase 6 scans the 
E-text, it rewinds SYSUT4 and returns to 
phase 00. 

If SXREF or XREF was requested, text is 
processed but the only output is REF-text 
and DEF-text (which phase 6A uses to 
produce the cross-reference listing) . The 
ERRTBL is built, or E-text is written on 
SYSUT3. A bit is set in COMMON (bit 6 of 
the second byte of SWITCH) , indicating to 
phase 6A that phase 70 is required. If 
E-text was written on SYSUT3, bit 5 of the 
second byte of SWITCH is set to indicate 
that E-text must be read from SYSUT3. 

Phase 6 does not write object text in 
execution-time sequence. Rather, it 
instructs the linkage editor to reorder the 
text by assigning relative addresses. To 
do this, it allocates space for areas that 
will be written later, incrementing the 
LOCCTR (location counter) cell of COMMON to 
reflect the relative location at execution 
time of the area currently being processed. 



.Suppressi on of O utpu t List ing 



Glossary and Listin g Symb ols 



If the SUPMAP (suppress map) option is in 
effect, no output is produced by phase 6 if 
a D-level or E-level error message was 
generated by any phase. This is determined 



The symbols used in the Listing and 
Glossary to define compiler-generated 
information are shown in Figure 35. 
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Symbol 



Definition 



Description 



BL 

BLL 

CKP 

DBGC 

DBGI 
DBGT 

DCB 

DEC 

DNM 

FIB 

GN 

INX 

LIT 

ON 
OVF 

PBL 

PFM 

PN 

POV 

PRM 
PSV 
RSV 
SAV 
SA2 

SA3 

SBL 
SBS 
SSVE 
SWT 
TLY 
TOV 
TS 
TS2 
TS3 
TS4 
V(BCDNAME) 
VIR 
VLC 
VN 
VNI 
tiC 

XSA 
XSW 



Base Locator 

Base Locator for Linkage Section 

Checkpoint Counter 

Debug Card Number 

Debug Information Pointer 

Debug Transfer 

DCB Address 

DECB Address 

Source Data Name 

FIB Address 

Generated Procedure-name 

Index Cell 

Literal 

ON Counter 
Overflow Cell 

Procedure Block (Optimizer) 

PERFORM Counter 
Source Procedure-name 
PGT Overflow 

Parameter 

PERFORM Save 

Report Save Area 

Save Area Cell 

Input/Output Error Save Cell 

OPEN Parameter 

Secondary Base Locator 

Subscript Address 

Sort Save Area 

Switch Cell 

Tally Cell 

TGT Overflow 

Temporary Storage Cell 

Temporary Storage (Hon- Arithmetic) 

Temporary Storage (Synchronization) 

Temporary Storage (Table-Handling) 

Vitrual 

Virtual Cell 

Variable Length Cell 

Variable Procedure-name 

Variable-name Initialization 

Working Cell 

Exhibit Save Area 
Exhibit Switch 



See "BL" in "Task Global Table" 
See "BLL" in "Task Global Table" 
See "CHECKPT CTR" in "Task Global 

Table" 
See "DEBUG CARD" in "Task Global Table" 
See "DEBUG PTR" in "Task Global Table" 
See "DEBUG TRANSFER" in "Task Global 

Table" 
See "DCBADR" in "Program Global Table" 
See "DECBADR" in "Task Global Table" 
See "Glossary Building" 
See "FIB" in "Task Global Table" 
See "GN" in "Program Global Table" 
See "IND" in "Task Global Table" 
See "Literal" and "Display Literal" in 

"Program Global Table" 
See "ONCTL" in "Task Global Table" 
See "OVERFLOW" in "Program Global 

Table" 
See "PROCEDURE BLOCK" in "Program 

Global Table" 
See "PFMCTL" in "Task Global Table" 
See "PN" in "Program Global Table" 
See "OVERFLOW" in "Program Global 

Table" 
See "PARAM" in "Task Global" 
See "PFMSAV" in "Task Global Table" 
See "RPTSAV" in "Task Global Table" 
See "Save Area" in "Task Global Table" 
See "Save-Area -2" in "Task Global 

Table" 
See "Save-Area-3" in "Task Global 

Table" 
See "SBL" in "Task Global Table" 
See "SUBADR" in "Task Global Table" 
See "Sort Save" in "Task Global Table" 
See "Switch" in "Task Global Table" 
See "Tally" in "Task Global Table" 
See "OVERFLOW" in "Task Global Table" 
See "TS" in "Task Global Table" 
See "TS-2" in "Task Global Table" 
See "TS-3" in "Task Global Table" 
See "TS-4" in "Task Global Table" 
See "Virtual" in "Program Global Table" 
See "Virtual" in "Program Global Table" 
See "VLC" in "Task Global Table" 
See "VN» in "Task Global Table" 
See "VNI" in "Program Global Table" 
See "Working Cells" in "Task Global 

Table" 
See "XSA" in "Task Global Table" 
See "XSASW" in "Task Global Table" 



Figure 35. Symbols Used in the Listing and Glossary to Define Compiler-Generated 
Information 



TASK GLOBA L TABLE STORAG E ALLOCATION 



When phase 6 receives control , the LOCCTR 
cell contains the relative address of the 
Task Global Table (TGT) in the load module, 
LOCCTR was set by phases 22 and 21 , which 
added the length of the data area to that 



of the INIT1 routine, (These areas precede 
the TGT in the load module.) 

Routine TGTINT first does preliminary 
computations to determine the length of th 
entire TGT. If this length exceeds 4096 
bytes, one 4-byte OVERFLOW cell is 
allocated for each 4096-byte area after the 
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first. Then this routine computes the 
locations of TGT fields after the OVERFLOW 
cells. 

Some fields of the TGT are constant in 
length; others are variable, depending on 
the requirements of the program being 
compiled. For most of the variable fields, 
there is a counter in. COMMON used to 
compute its length. When the value has 
been used, the counter is set to the 
displacement of the current field in the 
TGT. Figure 36 lists these counters and 
the TGT fields to which they correspond. 
In a register called RW1, a counter is kept 
of the displacement of the current field in 
the TGT. 



Global Table (PGT) in the same way that TGT 
storage was allocated* Before this can be 
done, however, the required space must be 
determined for the literals, virtuals, and 
procedure-names that reside in this table 
at execution time. The routines that 
determine the lengths of these fields also 
optimize the contents of the fields by 
eliminating duplication. 



For optimizing, the PNDTBL table and 
Optimization A-text are used. The 
processing of the PNUTBL table occurs 
first. Then the Optimization A-text is 
read and processed. 



Some of the counters in COMMON specify a 
number of bytes. Others specify a number 
of entries, where each entry requires two 
or eight bytes. In the latter case, the 
value of the counter is multiplied by 2 or 
4 before it is used to compute 
displacements. 



This is done in routi 
called for each variable 
parameters are passed to 
address of the counter i 
number of bytes for each 
number of bytes, DSPLAC 
boundary alignments. DS 
value of RW1 (the displa 
in the TGT) into the cou 
length of the field to R 



ne DSPLAC, which is 
length field. Two 
this routine: the 
n COMMON, and the 
entry. From the 
also determines 
PLAC places the 
cement of the field 
nter, and adds the 
W1. 



If the PMAP, CLIST, or DMAP options are 
in effect, DSPLAC calls routine MAPLOC, 
which prints one line at a time. 

If the statement number option (STATE) 
or the flow trace option (FLOW) was 
specified, the SWITCH cell, the current 
priority cell (for STATE only) , the TGTTAB 
pointer, and the TGTTAB information are set 
by phase 65. 

After the length of the entire TGT has 
been calculated, the value of RW1 (the 
length of the TGT) is added to the LOCCTR 
cell. The value of the LOCCTR cell is now 
the displacement of the PGT. 



OPTIMIZING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



The general function of this part of phase 
6 is to allocate space for the Program 



Optimization A-text, which was generated 
by phases 50 and 51, contains the following 
kinds of elements: 



• EQUATE strings, which equate any 
procedure-names (PNs) and generated 
procedure-names (GNs) that refer to the 
same location (for a description of how 
and why these strings are built, see 
"Building PN and GN Equate Strings" in 
the chapter "Phase 51"). 

• Literal definitions, containing the 
actual value of the literal. 

• DISPLAY literal definitions. 

® Virtual reference definitions for 
input/output error routines. 

« Virtual definitions. 

• Variable procedure-name (VN) 
definitions, if the program is 
segmented. 



Building the VN Priority T a ble 



VN definition elements are not used for 
optimization. They are included in the 
Optimization A-text for a segmented program 
because they are used to build a table 
(called VNPTY) which must be in storage for 
the next part of phase 6 processing. As an 
element is read, it is entered unchanged 
into this table. After the Optimization 
A-text file has been closed, the VNPTY 
table is sorted in ascending order of 
priority number. 
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1 — "" -Tf '■ '" — - " 1 " ' " 1 ~ I 

SI || Multiplication | 
8 Counter \ Contents From Earlier Phases | TGT Field | Factor 1 
i ' lit 


i ........ | - 1 f 

| TSMAX INumber of bytes needed for arithmetic temporary | TEMP | 8 | 
| j storage. I STORAGE | | 


| TS2MAX INumber of bytes needed for nonari thmetic | TEMP j 1 | 
| | temporary storage. | STORAGE- 2 j | 


j TS3MAX INumber of bytes of work area for aligning | TEMP | 1 | 
j | non-SYNCHRONIZED data items, I STORAGE-3 | | 


| TS4NAX INumber of bytes of work area for table-handling | TEMP | 1 | 
| | verbs- I STORAGE-4 | | 


| BLLCTR jNumber of base locators assigned to Linkage j BLL | 4 | 
| | Section- I | | 


j VLCCTR JNumber of variable-length cells (containing | VLC j 2 j 
| | current length of a variable-length field)- | | | 
i i ill 


| INDEX1 INumber of index-names defined in INDEXED BY | INDEX | 4 | 
| | clause. | | | 


| SBLCTR INumber of secondary base locators (location of | SBL | 4 | 
j | a field variably located because it follows a | | | 
| | variable-length field) . Ill 

Y \ If f 


5 1 I J f 

j BLCTR INumber of base locators assigned to files and | BL | 4 | 
| | Working-Storage. I | | 


| SDBCTR INumber of subscript save cells. | SUBADR | 4 | 


| ONCTR INumber of ON control cells. I ONCTL | 4 | 


| PFMCTR INumber of PERFORM control cells (for PERFORM X | PFMCTL | 4 | 
| | TIMES). I | | 


| PSVCTR {Number of PERFORM save cells. I PFMSAV | 4 | 


| VNLOC* JNumber of variable procedure- names. | VN | 8 | 


| DECBCT INumber of DECBs. I DECBADR | 4 | 


| XSWCTR INumber of EXHIBIT switches- I XSASW | 1 | 


| XSACTR JNumber of bytes for EXHIBIT saved area. | XSA | 1 | 


| PARMAX |Area needed for parameter lists. | PARAM | 4 | 


| AMICTR INumber of FIBs for VSAM files. | FIB | 4 | 


j a- .._., ». | 

I^The number of VNs in the program is passed to phase 6 in the VNCTR cell of COMMON, not | 
j the VNLOC cell. However* this value is moved into the VNLOC cell and all further TGT | 
| processing uses VNLOC rather than VNCTR. (The number of VNs in the program must also | 
| be known for PGT allocation to determine the size of the VN field in the PGT. This | 
j value is saved in VNCTR.) 1 



Figure 36. Use of Counters in COMMON to Allocate Space in the TGT for Variable-length 
Fields (Part 1 of 2) 
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: j — — — — 

f 
Counter f Contents From Earlier Phases 



r— — — —— — - — "~—"i 

Multiplication f 
Factor f 



H — ■ ■ = 

RPTSAV j Report Writer save area requirements. 
1 



TGT Field 



REPORT 
SAVE 



I 



CKPCTR |N umber of checkpoint requests. 
I 



CHECKPT 
CTR 



SA2CTR |USE LABEL or USE ERROR procedure save area 
f requirements. 



SAVE 
AREA-2 



S13CTR | Maximum number of files specified in an OPEN | SAVE 

| statement. f AREA-3 

I , a , L : . , , , 4 g. 

Figure 36. Use of Counters in COMMON to Allocate Space in the TGT for Variable-length 
Fields (Part 2 of 2) 



Optimizing PNs and GNs 



The first step in optimizing PNs and GNs is 
to allocate space in the compiler table 
area for the PNTBL and GNTBL tables. The 
lengths of these tables are determined from 
the values of PNCTR and GNCTR in COMMON, 
respectively. Then, in routine PNUPRO, the 
PNTBL is processed against the PNUTBL. 
(The PNTBL, containing one entry for each 
procedure- name in the program, is used only 
in phase 6; the PNUTBL was built by phase 
51. See '"Building the PNUTBL Table" in the 
chapter "Phase 51", for a description of 
how and why this table was created.) If a 
PNUTBL entry has a value of 1 , the 
corresponding PNTBL entry is numbered. The 
numbers are sequential beginning with 1. 
If the PNUTBL entry has a value of 0, this 
means that the procedure -name is never 
referred to in the program and can be 
eliminated; therefore, the corresponding 
PNTBL entry is set to 0. Once the PNTBL 
values have all been set, the PNUTBL table 
is released. 



Figures 37 through 39 show an example of 
this processing for a program containing 
six PNs and six GNs. In Figure 37, the 
table entries are shown as they would 
appear after the PNUTBL processing. 



Optimization A-text is then read by 
routine READF2. Each time a PN or GN 
Equate string is encountered, READF2 calls 
the routines (PNEQUR or GNEQUR, 
respectively) that process these strings. 



PNUTBL 



PNTBL 



GNTBL 



1 \ 



1 I 



I 9 
J~~ — « 
I 1 I 

I 1 

I 1 I 

« f 

« | 

I 1- 

I 1 I 

8 I 



i 



6 { 4 f 6 | -1 

Figure 37. PNUTBL, PNTBL, and GNTBL Tables 
at the Beginning of 
Optimization Processing 



Figure 38 shows the effect of a PN 
EQUATE string indicating that PN3 (the 
number found in the PNTBL entry for 
PN3, 2 in the example) is entered into the 
slot for GN1. If there were no other 
Equate strings read, the following would 
occur after the Optimization A-text file 
had been closed: GN2 through GN6 would be 
assigned relative numbers sequentially, 
starting with the number after the last 
referenced PN number in the PNTBL table 
(which is 4 in the example). The GNTBL 
entries would then read 2, 5, 6, 7, 8, 9. 

If, however, as shown in Figure 38, a Gl 
equate string is encountered equating GN2 
with GN4 and GNS, the relative number of 
GN2 is assigned to GN4 and GN5. This 
number will be 5, since GN2 will contain 
the next sequential number after PN6. 
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GNTBL 
r 







I 



Equates GN1 to PN3 



Equates GN2, GN4, 
>and GN5, which it 
| can be assumed will 
be assigned a rela- 
tive number of 5. 



Figure 38. GNTBL Table after PN and GN 
Equate Strings Have Been 
Processed 

After the Optimization A-text file has 
been closed, relative numbers are assigned 
to each GN not equated to a PN or another 
GN. The completed GNTBL table for the 
example is shown in Figure 39. 



GNTBL 
i 



Figure 39. 



GNTBL Table after the Relative 
Numbers Have Been Assigned 



Note: In the object code listing, the 
optimized GNs are numbered sequentially 
starting with 1. The numbers to the left 
of the tables in Figures 37, 38, and 39 are 
A-text PN and GN numbers before 
optimization. They represent implicit 
positions in the tables. 



Op timiz in g Literals and DISPLAY Literals 



The literal optimization routines are used 
to eliminate storage duplication in cases 
where the source programmer used the same 
literal more than once. Routine LTLRTN 
processes internal literals, and routine 
LTLDIS processes DISPLAY literals. These 



routines build three tables: the CONTBL 
and CONDIS tables (for regular and DISPLAY 
literals, respectively) contain one entry 
for each unique literal, and the LTLTBL 
table contains an entry for each use of a 
literal. 

When a literal definition is 
encountered, the CONTBL or CONDIS table is 
searched for an entry identical to the 
literal. (To be identical, two internal 
literals must meet the same boundary 
requirements as well as have the same 
value.) If no match is found, the new 
literal is entered into the CONTBL or 
CONDIS table. Any bytes skipped because of 
boundary alignment are filled with zeros. 
The displacement of this entry from the 
beginning of the table is placed in the 
LTLTBL table, with a bit set to indicate 
whether it is a CONTBL or CONDIS entry. If 
a match is found, only an LTLTBL entry is 
made. This LTLTBL entry is the 
displacement of the CONTBL or CONDIS entry 
that matched the literal being processed. 

Figure 40 shows an example of these 
tables after all Optimization A-text has 
been processed. The Optimization A-text 
contained literal definition elements for 
the following literals: 

8, 3(DISPLAY), 3, 9, Y (DISPLAY) , 8 

After the Optimization A-text data set 
is closed, the Literal Pool is written on 
SYSPRINT, using the contents of the CONTBL 
and CONDIS tables, if the PMAP, CLIST, or 
DMAP options are in effect. The Literal 
Pool is also written on SYSPUNCH and 
SYSLIN, as needed. 



0£t A J5A zi M Virtuals 



The virtual optimization routine (VIRRTN) 
is used to eliminate storage duplication in 
cases where the same EBCDIC name of a 
called program is referred to in more than 
one CALL statement or in more than one call 
to a COBOL library object- time subroutine. 
The logic of this processing is similar to 
that of literal optimization. Two tables 
are built: the CVIRTB table contains one 
entry for each unique virtual, and the 
VIRPTR table contains one entry for each 
reference to a virtual. 
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CONTBL 



Literals | 8 

4- 

I 3 



CONDIS 



Write text, 
increment 
RW1, and 
release 
tables. 



DISPLAY | 
Literals f- 



LTLTBL 



|0 (CONTBL displacement of 8) I 1 

| —I 

|0 (CONDIS displacement of 3) | 
I 1 j 



|1 (CONTBL displacement of 3) | 



-«)Add PGT 



1 2 (CONTBL displacement of 9) Ijdisplace- 

I — _. !_| 1 ments and 

|5 (CONDIS displacement of Y) | Isave 

I 1 ftable 

|0 (CONTBL displacement of 8) | 

i : . 1 1 



Note: For this example, the values in 
LTLTBL assume that each CONTBL entry is 
one byte long and each CONDIS entry is 
five bytes long. 

I : ; 

Figure 40. CONTBL, CONDIS, and LTLTBL 
Tables after Processing 
Literals 



CALL Virtuals 
CVIRTB 



CVIRT1 



CVIRT2 



CVIRT3 



Write text, 
increment 
RW1, and 
release 
tables. 



PGT (CVIRTB) Displacements 

VIRPTR 



| (Disp. of 
J CVIRT1) 

I = 

| 8 (Disp. of 
| CVIRT2) 

I 

|16 (Disp. of 
| CVIRT3) 

| 

| (Disp. of 
| CVIRT1) 

I 

| 8 (Disp. of 
l CVIRT2) 

I 

i 



Save 



Note: Each CVIRTB entry is eight bytes 
long. 

i , 1 

Figure 41. CVIRTB and VIRPTR Tables after 
Processing Virtuals 



When a virtual defini 
encountered, the CVIRTB 
for an identical entry, 
the new virtual is enter 
table. Into the VIRPTR 
the displacement of this 
beginning of the CVIRTB 
is found, only a VIRPTR 
This VIRPTR entry contai 
in the CVIRTB table of t 
matched the virtual bein 



tion is 

table is searched 

If none is found, 
ed in the CVIRTB 
table is entered 

virtual from the 
table. If a match 
entry is made, 
ns the displacement 
he entry that 
g processed. 



Figure '4V shows the contents of these 
tables after processing Optimization A-text 
for a program containing the following 
virtuals: 



CVIRT.1, CVIRT2, CVIRT3, CVIRT1, CVIRT2. 



ALLOCATING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



When all Optimization A-text has been read, 
storage is allocated for the PGT and PGT 
initialization is done. Entries for the 
External Symbol Dictionary are created for 
virtuals, and object text is written for 
virtuals and literals. Register RW1 is 
used throughout PGT allocation to hold the 
displacement of the field currently being 
processed. Counters in COMMON are set to 
the displacements of their corresponding 
PGT fields from the beginning of the PGT. 



If the PMAP, CLIST, or DMAP options are 
in effect, the format of the PGT is written 
on SYSPRINT using routine MAPLOC. 
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OVERFLOW Allocation 



Preliminary calculations are made to 
determine whether the size of the PGT 
exceeds 4096 bytes. If it does, one 4-byte 
OVERFLOW cell is required for each 
4096-byte area after the first one. 



VIRTUAL Allocation 



After the OVERFLOW CELLS field of the PGT 
has been calculated, the VIRTUAL field is 
processed. Using the CVIRTB table, an 
External Symbol Dictionary entry (ESD-text 
type 2) is written for each virtual unless 
the DYNAM or the RESIDENT option is in 
effect. (If the RESIDENT option is in 
effect, no ESD or RLD item is written for a 
library subroutine; if the DYNAM option is 
in effect, no ESD or RLD item is written 
for a library subroutine or a user 
subprogram.) Object text is also written 
and entries are made in the RLDTBL table 
for subsequent writing of the Relocation 
Dictionary. 



The VIRCTR cell of COMMON is set to the 
displacement of the VIRTUAL field from the 
beginning of the PGT. (This value is 
unless OVERFLOW cells have been allocated.) 



| VIRPTR 




1 i i i 

| | *+0 | | 


1 1 *+4 1 1 


1 1 *+8 1 1 


1 1 *+0 | | 


1 | *+4 | | 

1 1 ....-r..— ,_. 1 1 


Vindicates the displacement of the | 
| VIRTUAL field in the PGT (the value is 01 
| if no overflow cells are present) . | 


INote: Each VIRTUAL in 
| bytes long. 


the PGT is four | 



Figure 42. VIRPTR Table after VIRTUAL 
Allocation 



VIRTUAL EBCDIC NAMES Allocation 



If the DYNAM or RESIDENT option is in 
effect, an 8-byte cell for each library 
subroutine name is allocated in the PGT. 
In addition for the CALL identifier, or if 
the DYNAM option is in effect for the CALL 
literal, an 8-byte cell for each user 
subprogram name is allocated in the PGT. 
If neither option is in effect, this field 
does not exist. 



To determine the length o 
field, four bytes are allowe 
entry in the CVIRTB table, 
length is added to register 
DYNAM and/or RESIDENT option 
the CVIRTB table is used to 
PGT the EBCDIC names of thos 
are to be dynamically loaded 
table is kept for use during 
A-text processing, when its 
(EBCDIC names) will be used 
comments for CALL statements 



f the VIRTUAL 
d for each 
The calculated 
RW1. If the 

is in effect, 
enter in the 
e routines that 
The CVIRTB 

Procedure 
contents 
to generate 



A count of the EBCDIC names -to be placed 
in the PGT is kept in the BCDCTR cell in 
COMMON. This count is multiplied by 8 to 
reserve space for the list of names. After 
VIRTUAL allocation, register RW1 contained 
the displacement of the VIRTUAL EBCDIC 
NAMES field; the displacement is saved in 
the BCDISP cell in COMMON and register RW1 
is incremented to reflect the allocated 
bytes for the VIRTUAL EBCDIC NAMES cells. 



The entries in the VIRPTR table are 
changed to contain displacements in the 
VIRTUAL field (see the example in Figure 
42) . The table is saved for subsequent use 
during Procedure A-text processing. 



PN Allocation 



After the VIRTUAL field or the VIRTUAL 
EBCDIC NAMES field, if allocated, has been 
processed, the value in register RW1 is the 
displacement of the PN field in the PGT. 
This value is saved in the PNCTR cell of 
COMMON. 

For each referenced PN in the PNTBL 
table, a 4 -byte cell is allocated in the 
PGT. The PNTBL entry is set to the 
displacement of this cell from the 
beginning of the PGT. If a PN was not 
referenced (if the value in the PNTBL entry 
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was 0) , no space is allocated. In the 
example in Figure 37, only four 4-byte 
cells are required in the PGT. After the 
PNTBL table entries have been adjusted, the 
entry for PN3 exceeds the entry for PN1 by 
four, and the entry for PN2 remains 0. The 
total length of the PN field (16 bytes in 
the example) is then added to RW1. 

Figure 43 shows the PNTBL table for the 
same program as in Figure 37 r after PN 
allocation in the PGT, The table is saved 
for use during Procedure A-text processing, 
when the values it contains will be used as 
displacements in instructions. 



PNTBL 

i 1 

1 j*+0 



GNTBL 



2 | 



3 |* + 4 

I 

4 |*+8 



h 



5 J 



6 |*+12| 
« 




♦Indicates the displacement in bytes of 
the PN field from the beginning of the 
PGT. 



Note: The numbers to the left of the 
tables are A-text PN and GN numbers. 
They specify implicit positions in the 
table. 

Figure 43. PNTBL and GNTBL Values after 
PGT Allocation 



GN Allocation 



The value in register RW1 is now the 
displacement of the GN field in the PGT. 
This value is placed in the GNCTR cell of 
COMMON. 

For each unique GN, a 4 -byte cell is 
allocated in the PGT. The GNTBL entry is 
set to the displacement of this cell from 
the beginning of the PGT. However, if the 
GN was equated to a PN or another GN, the 
GNTBL entry is set to the PGT displacement 
of that PN or GN. This is illustrated in 
Figure 43, which shows the GNTBL table 
after this processing using the same 
example as in Figures 37, 38, and 39. In 
this example, GN4 and GN5 were equated to 
GN2. Therefore, the GNTBL entries for GN4 
and GN5 contain the displacement of GN2. 
The PGT for this program will contain only 



three unique GN entries, or twelve bytes. 
After all entries have been processed, the 
length of the GN field (12 in the example) 
is added to register RW1. 

The GNTBL table is saved for use during 
Procedure A-text processing. 



DCBADR Allocation 



The DCBCTR cell in COMMON is used to 
determine how much space is required: four 
bytes are reserved for each DCB in the 
program. The DCBCTR cell is set to the 
displacement of the DCBADR field (the value 
of register RW1), and RW1 is then 
incremented to reflect the allocated bytes. 



YNI Allocation 



The VNCTR cell of COMMON was used by 
earlier phases to count the number of 
variable procedure-names in the program. 
Eight bytes are allocated for every VN. 
The displacement of the VNI field (the 
value of RW1) is placed in the VNILOC cell, 
and the number of bytes allocated is added 
to register RW1. 



LITERAL Allocation 



The displacement of the LITERAL field in 
the PGT (the current value of register RW1) 
is placed in the LTLCTR cell of COMMON. 
The length and contents of the LITERAL 
field will be identical to the CONTBL and 
CONDIS tables. 

For each LTLTBL entry that refers to 
CONTBL, the value in the LTLTBL table is 
replaced by the displacement of the 
specific literal from the beginning of the 
PGT. This displacement is calculated by 
adding the value already in the LTLTBL 
entry (which is the CONTBL displacement of 
the literal) to the value of RW1. An 
example is shown in Figure 44. 

The same processing occurs for LTLTBL 
entries that refer to CONDIS, except that 
the increment includes the length of the 
CONTBL table. This occurs because DISPLAY 
literals are placed after internal literals 
in the PGT, as illustrated by Figure 44. 
The LTLTBL table is saved for use during 
Procedure A-text processing. The lengths 
of the CONTBL and CONDIS tables are used to 
increment RW1. If the program is not 
segmented, the contents of the tables are 



1S0 Section 2. Method of Operation 



Licensed Material - Property of IBM 



used to write object text, and the tables 
are released. In a segmented program, the 
writing of object text is delayed and* 
therefore, the tables are kept. 




^Displacement of LITERAL field from 
beginning of the PGT. 
^Displacement of DISPLAY LITERAL field 

from beginning of the PGT. 
a 

Figure 44. LTLTBL Table after Literal 
Allocation 



PROCEDURE A-TEXT PROCESSING 



Phase 6 reads Procedure A-text to produce 
machine-language instructions for the 
object program. One element of text is 
read and processed at a time, and the 
object code produced for this element is 
placed in a work area called 006REC. One 
or more elements are reguired to produce a 
complete instruction. When an instruction 
is complete, it is written out from the 
work area, and the LOCCTR cell in COMMON is 
incremented by the number of bytes written. 

If the instruction involves a base 
locator, the processing routine refers to 
or updates table REGMTX (see "Execution- 
Time Base Register Assignment" in this 
chapter) , which is a table internal to 
phase 6 (that is, not a TAMER table) . Base 
locators were assigned by phase 22; 
a discussion of their meaning appears in 
the chapter "Phase 22." 



If the PMAP compiler option was 
specified, routine PUT is called to write a 
line of text on SYSPRINT every time a 
complete instruction has been created. If 
the CLIST option was specified, this 
routine is called only for each source 
program verb. 

If the STATE option is in effect. 
Procedure A-text is used to create 
Debug-text which is written on SYSUT2. 
Debug-text elements are written by the SYS2 
routine for all card numbers encountered 
and contain the card number and its 
displacement within the object module. 
This text is used by phase 65 to produce 
the PROCTAB and SEGINDX tables which are 
written in the object module. If either 
the FLOW or the STATE option is in effect, 
phase 6 builds the TGTADTBL table which is 
used to pass debugging information to phase 
65. 

If the SXREF, XREF, VBREF, or VBSUM 
option is in effect. Procedure A-text is 
used to create REF-text and to write it on 
SYSUT3. This text, containing an element 
for every data-name, file-name, 
procedure-name, and verb in the program, is 
used by phase 6A to produce a 
cross-reference listing. 

Figure 45 describes the processing for 
each type of Procedure A-text element. The 
individual elements are illustrated in 
"Section 5. Data Areas." 

Note on base register s for the PGT and TGT : 
At execution time, R12 always points to the 
beginning of the PGT and R13 always points 
to the beginning of the TGT. If the 
displacement of an item in the PGT or TGT 
exceeds 4096 bytes, an OVERFLOW cell must 
be used. The OVERFLOW cells fields of both 
the PGT and TGT are at fixed displacements 
from R12 and R13, respectively. Which 
OVERFLOW cell is to be used is determined 
from the value of the displacement, for 
example, a value from 4096 to 8191 bytes 
uses cell 1, from 8192 to 12,287 bytes uses 
cell 2, etc. An instruction is generated 
to load R14 or R15 from the OVERFLOW cell. 
Then, in the operand currently being 
processed, R14 or R15 is used as the base, 
and the displacement is decremented by 
4096, 8192, etc. 
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i r 

Code and Type 



Action Taken 



2C* 

card number 



Store in 3-byte cells OU6C0N and XFCDNO. If PMAP or CLIST are 
requested , read Listing A-text. Used to create an in-line constant for 
TRACE instructions which call the DISPLAY object- time subroutine 
(ILBODSPO) - If STATE is requested , write Debug-text. 



30* 

PN definition 



Using PN number as an index, look in PNTBL (see "PN Allocation" in this 
chapter) to get displacement in PGT of the cell for this PN. Create an 
RLDTBL entry which will place the current value of LOCCTR in the PGT 
cell. 



34* 

GN definition 



Same as PN definition, using GN number and GNTBL (see "GN Allocation" 
in this chapter) . 



38* 

VN definition 



Create an indirect RLDTBL entry from this element and the PN reference 
which follows it. 



3C 

EBCDIC card 

name 



Convert the current card number to an EBCDIC constant of the form: 

DC X'5» 

DC CL6 1 generated card number 1 



44 

macro-type 

instruction 



Use byte 2 of the element as index to a branch table. Phase 6 produces 
the required coding. The contents of these elements are listed in the 
Procedure A-text formats of "Section 5. Data Areas." 



vindicates that no object text was written for this element. 
**see note under "Procedure A-text Processing." 

i ; 

Figure 45. Processing Procedure A-text Elements (Part 1 of 3) 
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Code and Type 



Action Taken 



48 

operation 

code 



This element contains, in machine language the first two bytes of an 
instruction. The first byte is the operation code; the second may 
give condition codes, registers, or other operands. For an RR type 
instruction, this element contains the complete instruction. It is 
written out as received. 



4C 

PN reference 



This is the operand of a LOAD instruction. Procedure branching is 
accomplished by loading an address and then branching to it. Using 
register 12** as a base, find displacement by using PN number as an index 
into PNTBL (see "PN Allocation" in this chapter). Using card number 
stored in XFCDNO, write an element of REF-text for phase 6A, if SXREF or 
XREF is in effect. 



50 

GN reference 



Same as PN reference, using GN number and GNTBL (see "GN Allocation" 
in this chapter). No REF-text is written. 



54 

VN reference 



Use register 13** as base. Get displacement of VN field of TGT from 
VNLOC cell in COMMON (see "Task Global Table Storage Allocation" in this 
chapter). Use a VN number to compute displacement of this VN cell. 



58 

Virtual 

reference 



Use virtual number as an index in the VIRPTR table (see "VIRTUAL 
Allocation" in this chapter) . Table entry contains displacement 
of this virtual in the PGT. Use register 12** as a base. 



5C 

BL reference 



This element is the operand of an instruction which loads a base 
register. Use register 13** as a base. Get displacement of BLL or BL 
field in TGT from BLLCTR or BLCTR, respectively, in COMMON. Use BL 
number to compute displacement of this cell. Update table REGMTX. 



60 

TGT standard 

area 

reference 



Use register 13** as a base. Displacement is picked up from a list 
of constants. This element refers to a cell in the fixed portion of 
the TGT. 



64 

Global Table 
variably- 
located area 
reference 



Use register 13** as a base (unless the element specifies the DCBADR 
field of the PGT* which uses register 12**) . Get displacement of the 
TGT or PGT field from the appropriate cell in COMMON, and use 
identifying number to compute displacement of this item (see "Task 
Global Table Storage Allocation" and Figure 36 in this chapter) . 



68 

literal 

reference 



Bytes 2 and 3 are used to find the correct entry in the LTLTBL table, 
which gives the displacement of this literal in the PGT. Register 12** 
is the base. 



6C 

DC definition 



This element is used to create an inline constant for a calling 
sequence. It is always preceded by the element 4424, the macro-type 
instruction element signaling a DC definition (see Code 44 above in this 
figure). It is written out as received. 



70 

base and 

displacement 



Specifies the actual register number and displacement for the 
instruction. It is written out as received. 



*Indicates that no object text was written for this element, 
**See note under "Procedure A-text Processing." 



Figure 45. Processing Procedure A-text Elements (Part 2 of 3) 
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I — T 

| Code and Type 



I- 

|78 

| address 
j reference 
I 
I 

I " 
I 



Action Taken 



Search table REGMTX on i and k (BL type and BL number) • If a match is 
founds the required BL is already in a register. Use that register as 
the base. If a match is not found, generate an instruction to load 
register 14 or register 15 with the BL from the BL or BLL field of the 
TGT and use that register as the base (see Code 64 above for generation 
of the LOAD macro instruction). Displacement is the d field of the 
element. Get card number from XFCDNO to write an element of REF-text. 



| 

I7C 

| EBCDIC 
| data- name 
| reference 



This element always follows the element 4404, the macro-type instruction 
element for ENTRY. It is used to punch an ESD-text type 1 card for the 
entry point. 



« 

180 

| address 
| increment 

I 



I . 

|84 

{relative 
| address 
I 



This element is required, for example, by the second MVC for a MOVE of 
more than 256 bytes. The element itself would have a value, in this 
case, of 256 bytes (the value of the increment) . Add it to the d 
(displacement) field of the preceding reference. 



This element is used to create an inline pointer to an item in a field 
of the TGT or PGT for a calling sequence. Get displacement of field 
from appropriate counter in COMMON and use identifying number to compute 
displacement of item. 



I 

| A0* 

| register 

[specification 



Specifies the register used by a macro-type instruction element, and must 
follow certain of these elements (see the list of macro-type 
instructions under "Procedure A-text" in "Section 5. Data Areas") . 



| 

|A4 

| incremented 

j address 



This element combines the address reference and increment 
elements into one (see Codes 78 and 80 above) . 



j 

SBO 

1 calling 

| sequence 

j displacement 



Used to create an in-line TGT or PGT pointer for a call to an object-time 
subroutine which requires a parameter containing a displacement from 
register 13 or register 12. 



! B4* 

Icalling 
: sequence 
J dictionary 
j pointer 

| 



Used when a file-name or data-name occurs in a calling sequence to write 
a REF-text element for phase 6A. Obtain card number from XFCDNO. 



H ! 

| Used to write an element of REF-text. 

I 



f B8* 

If ile 

I reference 



f ^Indicates that no object text was written for this element. 
|**See note under "Procedure A-text Processing." 

i - , ... . . 

Figure 45. Processing Procedure A-text Elements (Part 3 of 3) 
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Proc edure A- text Processing in a Segmented 
Pro gra m 



Phase 6 reads Procedure A- text in the order 
in which it was written. 

Procedure A-text is read from the 
direct-access data set SYSUT1 using the 
segment priority (SEGTBL) table. For a 
description of how this table is built, see 
"Segmentation Control Breaks" in the 
chapter "Phase 51." The table format is 
given in "Section 5. Data Areas." 

In phase 1B, the priority numbers of all 
sections in the root segment were set to 0. 

Routine SEGPROC searches the SEGTBL 
table for the first entry whose priority is 
zero. It then calls COS in phase 00 with a 
request for SEGPNT, passing the relative 
disk address of this section. The SEGPNT 
routine in phase 00 positions the access 
mechanism to the correct address on the 
file. ' (Additional information on this 
routine is in the chapter "Phase 00" under 
"Phase Input/Output Requests.") The section 
of Procedure A-text is then read and 
processed. When a segmentation control 
break is encountered in the text, the 
SEGTBL is searched for other sections of 
the same priority. 



When all sections of one priority have 
been processed, the SEGTBL table is 
searched for a different priority, and the 
process is repeated. If the STATE option 
was specified, at the end of processing for 
each segment, the final LOCCTR value for 
that segment and the priority for the next 
segment to be processed are both written on 
SYSUT2 for phase 65. Object text for the 
segments is written throughout this 
processing, as machine instructions are 
generated. If any segment refers to 
another program via a CALL statement, an 
INSERT card for the called program is 
generated also. 

After the last nonroot segment has been 
processed, the LOCCTR cell of COMMON is set 
to the location in the root segment of the 
PGT. Object text is then written from the 
CVIRTB, CONTBL, and CONDIS tables, which 
contain the values of virtuals and literals 
to be stored in the PGT (see "LITERAL 
Allocation" and "VIRTUAL Allocation" in 

this chapter). Then LOCCTR is set to the 
beginning of the Procedure Area of the root 
segment, which was saved in cell LOCPGM, 
and processing of the Procedure A-text for 
the root segment begins. The text is 
located on SYS0T1 by finding all entries of 
zero priority in the SEGTBL table. 



Note ; A section is a series of source 
program procedure instructions grouped 
under the same section- name. A segment is 
all the instructions whose sections have 
the same priority, and a segment may 
consist of one or more sections. There is 
a SEGTBL entry for every section whose 
priority differs from that of the section 
preceding it. 



Li sting A- Text 



Listing A-text is processed concurrently 
with Procedure A-text. Generated by phase 
1B, it contains the EBCDIC names of 
procedure-names and COBOL verbs preceded by 
a code and a count. It is used to print 
procedure and verb-names alongside their 
associated code on the object program 
listing (if the PMAP option is in effect) , 
to print verb-names (if the CLIST option is 
in effect) , and in response to READY TRACE 
(if the VERB option is in effect) . One 
Listing A-text element is read every time a 
card number element is encountered in 
Procedure A-text. 
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Execution-Time Base Re g ister Assignmen t 



Before Procedure A-te 
permanent base regist 
Register 12 is always 
and register 13 to th 
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If the PMAP, CLIST, or DMAP options are 
in effect, a list of permanently assigned 
registers and the BLs (base locators) 
associated with them is written on 
SYSPRINT. 

At execution time, permanent base 
registers are loaded from the TGT by 
routine INIT3. (Registers through 5 are 
work registers; instructions using these 
registers are generated from the Procedure 
A-text.) Registers 14 and 15 are used as 
temporary base registers. 

To assign base registers in procedure 
instructions, phase 6 refers to and updates 
table REGMTX (internal to Phase 6) which 
contains an entry for each of registers 6 
through 11, 14, and 15. Into an entry are 



placed the BL type and BL number (the i and 
k of the idk field of an addressing 
parameter) of the area to which the 
register is currently pointing, and the 
status of the register (that is, how it is 
being used). When a field of the data area 
is the operand of a procedure instruction, 
table REGMTX is searched for a matching i 
and k. If it is found, this means that the 
register already contains the desired base 
locator and, therefore, the register can be 
used in the instruction. 

If no register already contains the 
necessary base locator, an instruction is 
generated to load the base locator (which 
is stored in the TGT) into temporary base 
register 14 or 15. 

When a register is used in an 
instruction, the status portion of the 
REGMTX entry is updated to indicate how it 
is currently being used. Status bits may 
also be updated by the A-text macro-type 
instruction elements (see Figure 45 in this 
chapter) . A list of these elements and 
their meanings appears in the Procedure 
A-text formats in "Section 5. Data Areas." 
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PROC ESSI NG DATA A-TEXT, E-TEXT y AND 
DEF-TEXT 



The primary function of Data A-text 
processing is to place values into fields 
of the data area and Global Tables of the 
object program. Each element results in 
either the writing of an object text 
element or an entry in the RLDTBL. Some 
RLDTBL entries will later be written out as 
Relocation Dictionary (RLD-text) entries 
for the data area and as object text. 
Others,, for the Global Tables, will be 
written as object text only, (These will 
be relocated by the object program.) 



The table is then sorted in ascending 
order of target address. Object text is 
written for items that are in the Global 
Tables, This text consists of address 
constant definitions that will be stored in 
the Global Tables at execution time. No 
RLD-text is reguired for these items, 
because the addresses are relocated during 
program execution by routine INIT3. object 
text is also written for data area address 
constants (obtained from address constant 
and indirect address constant definitions) . 
For the data area address constants, 
RLD-text is written so that the linkage 
editor can relocate the addresses. 



SYSDT4, from which Data A-text is read, 
also contains E-text generated by phases 10 
through 51, and DEF-text for the 
cross-reference listing if the SXREF, XREF, 
VBREF, or VBSUM option is in effect. 
Figure 46 illustrates the contents of this 
data set when it is read by phase 6. 
Figure 47 describes how each type of 
element is processed. 



INITIALIZATION CODING} GENERATION 



After the RLDTBL table has been processed, 
initialization coding is generated using 
the routines that process Procedure A-text'. 



PROCESSING THE RLDTBL TABLE 



The maximum amount of space is obtained for 
the RLDTBL table by a call to GETALL in 
phase 00, The RLDTBL does not use a TIB. 
The calling seguence is: 



L 15, =A (GETALL) 

BALR 14,15 
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The starting address of the. table area for 
the RLDTBL table is returned in register 0, 
and its length is returned in register 1. 



After end-of-file has been reached on 
SYSUT4, the RLDTBL table is processed. 
First, indirect address constants are 
resolved. 
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Beginning of SYSUT4 



WRITTEN BY PHASE 21 



Data A-text 



E-text generated by 
phases 10 f 12,20,22, and 21 

Data-name, file-name 

DEF-text* 

(These types of text are 

intermixed.) 



WRITTEN BY PHASE 25 
E-text 



WRITTEN BY PHASE 3 

Procedure- name 
DEF-text* 



WRITTEN BY PHASE 51 

E-text generated by 

phases 12, 1B, 3, 4, 50, 51 

i 

End of File 



There are no control breaks provided 
between sections of text to distinguish 
text written by one phase from text 
written by another. 

During Data A-text processing, phase 6 
determines solely from the code (which 
is the first byte of the element) what 
type of text is contained in an element, 
and which routine is to be called to 
process it. 

E-text generated by phase 10 was passed 
to phase 21 intermixed with DATA IC-text. 



Read during Data A-text processing 



E-text generated by phases 12, 1B, 3, 4, 
and 50 was passed to phase 51 intermixed 
with Procedure IC-text. However if the 
CSYNTAX option was requested and neither 
an error (E) nor disaster (D) level 
message was generated, phases 3, 4, and 
50 wrote E-text on SYSUT4. 



|*Produced only if SXREF, XREF, VBREF, VBSUM, or TEST option is specified. 



Figure 46. Contents of SYSUT4 When Read by Phase 6 
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J Code and Type | Action Taken 1 


3 00 | All E-text is built into a table called ERRTBL, which is passed to | 
{E-text | phase 70. Phase 6 does not process the E-text. If the ERRTBL table J 
| Joverflows the space allocated to it , all of the E-text is rewritten on | 
| JSYSUT3, and a bit in the SWITCH field of COMMON is set to indicate this| 
I |to phase 70. j 

| {There are two types of E-text elements: message definitions and | 
\ | message parameters. Message parameters are optional; however, if they J 
| J occur, one or more message parameters immediately follow the message j 
J Jdefinition to which they apply (the uses of these elements are | 
{ {explained in the chapter "Phases 70, 71, and 72"). Phase 6 examines | 
J 3 each element to determine its length, so that the correct number of | 
\ j bytes may be stored in the table. To do so, it checks the third byte | 
J |of the element. If the byte contains a zero, the element is a message | 
| ^definition whose length is eight bytes. If the third byte is nonzero, | 
| (the element is a message parameter of variable length, and the length | 
\ |is determined from the value of the second byte (for the format of | 
\ JE-text and for the format of ERRTBL, see "Section 5. Data Areas") . | 


| 04 |Generate an RLDTBL entry that will cause the address of the DCB | 
jDCB address 8 to be placed in the correct cell of the DCBADR field in the PGT at | 
j | execution time. Get displacement of the DCBADR field from cell DCBCTR | 
J Jin COMMON (see "DCBADR Allocation" in this chapter) and use the DCB | 
| J number to compute displacement of cell. Text element contains the | 
| lvalue (relative address of the DCB) to be placed in the PGT cell. | 


| 08 (Generate an RLDTBL entry that will cause the address of the DECB | 
JDECB address g to be placed in the correct cell of the DECBADR field of the TGT at | 
| {execution time. Get displacement of the DECBADR field from cell DECBCTJ 
§ | in COMMON (see Figure 36 in this chapter) and use the DECB number to | 
| | compute displacement of cell. Text element contains the value | 
J | (relative address of the DECB) to be placed in the cell. | 


|0C | Generate an RLDTBL entry that will cause the address of the buffer | 
j Block address |to be placed in the correct BL cell of the TGT at execution time. Get | 
| | displacement of the BL field from cell BLCTR in COMMON (see Figure 36 | 
j jin this chapter) and use the BL number to compute displacement of the | 
| |cell. Text element contains the value (relative address of the buffer) | 
| |to be placed in the TGT cell. I 

| |If the value of the SIZE field of the element exceeds 1024 (SIZE | 
| {specified length of the block in full words) , more than one BL has been | 
| {assigned to the buffer. For each 1024-word area after the first, | 
| {another RLDTBL entry is made. The second RLDTBL entry will cause the { 
| | buf f er address plus 4096 to be placed in the next BL cell of the TGT. { 


| 14 JGenerate an RLDTBL entry that will cause the address of the File { 
| FIB address | Information Block (FIB) to be placed in the correct cell of the FIB { 
| | field in the TGT at execution time. Get displacement of the FIB field | 
| | from AMICTR cell in COMMON and use the FIB number to compute | 
j | displacement of cell. Text element contains the value (relative | 
j | address of the FIB) to be placed in the TGT cell. I 


| 20 | Generate the COUNT option information. I 
(Data A- text | I 



Figure 47. Processing Data A-text, E-text, and DEF-text (Part 1 of 2) 
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r- — — - ~t — - - ■■ ■ * - ■ ■-- ■ — i 

|Code and Type ( Action Taken . .( 

1, - ■ ■ . . 1 , , ■ ■ M fl 


1 l i 

(24 (Generate an RLDTBL entry that will cause the address of the | 
(Working-Storage (Working -Storage Section to be placed in the correct BL cell of the | 
jsection address (TGT at execution time. Get displacement of the BL field from cell | 
| (BLCTR in COMMON (see Figure 36 in this chapter) and use the BL number | 
| (to compute displacement of the item. Text element contains the value j 
| | (relative address of the Working-Storage Section) to be placed in the | 
( (TGT cell. j 

( (If the value of the SIZE field exceeds 1024 (SIZE specifies the length | 
| (of the Working-Storage Section in f ulluords) , more than one BL has been( 
I (assigned. For each 1024-word area after the first, another RLDTBL J 
| (entry is made. The second entry will cause the address plus 4096 to be( 
I | placed in the next BL cell. j 


(28 (Write object text that will place the value of the constant into a | 
IConstant (specified location in the data area at execution time. This type ( 
(definition (of element is used to fill some fields of DCBs and DECBs, and to j 
j (initialize data items for which a VALUE clause was specified. | 


1 i « 
|2C (Generate an RLDTBL entry that will cause the address of the ( 
(Address (procedure-name (PN) or generated procedure-name (GN) to be placed in | 
(constant (a specified location of the data area at execution time. This type ( 
(definition (of element is used to place pointers to routines in DCBs and exit | 
( (lists. | 


(34 (This type of element contains a GN number for a Q-Routine. The | 
(Q-Routine (elements are built into a table called QTBL. Each entry is resolved ( 
(identification (so that it contains the actual address of the routine rather than j 
j (simply the GN number. This processing is identical to that for GN ( 
| (references in Procedure A-text (see Figure 45 in this chapter) . When | 
( (phase 6 generates the code of INIT3 (one of the execution-time ( 
( (initialization routines) , it uses the QTBL table to generate a call to ( 
j (some Q-Routines to initialize the data and table areas affected by ( 
( (OCCURS. ..DEPENDING ON data items, where the object of the DEPENDING ON | 
I (clause is an item in Working-Storage. ( 


(38 (Generate an RLDTBL entry that will cause the displacement in the | 
(BL reference (TGT of the BL number assigned to VSAM files to be placed in a specifiedj 
( (location of the data area at execution time. | 


|3C (Generate an RLDTBL entry that will cause the displacement in the ( 
(BLL reference (TGT of the BLL numbers assigned to VSAM files in the Linkage Section toj 
( (be placed in a specified location of the data area at execution time. j 
j (This type of element is used to complete the building of the FIB at ( 
( (execution time. | 


(48 (This element is present only if the SXREF, XREF, VBREF, VBSUM or TEST ( 
(Data-name or (option was spcified. Each element is written out as it is encountered ( 
I file-name (on SYSUT1, to be read by phase 6A. The chapter "Phase 6 A" describes | 
(DEF-text (how these elements are used. | 


(4C (This element is present only if the SXREF, XREF, VBREF, VBSUM or TEST ( 
| Procedure-name (option was specified. Each element is written out as it is encounteredl 
(DEF-text (on SYSUT1, to be read by phase 6A. The chapter "Phase 6A" describes | 
I (how these elements are used. | 



Figure 47. Processing Data A-text, E-text, and DEF-text (Part 2 of 2) 
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PHASE 62 



Phase 62 (IKFCBL62) is the first of the 
three phases that prepare a machine 
language program suitable for input to the 
linkage editor if the optimizer (OPT) 
option is specified. The elements of this 
program are described in the chapter 
"Object Module-" The phase is divided into 
several sequential parts, each of which 
performs specific functions. The functions 
ares 



Determines object program storage 
allocation for the TGT (Task Global 
Table) by processing counters in COMMON 
and calculating the displacements of 
items which reside in the TGT at 
execution time. 



Option 
PMAP 



CLIST 



Result 

Causes the TGT, Literal Pool r 
PGT, register assignments, 
Working-Storage message, and 
a listing of the object text 
to be written on SYSPRINT. 

Causes the TGT, Literal Pool, 
PGT, register assignments, 
Working-Storage message, and 
a condensed object program 
listing to be written on 
SYSPRINT. The object program 
is limited to the card 
number, verb name (or verb 
number if the program is 
segmented) , and address of 
the first instruction for 
each verb. 



o Optimizes literals and virtuals by 
processing Optimization A-text; 
determines storage allocation in the 
PGT (Program Global Table) for these 
items, for PN and GN cells, and for the 
DCBADR, VNI, and PROCEDURE BLOCK fields 
and calculates their displacements, 
using counters in COMMON. 

o nith Procedure A-text as input, 

determines approximate object program 
storage requirements for the Procedure 
Division by calculating the Procedure 
block number in which each PN or GN is 
located. If the program is segmented, 
groups the sections of instructions 
into segments. 

® Optimizes usage for both permanent and 
temporary register assignments. 

The operations of phase 62 are described 
in Diagram 5, located with the foldouts at 
the back of this publication. 



OUTPUT OF PHASES 62, 63,, AND 64 



Copies of the object program and 
compilation information are put out by 
phases 62 and 64. Phase 64 may also put 
out REF-text and phase 63 may put out 
Debug-text. The output of phases 62, 63, 
and 64 depend on the compiler options 
specified by the user or determined by 
defaults set at installation time. The 
following are the options that determine 
the output produced: 



DHAP 



XREF 
SXREF 



LOAD 



DECK 



BATCH 
NAME 



Causes the TGT, Literal Pool, 
PGT, register assignments, 
and the Working- Storage 
message to be written on 
SYSPRINT. This option has 
already caused phase 3 to 
print a Data Division 
glossary. 

Causes a source ordered (XREF) 
or alphabetically ordered 
(SXREF) cross-reference 
listing to be written on 
SYSPRINT. Phase 64 writes 
XREF-text for use by phase 
6A. 

Causes the object program to be 
written on SYSLIN by phase 
00. 

Causes the object program to be 
written (punched) on SYSPUNCH 
by phase 00. 

If both the BATCH and NAME 
options are specified, they 
cause a linkage editor 
control card to be generated 
at the end of the object 
program, so that the object 
program will be a separate 
load module. If BATCH is 
specified, the relative 
number of this compilation in 
the batch appears among the 
statistics printed by phase 
64. 

Note: The linkage editor 
control card generated for the 
BATCH and NAME options is 
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FLOW[=n[n] 



STATE 



SYMDMP 

OR 
TEST 



produced by phase 65 if the 
FLOW/ STATE, or SYMDMP option 
is specified • 



Causes the flow trace facility 
to be included in the object 
program. The number [n[n.]] 
of traces requested is 
retained in the FLOWSZ cell 
in COMMON and is passed to 
phase 65, which places the 
number in the variable 
portion of the TGT. 

Causes the statement number 
facility to be included in 
the object program. Phase 63 
writes Debug-text elements on 
SYSUT4 for use by phase 65. 

Causes the symbolic debug 
facility to be included in 
the object program* Phase 63 
writes Debug-text on SYSUT4 
for use by phase 65, 



For all compilations, compiler 
statistics are written by phase 64 on 
SYSPEINT from COMMON, where they were saved 
by phase 02. 

If the PMAP, CLIST, or DMAP options have 
been specified, phase 62 causes the TGT, 
Literal Pool, PGT, register assignments, 
and Working- Storage message to be written 
on SYSPRINT. Phase 64 causes the object 
program listing for the PMAP or CLIST 
option to be written on SYSPRINT. If the 
FLOW, STATE, or SYMDMP option is in effect, 
phases 62 and 64 create the TGTADTBL table 
which is used by phase 65. Phases 62, 63, 
and 64 also use the TGTADTBL table for 
interphase communication before completing 
it in phase 64 for use by phase 65. 

The user may specify both the LOAD and 
DECK options, in which case the object 
program is written on both SYSLIN and 
SYSPUNCH. He may also specify NOLOAD and 
NODECK; in this case, he receives no 
executable copy of his object program. 

If no output was reguested (no PMAP, 
LOAD, DECK, CLIST, DMAP, BATCH, NAME, 
SYMDMP, STATE, SXREF, XREF, VBREF, or 
VBSUM) , text processing is bypassed unless 
the TERM option was specified. In this 
case, phase 64 scans the E-text on SYSUT4 
and increments the ERRNUM cell in COMMON. 
After phase 64 scans the E-text, it rewinds 
SYSUT4 and returns to phase 00. Phase 00 
uses the count in ERRNUM to write a message 
to SYSTERM giving the number of errors 
encountered for the compilation. Phase 64 
also sets a bit in COMMON to indicate 
whether phase 70 is required (see 
"Suppression of Ouput Listing" below). 



Suppression^ of Out pu t L ist ing 



If the SUPMAP (suppress map) option is in 
effect, no output is produced by phases 62 
and 64 if a D-level or E- level error 
message was generated by any phase. This 
is determined by testing the ERRSEV cell in 
COMMON. A value of 12 or greater means 
that at least one D-level or E-level 
message occurred. 

The ERRSEV cell was set by phases 2, 3, 
4, 50, and 51 every time they encountered 
or generated an element of E-text (see 
"E-text" in the chapter "Phase 51") « A 
test is made for this condition upon 
entering phase 62. If it occurs, a message 
is printed and the text is not processed 
unless SXREF or XREF is specified. 

If the SUPMAP condition occurs and 
neither SXREF or XREF was requested, phase 
62 terminates processing, calls phase 63, 
which does no processing and in turn calls 
phase 64, after phase 62 sets two bits in 
COMMON (bits 6 and 7 of the second byte of 
SWITCH). Bit 6 indicates that phase 70 is 
to be called, and bit 7 indicates to phase 
70 that E-text must be read from SYSUT4. 
If the TERM option was specified, phase 64 
scans the E-text on SYSUT4 and increments 
the ERRNUM cell in COMMON. After phase 64 
scans the E-text, it rewinds SYSUT4 and 
returns to phase 00. 

If SXREF or XREF was requested, text is 
processed by phases 62, 63, and 64 but the 
only output is REF-text and DEF-text (which 
phase 6A uses to produce the 
cross-reference listing) . The ERRTBL is 
also built by phase 64, or E-text is 
written on SYSUT3. A bit is set in COMMON 
(bit 6 or the second byte of SWITCH) , 
indicating to phase 6 A that phase 70 is 
required. If E-text was written on SYSUT3, 
bit 5 of the second byte of SWITCH is set 
to indicate that E-text must be read from 
SYSUT3 . 

Phases 62 and 64 do not write object 
text in execution-time sequence. Rather 
they instruct the linkage editor to reorder 
the text by assigning relative addresses. 
To do this, they allocate space for areas 
that will be written later, altering the 
LOCCTR (location counter) cell of COMMON to 
reflect the relative location at execution 
time of the area currently being processed. 



TASK GLOBAL TABLE STORAGE AL LOCATI ON 



When phase 62 receives control, the LOCCTR 
cell contains the relative address of the 
Task Global Table (TGT) in the load module. 
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LOCCTR was set by phases 22 and 21 , which 
added the length of the data area to that 
of the INIT1 routine. (These areas precede 
the TGT in the load module.) 

Routine TGTINT first does preliminary 
computations to determine the length of the 
entire TGT. If this length exceeds 4096 
bytes, one 4-byte OVERFLOW cell is 
allocated for each 4096- byte area after the 
first. Then this routine computes the 
locations of TGT fields after the OVERFLOU 
cells. 

Some fields of the TGT are constant in 
length; others are variable, depending on 
the requirements of the program being 
compiled. For most of the variable fields , 



there is a counter in COMMON used to 
compute its length. When the value has 
been used, the counter is set to the 
displacement of the current field in the 
TGT. Figure 48 lists these counters and 
the TGT fields to which they correspond. 
In a register called RW1, a counter is kept 
of the displacement of the current field in 
the TGT. 



Some of the counters in COMMON specify a 
number of bytes. Others specify a number 
of entries, where each entry requires two 
or four bytes. In the latter case, the 
value of the counter is multiplied by 2 or 
4 before it is used to compute 
displacements. 



, — - .,.. — T - — — ...... ._ li „ 1 ' , ... .-.,,, 

| | I I Multiplication | 
I Counter | Contents From Earlier Phases I TGT Field | Factor j 


| TSMAX {Number of bytes needed for arithmetic temporary | TEMP | 8 | 
I | storage. I STORAGE | I 


| TS2HAX 1 Number of bytes needed for nonarithmetic | TEMP | 1 | 
| | temporary storage. I STORAGE-2 j | 


j TS3MAX {Number of bytes of work area for aligning | TEMP | 1 | 
| | non-SYNCHRONIZED data items. I STORAGE- 3 | | 


f TS4MAX |Number of bytes of work area for table-handling | TEMP | 1 | 
f | verbs. I STORAGE-4 | | 


| BLLCTR | Number of base locators assigned to Linkage | BLL | 4 | 
I j Section. I | I 


j VLCCTR |N umber of variable-length cells (containing | VLC | 2 | 
J | current length of a variable-length field) | | | 


| INDEX1 |Number of index-names defined in INDEXED BY | INDEX | 4 | 
j j clause. I I I 


| SBLCTR | Number of secondary base locators (location of a| SBL | 4 | 
j j field variably located because it follows a | | j 
j j variable-length field). ( j j 


j BLCTR (Number of base locators assigned to files and | BL j 4 | 
J | Working-Storage. I II 


j SUBCTR (Number of subscript save cells. | SUBADR | 4 j 


| ONCTR {Number of ON control cells. I ONCTL | 4 | 


| PFMCTR JNumber of PERFORM control cells (for PERFORM X | PFMCTL | 4 | 
I \ TIMES) . I | | 
f * ' ' f 


|*The number of VNs in the program is passed to phase 62 in the VNCTR cell of COMMON, j 
j not the VNLOC cell. However, this value is moved into the VNLOC cell and all further | 
j TGT processing uses VNLOC rather than VNCTRa (The number of VNs in the program must j 
j also be known for PGT allocation to determine the size of the VN field in the PGT. | 
| This value is saved in VNCTR.) I 



Figure 48. Use of Counters in COMMON to Allocate Space in the TGT for Variable-length 
Fields (Part 1 of 2) 
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r — -. r — - „ ... ,,_,,.,, 1 — ... , ,„ 1 

I | I I Multiplication | 
| Counter | Contents From Earlier Phases J TGT Field f Factor | 


f PSVCTR [Number of PERFORM save cells. I PFMSAV | 4 | 
1 1 fl ■ 1 f 


t ! 1 1 1 

| VNLOC* | Number of variable procedure-names. | VN | 8 | 


| DECBCT |Number of DECBs. | DECBADR | 4 | 


| XSWCTR INumber of EXHIBIT switches. | XSASW | 1 | 


| XSACTR jNumber of bytes for EXHIBIT saved area. j XSA | 1 | 


i ■ i ■ i i i j 
| PARMAX |Area needed for parameter lists. | PARAM | 4 | 


| RPTSAV {Report Writer save area requirements. | REPORT | 4 | 
1 1 1 SAVE f | 

I - I ......... , , . § „ . „ i ,. - ■ ■ , L , i 


1 CKPCTR (Number of checkpoint requests. | CHECKPT | 4 J 
1 1 J CTR I | 


| SA2CTR |USE LABEL or USE ERROR procedure save area | SAVE ; 4 | 
| | requirements. I AREA-2 | | 


| SA3CTR IMaximum number of files specified in an OPEN | SAVE | 4 j 
| | statement. | AREA-3 1 1 


| AMICTR (Number of FIBs for VSAM files. | FIB | 4 | 



Figure 48. Use of Counters in COMMON to Allocate Space in the TGT for Variable-length 
Fields (Part 2 of 2) 



This is done in routine DSPLAC* which is 
called for each variable-length field. Two 
parameters are passed to this routine: the 
address of the counter in COMMON, and the 
number of bytes for each entry. From the 
number of bytes, DSPLAC also determines 
boundary alignments. DSPLAC places the 
value of RW1 (the displacement of the field 
in the TGT) into the counter, and adds the 
length of the field to RW1. 



If the PMAP, CLIST, or DMAP options are 
in effect, DSPLAC calls routine MAPLOC, 
which prints one line at a time. 



If the STATE/ FLOW, SYMDMP, or TEST 
option is in effect, the SWITCH cell, the 
CURRENT PRIORITY cell (initialized to zero 
only), the DEBUG TABLE PTR cell, and the 
DEBUG TABLE information in the TGT are set 
by phase 65. 



After the length of the entire TGT has 
been calculated, the value of RW1 (the 
length of the TGT) is added to the LOCCTR 
cell. The value of the LOCCTR cell is now 
the displacement of the PGT. 



OPTIMIZING STORAGE FOR THE PROGRAM GLOBAL 
TABLE 



The general function of this part of phase 
62 is to allocate space for the Program 
Global Table (PGT) in the same uay that TGT 
storage was allocated. Before this can be 
done, however, the required space must be 
determined for the literals, virtuals r and 
procedure- names that reside in this table 
at execution time. The routines that 
determine the lengths of these fields also 
optimize the contents of the fields by 
eliminating duplication. 



For optimizing, phase 62 reads 
Optimization A-text from SYSUT3 and merges 
its information with information from 
tables and counters generated by earlier 
phases. This information is used to 
perform the following functions: 



• Process virtual reference definitions 
for library subroutines to be called at 
execution time. 

• Build the VN priority (VNPTY) table. 

© Optimize and calculate storage 
requirements for literals, DISPLAY 
literals, and virtuals. 
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® Build the VNPNTBL, BLVNTBL, PNATBL, and 
GNATBL tables. 



Buil din g the V N Priority Ta ble 



VN definition elements are not used for 
optimization. They are included in the 
Optimization A-text for a segmented program 
because they are used to build a table 
(called VNPTY) which must be in storage for 
phase 62 and 63 processing. As an element 
is read, it is entered unchanged into this 
table. After the Optimization A-text data 
set has been closed, the VNPTY table is 
sorted in ascending order of priority 
number. 



Proc essing Pffs and GNs 



Phase 62 builds the VNPNTBL, BLVNTBL, 
PNATBL, and GNATBL tables for PN and GN 
processing for the PGT. The VNPNSORT 
routine builds the VNPNTBL table from the 
VN EQUATE PN or VN EQUATE GN elements of 
Optimization A-text. 

The GNVNRTN routine builds the BLVNTBL 
table from GN-VN PERFORM elements. 

The PGNARTN routine builds the PNATBL 
and GNATBL tables. These tables list the 
PNs and GNs for which address constant 
cells are reguired in the PGT. 



I Optimizing Literals and Proc essing DI SPLAY 
Literals 



The literal optimization routines are used 
to eliminate storage duplication in cases 
where the source programmer used the same 
literal more than once. Routine LTLRTN 
processes internal literals, and routine 
LTLDIS processes DISPLAY literals. These 
routines build three tables: the CONTBL 
and CONDIS (for regular and DISPLAY 
literals, respectively) tables contain one 
entry for each unique liberal, and the 
LTLTBL table contains an entry for each use 
of a literal. 

DISPLAY literals are entered into the 
CONDIS table. 

When a nonliteral literal definition is 
encountered, the CONTBL table is searched 
for an entry identical to the literal. (To 
be identical, two internal literals must 
meet the same boundary requirements as well 
as have the same value.) If no match is 



found, the new literal is entered into the 
CONTBL table. Any bytes skipped because of 
boundary alignment are filled with zeros. 
The displacement of this entry from the 
beginning of the table is placed in the 
LTLTBL table, with a bit set to indicate 
whether it is a CONTBL or CONDIS entry. If 
a match is found, only an LTLTBL entry is 
made. This LTLTBL entry is the 
displacement of the CONTBL entry that 
matched the literal being processed. 

Figure 49 shows an example of these 
tables after all Optimization A-text has 
been processed. The Optimization A-text 
contained literal definition elements for 
the following literals: 

8, 3 (DISPLAY) , 3, 9, Y (DISPLAY) , 8 

After the Optimization A-text data set 
is closed, the Literal Pool is written on 
SYSPRINT using the contents of the CONTBL 
and CONDIS tables, if the PMAP, CLIST, or 
DMAP options are in effect. The Literal 
Pool is also written on SYSPUNCH and 
SYSLIN, as needed. 



CONTBL 



r 



Literals | 8 
f 



i 



CONDIS 



Write text, 
increment 
RW1, and 
release 
tables. 



DISPLAY | 3 
Literals J 

I Y 
i 



LTLTBL 



|0 (CONTBL displacement of 8) | 

I— ■ 1 

|0 (CONDIS displacement of 3) { 

h — \i 

|1 (CONTBL displacement of 3) |! 

j_ |\Add PGT 

|2 (CONTBL displacement of 9) |f displace 

j A ments and 

|5 (CONDIS displacement of Y)|\save 

j 1 ftable 

|0 (CONTBL displacement of 8) | 
i . 1 , 



I 

Note: For this example, the values in 
LTLTBL assume that each CONTBL entry is 
one byte long and each CONDIS entry is 
five bytes long. 

L_- 

Figure 49. CONTBL, CONDIS, and LTLTBL 
Tables after Processing 
Literals 
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Optimizing Virtual s 



The virtual optimization routine (VIRRTN) 
is used to eliminate storage duplication in 
cases where the same EBCDIC name of a 
called program is referred to in more than 
one CALL statement or in more than one call 
to a COBOL library object- time subroutine. 
The logic of this processing is similar to 
that of literal optimization. Two tables 
are built: the CVIRTB table contains one 
entry for each unique virtual, and the 
VIRPTR table contains one entry for each 
reference to a virtual. 

When a virtual definition is 
encountered, the CVIRTB table is searched 
for an identical entry. If none is found, 
the new virtual is entered in the CVIRTB 
table. Into the VIRPTR table is entered 
the displacement of this virtual from the 
beginning of the CVIRTB table. If a match 
is found, only a VIRPTR entry is made. 

This VIRPTR entry contains the displacement 
in the CVIRTB table of the entry that 
matched the virtual being processed. 

Figure 50 shows the contents of these 
tables after processing Optimization A-text 
for a program containing the following 
virtuals: 

CVIRT1, CVIRT2, CVIRT3, CVIRTl, CVIRT2. 



ALLOCATING STORAGE FOR, THE PROGRAM GLOBAL 
TABLE 



CALL Virtuals 



CVIRTB 



CVIRT1 



CVIRT2 



CVIRT3 



Write text, 
increment 
RW1, and 
release 
tables. 



PGT (CVIRTB) Disp lac ements 
VIRPTR 



(Disp. of I 

CVIRT1) | 

_ -l 

8 (Disp. of | 
CVIRT2) | 



H 



16 (Disp. of | \Save 
CVIRT3K: .I 

j| 

(Disp. of | 

CVIRT1) | 

4 

8 (Disp. of | 
CVIRT2) | 

, . i 



Note: Each CVIRTB entry is eight bytes 

long. 

i — ■ 

Figure 50. CVIRTB and >VIRPTR Tables after 
Processing Virtuals 



When all Optimization A-text has been read, 
storage is allocated for the PGT. Entries 
for the External Symbol Dictionary and 
object text are generated for virtuals and 
literals. Register RW1 is used throughout 
PGT allocation to hold the displacement of 
the field currently being processed. 
Counters in COMMON are set to the 
displacements of their corresponding PGT 
fields from the beginning of the PGT. 

If the PMAP, CLIST, or DMA P.- options are 
in effect, the format of the PGT is written 
on SYSPRINT using routine MAPLOC. 



DEBUG LINKAGE AREA Allocation 



If the SYMDMP option is in effect, 12 bytes 
are allocated for the DEBUG LINKAGE AREA. 
Otherwise, no space is allocated for the 
field in the PGT. 



OVERFLOW Allocation 



Preliminary calculations are made to 
determine whether the size of the PGT 
exceeds 4096 bytes. If it does, one 4-byte 
OVERFLOW cell is required for each 
4096-byte area after the first. Since 
OVERFLOW cell allocation occurs before the 
first reading of Procedure A-text in this 
phase, phase 62 cannot yet determine the 
number of PROCEDURE BLOCK cells that are 
required in the PGT. Therefore, it 
allocates one additional OVERFLOW cell to 
allow for the possibility that allocation 
of the PROCEDURE BLOCK cells may cause the 
PGT to exceed the final 4096-byte area that 
has already been allocated. 
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VIRPTR 



After the OVERFLOW CELLS field of the PGT 
has been calculated, the VIRTUAL field is 
processed. Using the CVIRTB table, an 
External Symbol Dictionary entry (ESD-text 
type 2) is written for each virtual unless 
the DYNAM or the RESIDENT option is in 
effect. (If the RESIDENT option is in 
effect, no ESD or RLD item is written for a 
library subroutine; if the DYNAM option is 
in effect, no ESD or RLD item is written 
for a library subroutine or a user 
subprogram,) Object text is also written 
and entries are made in the RLDTBL table 
for subsequent writing of the Relocation 
Dictionary. 

The VIRCTR cell of COMMON is set to the 
displacement of the VIRTUAL field from the 
beginning of the PGT. (This value is 
unless OVERFLOW cells have been allocated.) 



1 *+0 



To determine the length o 
field, four bytes are allowe 
entry in the CVIRTB table, 
length is added to register 
DYNAM and/or RESIDENT option 
the CVIRTB table is used to 
PGT the EBCDIC names of thos 
are to be dynamically loaded 
table is kept for use during 
A- text processing, when its 
(EBCDIC names) will be used 
comments for CALL statements 



f the VIRTUAL 
d for each 
The calculated 
RW1. If the 

is in effect, 
enter in the 
e routines that 
The CVIRTB 

Procedure 
contents 
to generate 



| *+4 



| *+8 



| *+0 



| *+4 



I " " I 

I I 
I ^Indicates the displacement of the | 
| VIRTUAL field in the PGT (the value is 0| 
| if no overflow cells are present) . | 
I _ . . : j 

I Note: Each VIRTUAL in the PGT is four | 
I bytes long. j 

l_ : — ; — __~ — , : ; ', ; — , -j 

Figure 51. VIRPTR Table after VIRTUAL 
Allocation 



PN Allocation 



After the VIRTUAL field or the VIRTUAL 
EBCDIC NAMES field, if allocated, has been 
processed, the value in register ■ RW1 is the 
displacement of the PN field in the PGT. 
This value is saved in the PNCTR cell in 
COMMON. 



The entries in the VIRPTR table are 
changed to contain displacements in the 
VIRTUAL field (see the example in Figure 
51. The table is saved for subsequent use 
during Procedure A-text and Procedure 
A1-text processing. 



VIRTUAL EBCDIC NAMES Allocation 



Only those PNs that follow TO PROCEED TO 
in an ALTER statement and the section-names 
defined in a USE statement in the 
Declaratives Section require PN cells in 
the PGT. Phase 51 sets the RPNCNTR counter 
in COMMON to the number of cells required. 
Phase 62 uses the RPNCNTR counter to 
allocate 4 bytes for each PN. The total 
length of the PN field is then added to 
register RW1 . 



If the DYNAM or RESIDENT option is in 
effect, an 8-byte cell for each library 
subroutine name is allocated in the PGT; in 
addition, if the DYNAM option is in effect, 
an 8-byte cell for each user subprogram 
name is allocated in the PGT. If neither 
option is in effect, this field does not 
exist. . 

A count of the EBCDIC names to be placed 
in the PGT is kept in the BCDCTR cell in 
COMMON. This count is multiplied by 8 to 
reserve space for the list of names. After 
VIRTUAL allocation, register RW1 contained 
the displacement of the VIRTUAL EBCDIC 
NAMES field; the displacement is saved in 
the BCDISP cell in COMMON and register RW1 
is incremented to reflect the allocated 
bytes for the VIRTUAL EBCDIC NAMES cells. 



GN Allocation 



After the PN field has been processed, the 
value in register RW1 is the displacement 
of the GN field in the PGT. This value is 
saved in the GNCTR cell in COMMON. 

Only those GNs that are used in 
instructions for an AT END phrase or an 
INVALID KEY option require GN cells in the 
PGT. Phase 51 sets the RGNCTR counter in 
COMMON to the number of cells required. 
Phase 62 uses the RGNCTR counter to 
allocate 4 bytes for each GN. The total 
length of the GN field is then added to 
register RW1 . 



Phase 62 167 



Licensed Material • Property of IBM 



DCBADR Allocation 



The DCBCTR cell in COMMON is used to 
determine the amount of space required: 4 
bytes are reserved for each DCB in the 
program. The DCBCTR cell is set to the 
displacement of the DCBADR field (the value 
of register RW1) , and RW1 is then 
incremented to reflect the allocated bytes. 



VNI Allocation 



The VNCTR cell of COMMON was used by 
earlier phases to count the number of 
variable procedure-names in the program, 
| Eight bytes are allocated for every VN. 
The displacement of the VNI field (the 
value of RW1) is placed in the VNILOC cell, 
and the number of bytes allocated is added 
to register RW1. 



I 


LTLTBL 






— i 


1 r~ 


*+o 


i 




I l— 


**+o 






1 r^ 


*+1 






1 L- 


* + 2 






• r 


**+5 






1 L - 


*+0 


i 













| ^Displacement of LITERAL field from 
J beginning of the PGT. 

(♦♦Displacement of DISPLAY LITERAL field 
| from beginning of the PGT. 


If 



Figure 52. LTLTBL Table after Literal 
Allocation 



PROCEDURE BLOCK Allocation 



LITERAL Allocation 



The displacement of the LITERAL field in 
the PGT (the current value of register RW1) 
is placed in the LTLCTR cell of COMMON. 
The length and contents of the LITERAL 
field will be identical to the CONTBL and 
CONDIS tables. 



For each LTLTBL entry that refers to 
CONTBL, the value in the LTLTBL table is 
replaced by the displacement of the 
specific literal from the beginning of the 
PGT. This displacement is calculated by 
adding the value already in the LTLTBL 
entry (which is the CONTBL displacement of 
the literal) to the value of RW1 . An 
example is shown in Figure 52. 



Phase 62 does not allocate storage for the 
PROCEDURE BLOCK field until after it reads 
and processes Procedure A-text. It reads 
Procedure A-text to determine the number of 
blocks, containing approximately 4096 bytes 
of storage, that are required for the 
optimized Procedure Division (see 
"Optimizing and Allocating Storage for the 
Procedure Division" later in this chapter) . 

After the allocation of storage for the 
other fields of the PGT, the value in 
register RW1 is the displacement of the 
PROCEDURE BLOCK field in the PGT. This 
value is saved in the PRBLDISP cell in 
COMMON. After Procedure A-text processing, 
phase 62, using the PROCBL counter, 
allocates one 4-byte cell for each 
Procedure block. 



OPTIMIZING REGISTER ASSIGNMENTS 



The same processing occurs for LTLTBL 
entries that refer to CONDIS, except that 
the increment includes the length of the 
CONTBL table. This occurs because DISPLAY 
literals are placed after internal literals 
in the PGT, as illustrated by Figure 38. 
The LTLTBL table is saved for use during 
Procedure A-text processing. The lengths 
of the CONTBL and CONDIS tables are used to 
increment RW1. The contents of the tables 
are used to write object text, and the 
tables are released. 



Seven registers are used by the compiler to 
address Data Division items or OVERFLOW 
cells in the machine language program. 
Registers 6 through 10 are assigned 
permanently, that is, for the entire object 
program; registers 14 and 15 are assigned 
on a temporary basis, that is, for single 
instructions or for short sections of code 
only. Phase 62 assigns registers 6 through 
9 before Procedure A-text is read, and 
register 10 after Procedure A-text is read. 
Use of registers 14 and 15 is determined as 
Procedure A-text is processed. 
Optimization takes place for both permanent 
and temporary register assignments. 
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PERMANENT REGISTER ASSIGNMENTS 



Phase 62 builds the BLASGTBL table for 
permanent register assignments. Before 
Procedure A-text is read, the REGMV1 
routine assigns the OVERFLOW cells of the 
TGT and the PGT to permanent registers, 
starting with register 6, except for the 
OVERFLOW CELL, Register 12 points to the 
PGT permanent register. Next, the BLSRCH 
routine searches the BLDSTBL table, built 
by phases 50 and 51, to determine the most 
frequently used base locator. That base 
locator is assigned to the next unassigned 
register. The process is repeated until 
each of registers 6 through 9 has been 
assigned. After Procedure A-text has been 
read, register 10 is assigned to the next 
most frequently used base locator if it is 
not needed for the additional OVERFLOW cell 
of the PGT. 



registers 14 and 15 by making entries in 
the DRPLTBL table. It builds the DRPTBL 
table from the subsequent base locators 
referred to until a condition is met which 
makes resolution of register assignment 
possible. These conditions are as follows: 



© A reference to a base locator whose 
previous assignment to a register is 
still in effect. 

© A PN, a GN* or the entry point of a new 
program segment. 

© The base locator that will be 

permanently assigned to register 10 if 
that register is not needed for the 
extra OVERFLOW cell of the PGT. 

© A RESERVE, DESTROY, FREE, or BLCHNG 
element. 



TEMPORARY REGISTER ASSIGNMENTS 



Registers 14 and 15 are assigned to base 
locators for single instructions or for 
short blocks of object code only. While 
Procedure A-text is being read, the ENTDRP 
and ENTDRPL routines build the DRPTBL and 
DRPLTBL tables, respectively, to optimize 
the assignment of these registers. 

Phase 62 optimizes the assignment of 
temporary registers by avoiding unnecessary 
repetition of load instructions. To do 
this, it assigns the first two unique base 
locators referred to in Procedure A-text to 



Figure 53 exemplifies the optimizing 
process for base locator assignments to 
register 14 and 15. Phase 62 builds the 
DRPLTBL table for address increment 
elements as well as for address references. 
DRPLTBL table processing for address 
increments is done only if the increment is 
greater than 4095, in which case an 
additional generated instruction is needed 
to load the address of the data-name plus 
the address increment, which is at least 
4096 bytes, into temporary register 14 or 
15. Phase 62 adds 4 bytes to ACCUMCTR for 
each such LA instruction needed. The 
DRPLTBL entry for an address increment 
indicates to phase 63 which temporary 
register to use in the RX field of the LA 
instruction being generated. 
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© 



BL=5***- 



-> R14* 



I 



10) | BL=6 



I 



12) | 



© 



13) | 



ia; i 
i 



BL-10 
BL=7 
BL=10 
BL=12 



-> 7 



-> 12 



— > R14* 
~> R15* 
— > R11* 
— > R15** 
— > R14* 



15) f Entry point (referenced PN or GN definition or new segment) 



^Indicates that a load instruction is generated for this assignment by phase 63. 
^Indicates that the BL is already loaded and that no load instruction is generated by 
phase 63 . 
***BL=5 is the base locator that will be loaded into register 10 if the additional 
OVERFLOW CELL for the PGT is not required. 



Exp lanation : 



) r are 



The first two base locators which are read, BL=6 and BL=7 (steps \lj and \2J 
entered immediately into the DRPLTBL table. This indicates to phase 63 tna*t 
instructions are to be generated to load these base locators into registers 14 and 15, 
respectively. 



The next two base locators that are read, BL=8 a 
entered into the DRPTBL table for later assignment 
assignment to the DRPLTBL table. 



nd BL=10 (steps Qu and (uj) , 
to the DRPTBL table for later 



Since the next base^iocator, BL=6, has already been assigned to register 14, it is 
assigned again (step (5J) to register 14 in the DRPLTBL table and a flag is set to 
indicate that no load instruction is necessary. 

BL=8 and BL=1jl are then assigned to register 15 (step ($)) • 

BL=10 (step Csj)' is assigned to register 15 and a flag is set to indicate that no 
load instruction's necessary. ^v ^-^ 

BL=11 and BL=12 are entered into the DRPTBL (steps \1J and (V)) • 

Since BL=5 is to be loaded into register 10 if it becomes available after Procedure 
A-text is read, it is conditionally assigned to register 14 and BL=11 and BL=12 are 
also assigned to register 14 (step (9j) • 



The entire process is essentially repeated Lsteps \[0j through (14^) until the entry 
point of a procedure or segment is met (step nS) ) where the process is initiated 

artflin ^-— ^ 



again. 



Figure 53. Optimizing Assignment of Registers 14 and 15 
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OPTIMIZING AND ALLOCATING ST ORAGE FOR TH E 
PROCEDURE DIVISION 



Whenever a PN or GN is referred to in an 
instruction, a check is made to determine 
whether the address of the Procedure block 
that contains the PN or GN has already been 
loaded into register 11. If it has not 
been loaded, then an instruction is 
generated to load the address of the 
Procedure block into register 11. 



As phase 62 reads Procedure A-text, it 
determines the Procedure block number for 
each PN and GN and builds the PNLABTBL and 
GNLABTBL tables. These tables are passed 
to phase 63, which generates the actual 
instructions necessary for establishing 
addressability. 

To build the PNLABTBL and GNLABTBL 
tables phase 62 uses a counter, called 
ACCUMCTR, to generate displacements within 
Procedure blocks. This counter is 
incremented with the length of each 
instruction occurring in the completed 
object program. Phase 6 2 uses ACCOMCTR to 
determine when the displacement of the 
definition of a GN or PN from the beginning 
of the Procedure block exceeds 4095 bytes. 
When the displacement is greater than 4095 
bytes, a new Procedure block is begun. 

Phase 62 also builds the PNFWDBTB and 
GNFWDBTB tables for all PNs and GNs that 
are referred to prior to their definition 
point. Since it cannot be determined 
whether the reference and the definition 
occur within the same Procedure block, it 
is not possible to determine whether the 
Procedure block address of the definition 
is already loaded into register 11 at the 
point where the reference is made to it. 
The forward branch tables (PNFWDBTB and 
GNFWDBTB) are used to accumulate the number 
of forward references to PNs and GNs, 
respectively, which may or may not be 
defined in a different Procedure block. As 
the definition point for a PN or GN that 
has been entered into the PNFWDBTB or 
GNFWDBTB table is encountered, the counter 
for that PN or GN is set to zero. 



Since references to PNs and GNs that 
have not yet been defined may entail an 
additional instruction to load the 
Procedure block address of a different 
Procedure block, the number of bytes 
represented by the counters in the PNFWDBTB 
and GNFWDBTB tables must be added to the 
displacement in ACCUMCTR to determine the 
current length of the Procedure block. 



Building the PNLABTBL and GNLABTBL Tables 



Phase 62 sets a counter, called PROCBL, for 
use in building the PNLABTBL and GNLABTBL 
tables. PROCBL is incremented for each 
procedure block. The value contained in 
PROCBL is the Procedure block number for 
the current block of code. Using PROCBL, 
the DEFLD11 routine enters the Procedure 
block number of each referenced PN and GN 
definition in the PNLABTBL and GNLABTBL 
tables for use by phase 63. 

The NOBLST routine uses the PNCTR and 
GNCTR cells in COMMON to determine the 
number of PN entries and GN entries, 
respectively, that are required in the 
PNLABTBL and GNLABTBL tables. 



Incrementing the ACCUMCTR C ounter 



As phase 62 reads Procedure A-text, it 
increments ACCUMCTR by the length of each 
machine language instruction that is part 
of the completed object program. Since the 
optimizer phases of the compiler use 
Procedure block addresses to address PNs 
and GNs, these phases eliminate and change 
some of the instructions in Procedure 
A-text. Phase 62, therefore, determines 
which instructions are to be eliminated or 
changed during the optimization process, 
and then increments ACCUMCTR accordingly. 
To increment ACCUMCTR, phase 62 uses the 
codes listed in Figure 54, Procedure 
A-text, the PNLABTBL, GNLABTBL, PNFWDBTB, 
and GNFWDBTB tables, and the PROCBL 
counter. 
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Code 



Meaning/Procedure- Name 
Definition 



Action Taken By 



Phase 62 



Phase 63 



Phase 64 



C001 



Load instruction not 
followed by branch in- 
struction. 



Procedure- name was 
defined in same 
Procedure block. 



Add 4 to ACCUMCTR. 



Set C001 switch; 
replace L instruc- 
tion with LA in- 
struction. Add 
Procedure base 
register element. 2 
Add 4 to counters. 
Do not rewrite 
C001, 



Fill in displace- 
ment using PNLBDTBL 
or GNLBDTBL table 
and Procedure base 
register element. 2 



Procedure- name was 
defined in differ- 
ent Procedure 
block. 



Add 8 to ACCUMCTR. 



Set C001 switch; 
generate: L R11, 
Procedure block 
number element. 3 
Generate LA in- 
struction. 
Add Procedure base 
register element. 2 
Add 8 to counters. 
Do not rewrite 
COOL 



Fill in displace- 
ment of Procedure 
block in PGT using 
Procedure block 
number element. 2 
Fill in displace- 
ment of procedure- 
name using PNLBDTBL 
or GNLBDTBL table 
and Procedure base 
register element. 2 



Procedure-name is 
not yet defined 
(forward 
reference) . 



Enter procedure- 
name in PNFWDBTB or 
GNFWDBTB table. 
Resolve procedure- 
name definition 
status by end of 
Procedure block. 



Notes : 
iThese Phase 50 optimization information elements (COxx) are created by phase 50 from 
Phase 40 optimization information elements (43xx) . 



2 Procedure Base Register Element: 
Bytes ( 



2-3 



J 

| C8 = PN 


i " " '■*- - 1" " 

1 1 




1 


| CC = GN 


| Register number ( 


PN/GN number 


1 


i-. .. -. ..,., - 


J — L - 




j 



^Procedure Block Number Element: 
Bytes 



I 



C4 



| Block number 
.j 



Figure 54. Processing for Optimization Information Elements (Part 1 of 3) 
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1 "J 1 






Action Taken By 


■i 

1 










i 


|Code| Definition Status | ] 


i 
Phase 62 


Phase 63 


I 

Phase 64 | 


|C002|Branch-in point. |Add 4 


to 


ACCUMCTR. i 


Indicate that Pro- 




| | (Addressability for | 






cedure block 




j | Procedure block is | 






address is to be 




| 1 1 uncertain.) J 






loaded at next re- 
ference to PN or 
GN. Do not rewrite 
C002. 




|C003|An address constant is | Add 4 


to 


ACCUMCTR. 


Write Procedure A1- 


Process PN or GN | 


j | to be used for this | 






text element iden- 


reference as in | 


1 | element; PGT to con- | 






tical to Procedure 


phase 6. | 


j jtain a PN cell or GN | 






A-text element. 




j |cell. | 






Add 4 to counters. 
Do not rewrite 
C003. 


fl 


I C004| PERFORM exit. {Find 


all 


entries in 


Do not rewrite 


-f 


| | fthe BLVNTBL for the | 


C004. 




| | |VN wh 


ose 


reference 






| | | folio 


WS " 


this ele- 






I | jment. 


Enter 






I { | current block num- 






|| | ber in these 






1 I Itable 


entries. 




1 9 


|C005| Return point from a | Add 4 


to 


ACCUMCTR. 


Search BLVNTBL to 


1 T 

Fill in displace- | 


| {performed procedure | 






determine if the 


ment of Procedure 1 


I | (GN definition) . | 






EXIT from the per- 


block in PGT, using | 


{ | Element is followed by | 






formed procedure is 


Procedure block | 


| ja GN definition | 






in the same Proce- 


number element. 3 | 


| | element. J 






dure block as the 
return point. 
Rewrite GN defini- 
tion element with- 
out C005. If 
PERFORM Exit and 
return point are in 
same block, rewrite 
element without 
C005. 

If they are not in 
same block, indi- 
cate that register 
11 contains Proce- 
dure block address 
of PERFORM exit. 
Rewrite element 
without C005. 


1 


• LU1 i. \ ,._„„ ... 






L 


s_ fl 


JNotes^: 








L i 


j iThese Phase 50 optimization information elemei 


its (COxx) are creat< 


3d by phase 50 from | 


j Phase 4 optimization information elements (433 


ex) . 




j 3 Procedure Block Number Element: 










j Bytes 







1 




f *■ 

1 1 

j t 


C4 


i 

| Bl( 

, . . . - , i. 


1 

>ck number | 

.... „ - i 





Figure 54* Processing for Optimization Information Elements 1 (Part 2 of 3) 
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Code 



Meaning/Pr oced ure- Na me f-~ 
Definition Status | 



Action Taken By 



Phase 62 



Phase 63 



Phase 64 



C006 



Load instruction 
followed by an uncon- 
ditional branch. 



Procedure- name 
defined in same 
Procedure blcok. 



[Add 4 to ACCOMCTR 
| for RX-type branch 
(instruction to be 
| generated. 



Turn on LOADSW | 

switch. J 

Do not rewrite | 

C006. | 



Procedure- name 
defined in dif- 
ferent procedure 
block 



Add 8 to ACCOMCTR 
for load of regis- 
ter 11 and RX-type 
branch instruction 
to be generated. 



Turn on LOADSW 

switch. 

Do not rewrite 

C006. 



Fill in displace- 
ment of Procedure 
blocks in PGT, 
using Procedure 
block number 
element. 3 



Procedure-name n 
yet defined. 



ot | Enter procedure- 
jname in PNFWDBTB 
| or GNFWDBTB; 
j resolve procedure- 
jname definition 
| status by end of 
(Procedure block. 



Turn on LOADSW 

switch. 

Do not rewrite 

C006. 



Write RX-type 
branch instruction 
following the C006 
load instruction. 



Notes: 

i These Phase 50 optimiza 
Phase 4 optimization in 



tion information elements (COxx) are created by phase 50 from 
formation elements (43xx) . 



3 Procedure Block Number Element: 



Bytes 



C4 



| Block number 



Figure 54. Processing for Optimization Information Elements 1 (Part 3 of 3) 



PROCESSING FOR BRANCH INSTRUCTIONS : The 
PROCBL counter contains the number of 
Procedure blocks that are required for the 
Procedure Division. Each time that 
ACCUMCTR and the information in the 
PNFWDBTB and GNFWDBTB tables indicate that 
a PN or GN definition is at a location 
greater than 4095 bytes from the start of 
the Procedure block, block transition takes 
place. The PROCBL counter is incremented, 
and ACCOMCTR is set to zero. 



When a branch is 
within the Procedure 
already is loaded in 
addition of 4 bytes 
the RX-type branch i 
branch is taken to a 
Procedure block is n 
register 11, 8 bytes 
ACCOMCTR for the loa 
block address and th 
instruction. 



taken to a PN or GN 
block whose address 

to register 11, an 

is made to ACCOMCTR for 

nstruction. When a 
PN or GN whose 

ot already loaded into 
are added to the 

d of the Procedure 

e RX-type branch 



Each time that the ENTPT01 routine 
processes a PN or GN definition, it 
determines whether the value in ACCOMCTR 
plus the number of bytes necessary to 
branch to the procedure- names listed in the 
PNFWDBTB or GNFWDBTB table is greater than 
4095 bytes. If it is not greater, then 
Procedure A-text processing continues. If 
it is, then the ENTPT01 routine determines 
whether the definition being processed has 
a count of forward references in the 
PNFWDBTB or GNFWDBTB table. If it does 
not, a new Procedure block begins at this 
definition point. If a count is found, 
however, the number of bytes represented by 
the count is compared with the number of 
bytes in ACCOMCTR minus 4096. If the count 
value is low or equal, a new Procedure 
block begins at this definition point. If 
it is high, the count field is set to zeros 
and this definition point remains within 
the current block. Phase 62 then makes new 
calculations to determine the size of the 
Procedure block. 
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PHASE 63 



Phase 63 (IKFCBL63) is the second of the 
three phases that produce the machine 
language program. Its principal function 
is to produce Procedure A1-text, which is 
written on SYSUT2. Phase 63 produces the 
text according to the information supplied 
from phase 62, Upon completion, the text 
is passed to phase 64 where it is used to 
tfrite the machine language program. Phase 
63 also produces Debug -text on SYSUT4 if 
the STATE or SYMDMP option is in effect. 

Phase 63 produces Procedure A1-text from 
Procedure A-text by: 

o Inserting information for addressing 
PNs and GNs and Procedure blocks in 
instructions, such as displacements of 
PNs and GNs within a given block and 
the Procedure block number to be used. 

© Generating all remaining instructions 
for the object program except the load 
instruction elements required when a 
data-name is only temporarily 
addressable. 



Procedure A1-text is described in 
"Section 5. Data Areas." 



CONTROL ROUTINE 



Routine GET serves as the control routine 
for phase 63 processing of Procedure A-text 
elements. It reads each element of 
Procedure A-text and branches to one of 
several routines for specific processing of 
each type of element. 

For Phase 50 and 51 optimization 
information (CO) elements, macro-type 
instruction (44) elements, and operation 
code (48) elements, it branches to routines 
CO, MACRO and FOURTY8, respectively. 

For each of the other elements the GET 
routine uses the GETBTBL table to branch to 
the proper routine for specific processing 
of that element. 



o Reading the program in ascending order 
and writing Procedure A1-text in this 
order with the root segment first. 

The operations of Phase 6 3 are described 
in Diagram 6, located with the foldouts at 
the back of this publication. 



INITIALIZATION OF PHASE 63 



PROCESSING PROGRAMS WITH ONE PROCEDURE 
BLOCK 



In programs that do not exceed one 
Procedure block in length, and that have no 
Report Writer or Declaratives Section, the 
Procedure block address is loaded into 
register 11 only when the ENTRY macro- type 
instruction (4404) element and/or START 
macro-type instruction (4420) element of 
Procedure A-text is read. 



Routine PHAS63 performs the initialization 
process for phase 63. It saves LOCCTR for 
restoration at end of file, relocates all 
of the TIB addresses, and primes all the 
new tables used by the phase except for the 
QGNTBL, which is primed in routine QBEGIN 
if there are Q-Routines. If the program is 
segmented, a call to phase is issued to 
request a POINT to the first section of 
text on SYSUT1 . Otherwise, the 
initialization routine requests phase 00 to 
read the first Procedure A-text buffer from 
SYSUT1. 



CONSTRUCTING PROCEDURE A1-TEXT 



Phase 63 reads Procedure A-text from SYSUT1 
and writes Procedure A1-text on SYSUT2. 



PROCESSING FOR BRANCH INSTRUCTIONS 



The BRANCH routine processes the branch 
element that follows the PN or GN 
reference. It uses the SAVETBL and either 
the PNLABEL or GNLABTBL table to determine 
whether the referenced PN or GN is defined 
in the Procedure block currently loaded in 
register 11. If the PN or GN is defined 
outside of the Procedure block, a Procedure 
A1-text element is generated to load 
register 11 with the address of the 
Procedure block that does contain the PN or 
GN definition. The BRANCH routine then 
generates an RX-type Procedure A1-text 
branch element instead of the RR-type 
Procedure-A text element so that an 
instruction will be generated to branch to 
the PN or GN. 
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If the PN or GN is defined within the 
Procedure block that is currently loaded in 
register 11, the routine merely changes the 
RR-type branch instruction to an RX-type 
branch instruction. The register number in 
the original instruction is changed to zero 
since register 1 1 is inserted in the branch 
instruction by phase 64. The PN (C8) or GN 
(CC) number element from the SAVETBL work 
area follows the instruction. 



PROCESSING FOR OPTIMIZATION INFORMATION 
ELEMENTS 7^001-0007) 



Phase 63 processing for optimization 
information elements is described in Figure 
54 in the chapter "Phase 62." 



PROCESSING FOR RPT-ORIGIN (D4) ELEMENT 



An RPT-ORIGIN (D4) element indicates that 
an RLDTBL table entry is to be made for 
this location in the program. The location 
is the point of definition (or the point of 
definition plus 4 bytes) of the GN for a 
REPORT-ORIGIN verb. Routine D4 creates the 
RLDTBL entry for the location, saving the 
value contained in LOCCTR. It sets the 
high-order byte to hexadecimal M0' to 
indicate the purpose of this entry to phase 
64. The entry is used to generate text 
cards at the proper location; but phase 64 
does not produce an RLD card for this type 
of entry. When the ORIGIN macro-type 
instruction (4438) element is read later, 
LOCCTR is set by phase 64 to the value of 
LOCCTR at the time of the RPT-ORIGIN 
element. 



PROCESSING FOR ADDRESS REFERENCE (78) 
ELEMENTS 



Address reference (78) elements are 
generated to address data areas. The data 
areas are addressed by means of a 
displacement from a base locator. 

When an Address reference (78) element 
is found in Procedure A- text, routine GET 
branches to the ADREF routine for 
processing. 



PROCESSING FOR ADDRESS INCREMENT (80) 
ELEMENTS 



When Address increment (80) elements occur, 
they follow Address reference (78) elements 



and indicate that an additional 
displacement value is to be added to the 
value indicated by the Address reference 
(78) element to address a data-name. 



When routine GET finds 
increment (80) element in 
it branches to routine ADI 
determines whether the sum 
displacement and the value 
Address reference (78) ele 
4096 bytes. If the sum is 
ADINCR routine adds a byte 
to the Address reference ( 
writes the element in Proc 

If the ADINCR routine d 
the sura is 409 6 bytes or g 
byte containing X'OE 1 or X 
indicates to phase 64 that 
[that is, LA 14,4095 (R) or 
are to be generated using 
14 or register 15, respect 
Address increment (80) ele 
the element in Procedure A 
and ACMCTR are incremented 
multiple of 4095 bytes in 
displacement. 



an Address 
Procedure A~text, 
NCR which 

of the 

contained in the 
ment is less than 

less, then the 

containing X'OO' 
78) element and 
edure A1-text. 

etermines that 
reater, it adds a 
•OF 1 , which 
LA instructions 
LA 15,4095(R) ] 
either register 
ively, to the 
ment and writes 
1-text. LOCCTR 

by 4 for each 
the added 



PROCESSING FOR INCREMENTED ADDRESS (A4) 
ELEMENTS 



The Incremented address (A4) element in 
Procedure A-text is functionally a 
combination of the Address reference (78) 
and Address increment (80) elements and is 
treated as such by phase 63. The ADREF 
routine (if no load is required, that is, 
if the data-name is already in a register) 
changes the element into a Base 
displacement data-name element (see 
"Processing for Address Reference (78) 
Elements" in this chapter) . If the ADREF 
routine changes the element, the increment 
portion of the Incremented address (A4) 
element is written out as an Address 
increment (80) element with the high-order 
bit of the low-order byte set to 1 to 
indicate that the increment has already 
been added. 



CONSTRUCTING DEBUG-TEXT 



If the SYMDMP or the STATE option is in 
effect. Procedure A-text is used to create 
Debug-text which is written on SYS0T4. 
Debug-text elements are written by the SYS2 
routine. For all Card number (2C) elements 
encountered, CARDLOC (10) elements are 
written that contain the card number and 
its displacement within the object module. 
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Debug-text also contains: 

o Discontinuity (40) elements that are 
created when phase 63 combines two 
sections of equal priority that have 
discontinuous card numbers because of 
an intervening section or sections of 
different priority. 

o ENDSEG (20) elements that identify the 
last byte of each segment, or the last 
byte of Procedure Division code if the 
program is not segmented. 

Debug-text is used by phase 65 to 
produce debugging information for the COBOL 
library debugging subroutines. 



COUNTERS OSED IN PHASE 63 



While producing Procedure A1-text, phase 63 
uses two counters: LOCCTR in COMMON and 
ACMCTR, LOCCTR is used to generate the 
relative displacements of each instruction 
listed and enter target addresses in the 
RLDTBL table. For details, see "Making 
Entries in the RLDTBL Table" in this 
chapter. 



o Produce RLD-text for the linkage editor 

An RLD entry contains the relative address 
within the object module for the entry 
item. 



or all code that 
completed machine 
sed to generate 
d GN definitions 
dure block, 
uild the PNLBDTBL 
is purpose, 
to generate the 



ACMCTR is incremented f 
is to be contained in the 
language program. It is u 
the displacements of PN an 
within each separate Proce 
Routines PNDEF and GNDEF b 
and GNLBDTBL tables for th 
Phase 64 uses these tables 
proper displacements. 



BUILDING THE QGNTBL TABLE 



The QGNTBL table lists the Q-Routine GNs 
and their corresponding Procedure block 
numbers. These are needed by phase 64 to 
initialize Q-Routines during INIT3 
processing. The table is built from the 
GNLABTBL by phase 63 at each GN definition 
(34) element following the Q-BEGIN 
macro-type instruction (4440) element. 



MAKING ENTRIES IN THE .RLDTBL TABLE 

RLD entries are made to: 
© Resolve VN addresses 
o Resolve the GNs for REPORT-ORIGIN verbs 



Before an entry 
table is sorted 
created by phases 
table is completed 
64. Processing th 
writing RLD-text i 
time, the linkage 
addresses containe 
all RLD entries ca 
written. ) 



is made, the RLDTBL 
RLDTBL entries are 
63 and 64; the RLDTBL 

and processed by phase 
e RLDTBL table entails 
s some cases. At object 
editor relocates 
d in the RLD-text. (Not 
use RLD-text to be 



Routines PNDEF, GNDEF, and STARTMAC 
enter the relative address of an address 
constant in the RLDTBL table as well as the 
target address. 

Routine D4 makes entries for locations 
associated with REPORT-ORIGIN verbs. It 
sets a bit to indicate to phase 64 that RLD 
cards for these entries are not to be 
produced. For details on these entries, 
see "Processing for RPT-ORIGIN (D4) 
Elements," which appeared earlier. 



PROCESSING IN A SEGMENTED PROGRAM 



When a program is not segmented, phase 63 
reads Procedure A-text from SYSUT1 in the 
order in which it was written. When a 
program is segmented, Procedure A-text is 
read in order of ascending priority so that 
the procedure instructions for the root 
segment are processed first. 

The PHAS63 routine first determines 
whether the program is segmented by 
checking SEGLMT in COMMON. If SEGLMT does 
not contain X'FF*, the routine relocates 
the SEGTBL table and indicates to phase 00 
that a POINT macro instruction is to be 
issued to access the root segment in 
Procedure A-text. Processing of Procedure 
A-text begins at that point. 

In phase 1B, the priority numbers of all 
sections in the root segment were set to 0. 

When the MACRO routine comes to the end 
of a section, it branches to the SEGBRK 
routine, which determines whether the end 
of the section is also the end of a 
segment. If it is the end of the segment, 
the routine searches the SEGTBL table for 
the next segment of next highest priority. 
If it is not the end of the segment, the 
SEGTBL is searched for the next section of 
the same priority. When the end of the 
SEGTBL table is reached, control passes to 
routine EOF. 
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If the SYMDMP or the STATE option is in 
effect, at the end of processing for each 
segment, the final LOCCTR value for that 
segment and the priority for the next 
segment to be processed are both written on 
SYSUT4 for phase 65. 



PROCESSING AT END OF FILE 



When all segments have been processed or at 
end of file in an unsegmented program, 
routine EOF calls routine RLB30RT to sort 
the final RLD entry. 



Note; A section is a series of source 
program procedure instructions grouped 
under the same section-name. A segment is 
all the instructions whose sections have 
the same priority, and a segment may 
consist of one or more sections. There is 
a SEGTBL entry for every section whose 
priority differs from that of the section 
preceding it. 



Then it releases the tables used hj 
phase 63, except for the PNLBDTBL* 
GNLBDTBL, VNPTY, ¥IRPTR, LTLTBL, BLASGTBL, 
GNATBL, PNATBL, QGNTBL, and RLDTBL tables, 
which are passed to phase 64, Finally, it 
restores LOCCTR, and returns control to 
phase 00. 
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PHASE 64 



Phase 64 (IKFCBL64) is the last of the 
three phases that produce the machine 
language program. The major functions of 
phase 64 are: 

o Completing the RLDTBL table and 

building the QTBL table by processing 
Data A-text. 

o Processing E-text and DEF-text. 

o Processing Procedure A1-text and 
entering displacements in the 
instructions generated by phase 63. 

© Writing object text and REF-text from 
Procedure A1-text. 

o Writing object text for the INIT2, 

INIT3, and INIT1 routines of the object 
program in that order. 

o writing object text and RLD-text from 
the RLDTBL table. 



the object program. Each element results 
in either the writing of an object text 
element or an entry in the RLDTBL. Some 
RLDTBL entries will later be written out as 
Relocation Dictionary (RLD^text) entries 
for the data areas and as object text. 
Others, for the Global Tables, will be 
written as object text only. (These will 
be relocated by the object program.) 

SYSUT4, from which Data A-text is read, 
also contains E-text generated by phases 10 
through 51, and DEF-text for the 
cross-reference listing if the SXREF, XREF, 
VBREF, VBSUM r or TEST option is in effect. 
Figure 55 illustrates the contents of this 
data set when it is read by phase 64. 
Figure 56 illustrates how each type of 
element is processed. 



PROCESSING PROCEDURE A1-TEXT 



OUTPUT OF PHASE 64 



An introductory discussion of the output 
generated by phase 64 in response to 
compiler options is given under "Output of 
Phases 62, 63, and 64" in the chapter 
"Phase 62." 



Phase 64 reads Procedure Al-text from 
SYSUT2 to produce the machine language 
instructions for the object program. One 
element of text is read and processed at a 
time, and the object code produced for this 
element is placed in a work area 0U6REC. 
One or more elements are required to 
produce a complete instruction. When an 
instruction is complete, it is written out 
from the work area. 



PROCESSING DATA A-TEXT, E-TEXT, AND 
DEF-TEXT. 



Phase 64 reads Data A-text from SYSUT4 
before it reads Procedure A1-text from 
SYSUT2. It does this because Procedure 
A1-text for segmented programs has been 
written by phase 63 in order of ascending 
priority with the root segment first. 
Therefore, phase 64 must complete all 
RLDTBL entries for the root segment before 
Procedure A1-text is read. 

The primary function of Data A-text 
processing is to place values into the data 
areas and fields of the Global Tables of 



If the PMAP option is in effect, the PUT 
routine is called to write a line of text 
on SYSPRINT every time a complete 
instruction has been created. If the CLIST 
option is in effect, this routine is called 
only for each source program verb. 

If the SXREF or the XREF option is in 
effect, Procedure A1-text is used to create 
REF-text, which is written on SYSUT3. This 
text, containing an element for every 
data-name, file-name, and procedure-name in 
the program, is used by phase 6A to produce 
a cross-reference listing. 

Figure 57 describes the processing for 
each type of Procedure A1-text element. 
The individual elements are illustrated in 
"Section 5. Data Areas." 
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Start 



Beginning of SYSUT4 



End 



Writ ten by Phase 21 
Data A-text 



E-text generated by phases- 10, 
12, 20, 22, and 21 



DEF-text* (data-name, file-name) 

NOTE: These types of text are 
intermixed 

Writt en b y Phase 3 

DEF-text 2 (Procedure-name) 

Written by Phase 51 

E-text 3 generated by phases 12, 
1B, 3, 4, 45, 50, 51 



End of data marker for Data A-, 
DEF-, E-text (01) 

Written by Phase 63 

Debug-text if STATE or SYMDMP 
option is specified 



Read during Data A-text processing* 



Not read by phase 64 
phase 65 



-- passed to 



i There are 
written by 

During 
first byte 
routine is 
E-text 
2 Produced o 
3 E-text gen 
with Proce 
error (E) 
E-text on 



no control b 

one phase f 

Data A-text 

of the elem 

to be calle 

generated by 

nly if the S 

erated by ph 

dure IC-text 

nor a disast 

SYSUT4. 



reaks provided betwe 
rom text written by 
processing, phase 64 
ent) what type of te 
d to process it, 

phase 10 was passed 

XREF, XREF, or TEST 

ases 12, 1B, 3, 4, 4 

However, if the C 

er (D) level message 



en sections of text to distinguish text 
another. 

determines solely from code (which is the 
xt is contained in an element, and which 

to phase 21 intermixed with Data IC-text. 
option is specified. 

5, and 50 was passed to phase 51 intermixed 
SYNTAX option was requested and neither an 

was generated, phases 3, 4, and 50 write 



Figure 55. Contents of SYSUT4 when read by Phase 64 
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|Code and Type | Action Taken | 


1 00 | All E-text is built into a table called ERRTBL, which is passed to | 
IE-text {phase 70. Phase 64 does not process the E-text. If the ERRTBL table | 
I {overflows the space allotted to it, all of the E-text is rewritten on | 
J JSYSUT3, and a bit in the SWITCH field of COMMON is set to indicate this| 
| |to phase 70 . j 

1 | There are two types of E-text elements: (1) message definitions andj 
I | (2) message parameters. Message parameters are optional; however, if I 
| | they occur, one or more message parameters immediately follow the | 
| |message definition to which they apply (the uses of these elements are j 
j | explained in the chapter "Phases 70, 71, and 72"). Phase 64 examines | 
| |each element to determine its length, so that the correct number of J 
| jbytes may be stored in the table. To do so, it checks the third byte | 
| jof the element. If the byte contains a zero, the element is a message | 
I | definition whose length is 8 bytes. If the third byte is nonzero, the | 
I | element is a message parameter of variable length, and the length is | 
| {determined from the value of the second byte (for the format of E-text | 
j land ERRTBL see "Section 5. Data Areas") . I 


1 04 | Generate an RLDTBL entry that will cause the address of the DCB to | 
|DCB address |be placed in the correct cell of the DCBADR field in the PGT at | 
| {execution time. Get displacement of the DCBADR field from cell DCBCTR | 
| |in COMMON (see "DCBADR Allocation" in the chapter "Phase 62") and use | 
I {the DCB number to compute displacement of cell. Text element contains | 
| J the value (relative address of the DCB) to be placed in the PGT cell. { 
J I f 


t 1 f 

1 08 |Generate an RLDTBL entry that will cause the address of the DECB to J 
|DECB address {be placed in the correct cell of the DECBADR field of the TGT at { 
| {execution time. Get displacement of the DECBADR field from cell DECBCTJ 
1 {in COMMON (see Figure 48 in the chapter "Phase 62") and use the DECB { 
| {number to compute displacement of cell. Text element contains the | 
| {value (relative address of the DECB) to be placed in the cell. | 


{0C {Generate an RLDTBL entry that will cause the address of the buffer | 
{block address {to be placed in the correct BL cell of the TGT at execution time. Get | 
I {displacement of the BL field from cell BLCTR in COMMON (see Figure 48 | 
| {in the chapter "Phase 62") and use the BL number to compute | 
I {displacement of the cell. Text element contains the value (relative | 
| {address of the buffer) to be placed in the TGT cell. { 

{ { If the value of the SIZE field of the element exceeds 1024 (SIZE | 
| {specifies length of the block in fullwords) , more than one BL has been | 
| | assigned to the buffer. For each 1024-word area after the first, | 
{ {another RLDTBL entry is made. The second RLDTBL entry will cause the | 
| |buffer address plus 4096 to be placed in the next BL cell of the TGT. | 

6 S I 


6 1 I 

{14 {Generate an RLDTBL entry that will cause the address of the File | 
| FIB address {Information Block to be placed in the correct cell of the FIB field in { 
{ {the TGT at execution time. Get displacement of the FIB field from { 
j JAMICTR cell in COMMON and use the FIB number to compute displacement of { 
j {cell. Text element contains the value (relative address of the FIB) toj 
{ | be placed in the TGT cell. I 



Figure 56. Processing Data A-text, E-text, and DEF-text (Part 1 of 2) 
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Code and Type 



Action Taken 



24 

Working-Storage 
Section address 



Generate an RLDTBL entry that will cause the address of the Working- 
Storage Section to be placed in the correct BL cell of the TGT at 
execution time. Get displacement of the BL field from BLCTR cell in 
COMMON (see Figure 48 in the chapter "Phase 62") and use the BL number 
to compute displacement of the item. Text element contains the value 
(relative address of the Working-Storage Section) to be placed in the 
TGT cell. 

If the value of the SIZE field exceeds 1024 (SIZE specifies the 
length of the Working-Storage Section in fullwords) , more than one BL 
has been assigned. For each 1024-word area after the first, another 
RLDTBL entry is made. The second entry will cause the address plus 
4096 to be placed in the next BL cell. 



28 

constant 

definition 



Write object text that will place the value of the constant into a 
specified location in the data area at execution time. This type 
of element is used to fill some fields of DCBs and DECBs, and to 
initialize data items for which a VALUE clause was specified. 



2C 

address 
constant 
definition 



Generate an RLDTBL entry that will cause the address of the 
procedure-name (PN) or generated procedure-name (GN) to be placed in 
a specified location of the data area at execution time. This type 
of element is used to place pointers to routines in DCBs and exit 
lists. 



34 

Q-Routine 

identification 



This type of element contains a GN number for Q-Routine. The 
elements are built into a table called QTBL. Each entry is resolved 
so that it contains the actual address of the routine rather than 
simply the GN number. This processing is identical to that for GN 
references in Procedure A-text (see Figure 57 in this chapter) . When 
phase 64 generates the code of INIT3 (one of the execution-time 
initialization routines), it uses the QTBL and QGNTBL tables to 
generate a call to some Q-Routines to initialize the data and table 
areas affected by some OCCURS. . .DEPENDING ON data items, where the 
object of the DEPENDING ON option is an item in the Working-Storage 
Section. 



-J 



38 

BL reference 



Generate an RLDTBL entry that will cause the displacement in the 

TGT of the BL number assigned to VSAM files to be placed in a specified 

location of the data area at execution time. 



3C 

BLL reference 



Generate an RLDTBL entry that will cause the displacement in the 
TGT of the BLL numbers assigned to VSAM files in the Linkage Section to 
be placed in a specified location of the data area at execution time. 
This type of element is used to complete the building of the FIB at 
execution time. 



48 

data-name or 
file- name 
DEF-text 



This element is present only if the SXREF or the XREF option was 
specified. Each element is written out as it is encountered on 
SISUT1, to be read by phase 6A. The chapter "Phase 6A describes 
how these elements are used. 



4C 

procedure- name 

DEF-text 



This element is present only if the SXREF or the XREF option was 
specified. Each element is written out as it is encountered on 
SYSUT1, to be read by phase 6A. The chapter "Phase 6A" describes how 
these elements are used. 



Figure 56. Processing Data A-text, E-text, and DEF-text (Part 2 of 2) 



Note on Base Registers for the PGT a n d TG T : 
At execution time, register 12 always 
points to the beginning of the PGT and 
register 13 always points to the beginning 
of the TGT. If the displacement of an item 
in the PGT or TGT exceeds 4096 bytes, an 



OVERFLOW cell must be used. The OVERFLOW 
cells fields of both the PGT and TGT are at 
fixed displacements from registers 12 and 
13, respectively. Which OVERFLOW cell is 
to be used is determined from the value of 
the displacement, for example, a value 
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froB4096 to 8191 bytes uses cell 1, from 
8192 to 12.287 bytes uses cell 2, etc. An 
instruction is generated to load register 
U& or register 15 from the OVERFLOW cell. 
Then, in the operand currently being 
processed, register 14 or register 15 is 
used as the base; and the displacement is 
decremented by 4096, 8192, etc. 



INITIALIZATION CODING GENERATION 



After Procedure A1-text has been processed, 
initialization coding is generated by phase 
64, using the GINIT1, GINIT2, and GINIT3 
routines. 



There are three initi 
called INIT1 , INIT2, and 
are resident in the root 
generated first, folloue 
generation of INIT3, the 
to generate code that wi 
Q-Routines at the beginn 
execution to initialize 
fields. INIT1 is genera 
contains pointers to INI 



alization routines, 
INIT3. All three 
segment. INIT2 is 
d by INIT3. In the 
QTBL table is used 
11 call the 
ing of program 
variable- length 
ted last because it 
T2 and INIT3. The 



contents and functions of these three 
routines are described in detail in 
"Appendix B: Object Module." 



PROCESSING THE RLDTBL TABLE 



After the initialization routines are 
generated (after Procedure Division or root 
segment processing) , the RLDTBL table is 
processed. First, indirect address 
constants are resolved. Object text is 
written for items that are in the global 
tables. This text consists of address 
constant definitions that will be stored in 
the Global Tables at execution time. 
Because the addresses are relocated during 
program execution by routine INIT3, no 
RLD-text is reguired for these items with 
one exception. RLD-text is written for 
relocating all PROCEDURE BLOCK cells 
contained in the PGT. Object text is also 
written for data area address constants 
(obtained from address constant and 
indirect address constant definitions) . 
For the data area address constants, 
RLD-text is written so that the linkage 
editor can relocate the addresses. 



| Code and Type 



Action Taken 



-4 



2Ci 

card number 



Store in 3-byte cells OU6CDN and XFCDNO. If PMAP or CLIST are requested, 
read Listing A-text. Used to create an inline constant for TRACE 
instructions that call the COBOL library DISPLAY subroutine (ILBODSP0) - 



--8 



30i 

PN definition 



Using PN number as an index, look in PNATBL to get displacement in PGT of 
the cell for this PN. Create an RLDTBL entry that will place the current 
value of LOCCTR in the PGT cell. If there is no entry in the PNATBL,, no 
RLDTBL entry is created. 



34i 

VN definition 



Same as PN definition, using GN number and GNATBL. 



38 1 

VN definition 



Create an indirect RLDTBL entry from this element and the PN reference 
that follows it. 



3C 

EBCDIC card 

name 



Convert the current card number to an EBCDIC constant of the form: 

DC X'5« 

DC CL6' generated card number' 



44 

macro-type 

instruction 



Use byte 2 of the element as index to a branch table. Phase 64 produces 
the reguired coding. The contents of these elements are listed in the 
Procedure A-text formats given in "Section 5. Data Areas." 



i Indicates that no object text was written for this element. 

2See "Note on Base Registers for the PGT and TGT" in this section. 

t : : , 

Figure 57. Processing Procedure A1-text Elements (Part 1 of 4) 
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r — r 

Code and Type 



Action Taken 



48 

operation 

code 



This element contains in machine language the first 2 bytes of an 
instruction. The first byte is the operation code; the second byte may 
give condition codes, registers, or other operands. For an RR type 
instruction, this element contains the complete instruction. It is 
written out as received. 



4C 

PN reference 



This is the operand of a LOAD instruction. Procedure branching is 
accomplished by loading an address and then branching to it. Using 
register 12 2 as a base, find displacement by using PN number as an index 
into PNATBL. Using card number stored in XFCDNO, write an element of 
REF-text for phase 6A if SXREF or XREF is in effect. 



50 

GN reference 



Same as PN reference, using GN number and GNATBL. 
written. 



No REF-text is 



54 

VN reference 



Use R13 2 as base. Get displacement 
in COMMON (see "Task Global Table St 
"Phase 62"). Use a VN number to com 



of VN field of TGT from VNLOC cell 
orage Allocation" in the chapter 
pute displacement of this VN cell. 



58 

virtual 

reference 



Use virtual 
Allocation" 
displacement 



number as an index in th 

in the chapter "Phase 62 

of this virtual in the 



e VIRPTR table (see "VIRTUAL 

") . Table entry contains 

PGT. Use register12 2 as a base. 



5C 

BL reference 



This element 
register. U 
field in TGT 
number to co 



is the operand of an in 
se register132 as a base 

from BLLCTR or BLCTR, r 
mpute displacement of th 



struction that loads a base 
, get displacement of BLL or BL 
espectively, in COMMON. Use BL 
is cell. 



60 

TGT standard 

area 

reference 



Use register13 2 as a base. Displacement is picked up from a list of 
constants. This element refers to a cell in the fixed portion of the 
TGT. 



64 

Global Table 

variable 

located area 

reference 



Use register13 2 as a base (unless the element specifies the DCBADR 
field of the PGT, which uses register 12 2 ). Get displacement of the 
TGT or PGT field from the appropriate cell in COMMON, and use 
identifying number to compute displacement of this item (see "Task 
Global Table Storage Allocation" and Figure 48 in the chapter "Phase 
62") . 



68 

literal 

reference 



Bytes 2 and 3 are used to find the correct entry in the LTLTBL table, 
which gives the displacement of this literal in the PGT. Register 12 
is the base. 



6C 

DC definition 



This element is used to create an inline constant for a calling 
sequence. It is always preceded by the element 4424, the macro- type 
instruction element signaling a DC definition (see earlier in this 
figure) . It is written out as received. 



70 

base and 

displacement 



Specifies the actual register number and displacement for the 
instruction. It is written out as received. 



i Indicates that no object text was written for this element. 

2 See "Note on Base Registers for the PGT and TGT" in this section. 

i , , 

Figure 57. Processing Procedure A1-text Elements (Part 2 of 4) 
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jcode and Type | 

h 



Action Taken 



|78 

j address 
j reference 
I 
I 



\ 



(If the i field contains X° 03 
jalready loaded. Use the reg 
j the d field for the base reg 
| element. If the i field con 
| contents of print buffers an 
115 with the BL, BLL, SBL, or 
| high-order bit of the i fiel 
j register 14, Displacement i 
| case,, get the card number fr 



', the BL, BLL, SBL, or SBS indicated is 
ister indicated in the low-order 8 bits of 
ister. Displacement is the d field of the 
tains a value other than X'0 3 1 , save the 
d generate load of register 1 4 or register 

SBS indicated by the k field. If the 
d is on, use register 15; if it is off, use 
s the d field of the element- In either 
om XFCDNO to write an element of REF-text. 



j 

|7C 

j EBCDIC 

| data-name 

{reference 



(This element always follows the element 4404 , the macro-type instruction 
[element for ENTRY, It is used to punch an ESD-text type 1 card for the 
| entry point, 
I 



t 

(80 

j address 

j increment 

I 

\ 

I 

I 



H 



| If appended byte is not zero* print buffers are saved. One LA 
jinstruction is generated for each multiple of 4095 in the sum of the 
(displacement saved for the 78 (or DO) and 80 elements. Buffer is 
(restored; its displacement field is replaced by the amount in excess of 
| the final multiple of 4095. Value of the 80 element is included in the 
| symbolic field as ,I +NNN." If appended byte is not zero, no LA 
jinstruction is required since the displacement field is less than 4096. 



5 — „ 

|84 

j relative 

j address 



| This element is used to create an inline pointer to an item in a field 
| of the TGT or PGT for a calling sequence. Get displacement of field 
| from appropriate counter in COMMON and use identifying number to compute 
j displacement of item. 



h 



+ 



§A0 a |Specifies the register used by a macro-type instruction element, and 

J register I must follow certain of these elements (see the list of macro- type 
j specification f instructions under "Procedure A- text" "Section 5. Data Areas.") 



j ___ 

| incremented 
| address 

h 

| B0 | Used to create an inline TGT or PGT pointer for a call to an object-time 

j calling J subroutine that requires a parameter containing a displacement from 

j sequence j register 12 or register 13. 

j displacement | 



+ — — — — , ■ ■ ~- 

| This element combines the Address reference (78) and Address increment 

S (80} elements into one (see those elements in this table) , 

I 



JB4* 

j calling 

(sequence 

j dictionary 

| pointer 



J Used when a file-name or data- name occurs in a calling sequence to urite 
fa REF-text element for phase 6A. Obtain card number from XFCDWO. 



(B8* | Used to write an element of REF-text. 

| file f 

(reference J 



I . — | — m , . _ — - — __, 

(BC (Generate 3 DC instructions* used as parameters by the GO TO. . .DEPEND- 

( segmentation |ING ON and Segmentation subroutines. Code generated is as follows: 

land GO TO,. * J 

(DEPENDING ON \ DC X 9 priority 8 

(call parameter} DC X Procedure block number 8 

| j DC X2» displacement within Procedure block 1 



\ 

( * Indicates 
jzsee "Note 

«. , 



that no object text was written for this element. 

on Base Registers for the PGT and TGT" in this section. 



Figure 57. Processing Procedure A1-text Elements (Part 3 of 4) 



Phase 64 185 



Licensed Material - Property of IBM 



! ««, -~~ — — ! — . i — 

{Code and Type | Action Taken 

I ^ — f— ■ — ' ' 

|C4 I Add displacement Hithin PGT of PROCEDURE BLOCK cell (or OVERFLOW cell) 
| procedure j to each instruction that establishes addressability for a Procedure 
| block number (block. Use PRBLDISP cell in COMMON set by phase 62 for this purpose. 
I h _ . _ 

|C8 j Enter displacement in branch instructions generated by phase 63*. 

{procedure base( using PNLBDTBL. 
| register for | 
|PNs | 

I H _ ; - . _ . . 

j CC I Enter displacement in branch instructions generated by phase 63^ 

(procedure base| using GNLBDTBL, 
[register for { 

|GNs | 

| $_ , . , _ — — . 

|D0 fSpecifi.es actual register number , displacement from start of area con- 

jbase displace- f trolled by base register, and a data-name dictionary pointer. Write 
jment data-name | base and displacement^ and branch to routine for processing dictionary 
| | pointer. 

I 1 , _ . _ . __ - 1 

{^Indicates that no object text eas written for this element, j 

| 2 See "Note on Base Registers for the PGT and TGT" in this section, j 

« , , , . . , ; , , . — . , — i 

Figure 57« Processing Procedure A1-text Elements (Part 4 of 4) 
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PHASE 65 



The function of phase 65 (IKFCBL65) is to 
produce debugging information which is used 
by object-time COBOL library debugging 
subroutines and by the IBM OS COBOL 
Interactive Debug Program Product (Program 
Number 5734-CB4) . For information about 
the object-time COBOL library subroutines, 
see the publication IB M QS /VS CO BOL Libr ary 
Program Logic. The phase is given control 
only if the flow trace (FLOW) , statement 
number (STATE) , symbolic debug (SYMDMP) , or 
interactive debug (TEST) compiler option is 
specified by the user. The transfer of 
control to phase 65 is described in 
"Processing Between Phases" in the chapter 
"Phase 00." The operations of phase 65 are 
described in Diagram 7 located with the 
foldouts at the back of this publication. 



65 to produce tables that provide 
information needed by the STATE or SYMDMP 
COBOL library subroutines or the IBM OS 
COBOL Interactive Debug Program. (Phase 6 
writes Debug-text on SYSUT2; phase 63 
writes Debug-text on SYSUT4.) Phase 65 
builds the PROCTAB and SEGINDX tables for 
either the STATE, SYMDMP, or TEST option. 
For the STATE option, the PROCTAB and 
SEGINDX tables are written in the object 
module; for the SYMDMP or TEST option, they 
are written on the Debug data set. The 
CARDINDX, PROCINDX, and PR0GS0M tables are 
created only for the SYMDMP and TEST 
options and are written on the Debug data 
set. The 0BODOTAB and DATATAB tables have 
already been created for the SYMDMP and 
TEST options by phase 25. For the TEST 
option phase 65 also creates the BCDPN 
table and writes it on the Debug data set. 



PROCESSING THE FLOW OPTION 



If FLOW is specified, phase 65 obtains the 
number (n[n]) of traces reguested from the 
FLOWSZ cell in COMMON. The number is 
stored in the first byte of the DEBUG TABLE 
in the TGT. The ILBOFLW0 subroutine 
reguests storage for the Flow Trace table 
dynamically. For the FLOW option, the 
PNCHSW routine writes the flow trace 
information in the DEBUG TABLE. Further 
processing for the FLOW option is discussed 
in "Final Processing" later in this 
chapter. 



COMMON PROCESSING FO R TH E ST ATE, a SYMDMP, 



AND TEST OPTIONS 



When STATE is specified, the object-time 
statement number subroutine (ILBOSTN0) uses 
the PROCTAB and SEGINDX tables. 



PROCESSING DEBUG-TEXT 



The RDF2 routine locates and reads the 
Debug-text, which is passed to phase 65 on 
SYSUT2 from phase 6 or on SYSUT4 from phase 
63. Debug-text elements are described in 
"Section 5. Data Areas." 



The F2PROCS branch table is used to 
| branch to one of the routines that control 
the processing for the elements. 



Control 

Routine 

TENPROC 

TWENPROC 

FRTYPROC 



Elements 
Processed 
CARDLOC 
ENDS EG 
Discontinuity 



When SYMDMP is specified, the 
object-time symbolic debug subroutines use 
the Debug data set (SYSUT5) to produce the 
formatted symbolic dumps reguested. When 
TEST is specified, the IBM OS COBOL 
Interactive Debug Program Product (Program 
Number 5734-CB4) uses the Debug data set. 
The Debug data set tables are created by 
phases 25 and 65 (see "Section 5. Data 
Areas" for a description of the Debug data 
set) . 

For the STATE option, phase 6 or 63 or 
for the SYMDMP or TEST option, phase 63 
created Debug-text, which is used by phase 



Building the PROCTAB Ta ble 



The TENPROC routine builds the PROCTAB 
entries from the information in the CARDLOC 
elements. Each PROCTAB entry contains the 
relative address of the instruction 
generated for the card and verb number in 
the entry. Phase 65 divides any program or 
segment that exceeds 64K bytes in size into 
fragments less than 64K bytes in length and 
creates a final (dummy) PROCTAB entry to 
indicate the end of the each fragment. 
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Building the SEGINDX Tab le 



Building the CARDINDX Table 



A SEGINDX entry is created for each 
fragment of the program. 



If the TENPROC ro 
the code generated f 
the current fragment 
size (64K bytes), it 
routine to handle th 
end of the fragment 
calls the SNF routin 
fragment, make a SEG 
fragment, and begin 
for the next SEGINDX 



utine determines that 
or the last verb causes 
to exceed the maximum 
calls the GTEQ10K 
e processing for the 

The GTEQ10K routine 
e to start the new 
INDX entry for the old 
collecting information 
entry. 



The end of the Procedure Division is 
signaled by an ENDSEG element. When the 
RDF2 routine reads an ENDSEG element, it 
calls the TWENPROC routine to process the 
ENDSEG. 



The CARDINDX table contains an entry for 
each fragment of the program and for each 
discontinuity in the COBOL instructions 
within a segment of the program. 

The discontinuity elements in Debug-text 
indicate the discontinuity in card numbers 
at the end of each noncontiguous section. 

When the RDF2 routine reads a 
discontinuity element, it branches to the 
FRTYPROC routine. This routine sets the 
DISCSW switch to indicate this special 
processing is to be done for the end of 
section. 

CARDINDX entries are created for 
discontinuity within segments and for each 
program fragment. 



Building the PROCINDX T?able 



FURTHER PROCESSING FOR THE STATE OPTION 



If STATE is specified, the PROCTAB and 
SEGINDX tables are created and written in 
the object module as described above. 
Addresses passed in the TGTADTBL table are 
used to write the PROCTAB and SEGINDX 
tables in the object module. The TXPNCH 
routine writes the PROCTAB table in the 
object module following INIT3. At end of 
file for Debug-text, the E0F2 routine 
writes the SEGINDX table, after the PROCTAB 
table in the object module. The addresses 
of the beginning of each of the PROCTAB and 
SEGINDX tables and of the end of the 
SEGINDX table are saved in the DEBUG TABLE 
in the TGT. 



After the TXPNCH r 
element into the S 
determines whether 
the buffer is full 
write the buffer a 
entry providing ca 
information about 
block and the note 
after it has been 
address of the fir 
table is saved for 
PROCTNTE save area 



outine moves a PROCTAB 
YSUT5 buffer, it 

the buffer is full. If 
, it calls phase 00 to 
nd builds a PROCINDX 
rd and verb number 
the first entry in the 

address of the block 
written. The NOTE 
st block of the PROCTAB 

the PROGSUM table in the 



DEBUG DATA SET PROCESSING 



The discussion of processing for the 
STATE option continues in "Final 
Processing" later in this chapter. 



The TXPNCH routine writes the PROCTAB table 
on the Debug data set at the beginning of a 
new block. 



FURTHER PROCESSING FOR THE SYMDMP OR TEST 
OPTIONS 



If SYMDMP or TEST is specified, phase 65 
processes the CARDINDX, PROCINDX, and 
PROGSUM tables for the Debug data set. 
Processing for the CARDINDX and PROCINDX 
tables occurs in conjunction with the 
processing for the PROCTAB and SEGINDX 
tables. If TEST is specified, phase 65 
then builds the BCDPN table. The PROGSUM 
table is processed after the other tables 
have been written on the Debug data set. 



At end of file 
transferred to the 
collect informatio 
entries in each of 
and PROCINDX table 
information for th 
CARDINUM, SEGINUM, 
respectively. It 
table in order of 
priority. 



on SYSUT4, control is 

EOFON2 routine to 
n about the number of 

the CARDINDX, SEGINDX, 
s. It stores this 
e PROGSUM table in the 

and PROCNUM save areas, 
then sorts the CARDINDX 
ascending card number 



The EOFON2 routine then moves the 
CARDINDX, SEGINDX, and PROCINDX tables (in 
that order) to the buffer for the Debug 
data set (SYSUT5) . (These tables are 
written on the Debug data set, beginning at 
a new block.) The E0F0N2 routine saves the 
displacement within the buffer of the 
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startof the SEGINDX and PROCINDX table in 
the SEGDSPL and PROCDSPL save areas, 
respectively. This information becomes 
part of the PROGSUM table. 

The E0F0N2 routine then calls phase 00 
to write the tables and note those blocks 
that contain the beginning of a table. It 
saves the note information in the CARDNOTE, 
SEGNOTE, and PROCNOTE save areas for the 
PROGSUM table. 



into the buffer and phase 65 inserts the 
PROGSUM table in the first 108 bytes. It 
calls phase 00 to write the buffer on 
SYSUT2 and to copy the remainder of the 
contents of SYSUT5 onto SYSDT2. Then it 
recopies SYSUT2 onto SYSUT5. 



FINAL PROCESSING 



All the information gathered by the 
EOFON routine is entered in the PROGSUM 
table. 

If the TEST option is specified, phase 
65 then reads DEF-text from SYSUT1 and 
builds the BCDPN table. The table is 
written on the Debug data set (SYSUT5) . 
The device address of the first block of 
the table, along with the total number of 
blocks in the table, is inserted into the 
PROGSUM table. 

If the Debug data set is located on 
disk, the first 512-byte record is read 
back into the buffer, and the PROGSUM table 
is moved into the first 108-byte field. 
The record is then rewritten on the disk. 
This processing is done in phase 65. 

If the Debug data set is located on 
tape, the ENDOFTBL routine issues a request 
to phase 00 to write the end of file mark 
and reposition both SYSUT5 and SYSUT2 to 
the first record. Phase 00 is requested to 
read the first 512-byte record of SYSUT5 



For any of the options, the PNCHSW routine 
sets the fullword SWITCH in the TGT to 
reflect the options in effect and it also 
sets the DEBUG TABLE PTR in the TGT. If an 
error has occurred, the DEBUG TABLE PTR is 
set to zero and the corresponding bit in 
the PH6ERR cell in COMMON is set on. 
(Phase 70 examines the bits in PH6ERR to 
determine which error messages, reflecting 
errors detected in phase 6, 62, 63, 64, or 
65, are to be written.) The DEBUG TABLE is 
created from information produced during 
phase 65 processing and from information in 
the TGTADTBL table, and it is written in 
the TGT. Finally, the END card for the 
program is written in the object module, 
and if both the BATCH and NAME options have 
been specified « a linkage editor control 
card is written for the object module. If 
the program is segmented, the object code 
for independent segments is obtained from 
SYSUT1 and written in the object module. 
If TEST is in effect, phase 65 inserts the 
DEBUG TABLE information in the TGT of the 
object module. 
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PHASE 61k 



The function of phase 6A (IKFCBL6A) is to 
produce a cross-reference listing on 
SYSPRINT. The phase is given control only 
if the SXREF, XREF, VBREF, or VBSUM 
compiler option was specified by the user. 
The transfer of control is described under 
"Processing Between Phases" in the chapter 
"Phase 00." 



Phase 6A tests the PH 
to determine whether the 
is SXREF or XREF. If SX 
phase 6A generates an al 
ordered cross-reference 
tests the PHZSW4 byte in 
determine whether the op 
VBREF, or VBSUM. If VBR 
phase 6A produces the ve 
listing. If VBSUM is in 
produces the verb summar 
is in ef f ect f a cross- re 
ordered by source statem 
generated. 



ZSW1 byte in COMMON 

option specified 
REF is in effect, 
phabetically 
listing. Phase 6A 

COMMON to 
tion specified is 
EF is in effect, 
rb cross-reference 
effect, phase 6A 
y listing. If XREF 
ference listing 
ent sequence is 



Phase 6A performs the following 
operations: 

• Reads DEF-text into storage until 

either storage is filled or end-of-file 
is reached. 



chapter "Table and Dictionary Handling") to 
get all available storage for use in 
creating the DATATBL table, OFLOTBL table, 
and the CNTLTBL table (if the SXREF option 
is in effect) , which contain the DATA 
records, OVERFLOW records, and CONTROL 
records, respectively. However, it does 
not use TAMER routines to access these 
tables. Therefore, phase 6A is able to 
construct tables occupying more than 32K 
bytes. 



PRODUCING A SOURCE ORDERED CROSS-REFERENCE 
LISTING 



The maximum amount of space is obtained for 
the DATATBL and OFLOTBL tables by a call to 
GETALL in phase 00. 

The DEF-text is read from SYSUT1, where 
it was written by phase 6 or 64. There is 
one element of DEF-text for each data-name, 
file-name, and procedure-name in the source 
program. The text on SYSUT1 is read into 
storage until either storage is filled or 
end-of-file is reached. One DATA record is 
created for each DEF-text element. 



© Creates a DATA record and, if SXREF is 
in effect, a CONTROL record, for each 
DEF-text element. For SXREF, the 
CONTROL records are used in sorting the 
external names, 

• Reads REF-text and appends references 
to the proper DATA record (or OVERFLOW 
record) if the definition has been read 
into storage. 

• Prints each DATA record and its 
associated OVERFLOW records. 

These operations constitute the 
fundamental cycle that is repeated until 
all DEF-text has been processed. 

DEF-text for verbs has the same format 
and is processed in the same manner as 
DEF-text for data-names. Similarly, 
REF-text for verbs (VBREF only) has the 
same format and is processed in the same 
manner as REF-text for data-names. The 
only special processing for verbs is the 
recognition of the first verb-element and 
the first procedure-name thereafter. 



During phase initialization, phase 6A 
uses the GETALL routine in TAMER (see the 



The REF-text is read from SYSUT3 or, if 
OPT is in effect, from file SYSUT1 . There 
is one element of REF-text for each time 
the name is referred to in the source 
program. The text on SYSUT3 is read, one 
element at a time, until end-of-file is 
reached. 



For a data-name or file- 
internal name is the dictio 
assigned by phase 22. For 
procedure- name, the internal 
number assigned by phase 1B 
of a bit in each entry indi 
contains a dictionary point 
number. When a REF-text el 
the high-order bit of the r 
number is tested to determi 
reference is to a data-name 
procedure-name. (This test 
a dictionary pointer and a 
assigned the same value.) 



name, the 
nary pointer 
a 

name is the PN 
The setting 
cates whether it 
er or a PN 
ement is read, 
eferencing card 
ne whether the 

or to a 

is made in case 
PN number were 



If the DEF-text element for the 
referenced data-name or procedure-name was 
processed in this cycle, the DATA record is 
in storage. For a REF-text element for a 
data-name, a binary search of the DATATBL 
table is made to locate the matching DATA 
record for the data-name. A REF-text 
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element for a "procedure- name is matched 
directly by means of an algorithm with the 
DATA record for the procedure -name. If a 
watch is not founds the REF-text element is 
ignored. If a match is found, the 
referencing card number contained in the 
REF-text element is placed in the DATA 
record^ or if it is full, in an OVERFLOW 
record chained to it. If the current 
OVERFLOW record is full, another OVERFLOW 
record is added to the chain, and the 
referencing card number is inserted in the 
first three bytes of the record. If no 
OVERFLOW record is available, the last DATA 
record is split into three OVERFLOW records 
which are then placed on the overflow- free 
chain. Before the referencing card number 
is placed in the newly designated OVERFLOW 
record, the REF-text element is rechecked 
to ensure that the matching DATA record was 
not just deleted* At end-of-file, the 
REF-text data set is closed* 



At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed on SYSPRINT. 



If this is the last o 
processing is completed 
defining card numbers, a 
numbers in storage have 
this is not the last eye 
again read into storage, 
necessary to split one o 
into OVERFLOW records in 
cycle, the DEF-text data 
closed, rewound, and reo 
read and ignored until t 
processed in the precedi 
reached. DATA records a 
unprocessed names and th 
with the reading of REF- 



r only cycle, 
when all names, 
nd referencing card 
been printed. If 
ie, DEF-text is 

(If it was 
r more DATA records 

the preceding 

set must be 
pened.) Names are 
he last name 
ng cycle is 
re created for 
e cycle continues 
text. 



PRODUCING AN APLHABETICALLY ORDERED 
CROSS-REFERENCE LISTING 



The maximum amount of space is obtained for 
the DATATBL, OFLOTBL, and CNTLTBL tables by 
a call to GETALL in phase 00, 

The DEF-text is read from SYSUT1. The 
text is read into storage until either 
storage is filled or end-of-file is 



reached. One DATA record and one CONTROL 
record are created for each DEF-text 
element. The CONTROL records are used in 
sorting the external names, which is done 
as the DEF-text is read. 

The REF-text is read from SYSUT3. The 
text on SYS0T3 is read, one element at a 
time, until end-of-file is reached and the 
bit is tested as described in "Producing a 
Source Ordered Cross-Reference Listing." A 
search of the DATATBL table is made for the 
matching DATA record and if it is found, 
the referencing card number is placed in 
the DATA record, or if it is full, in an 
OVERFLOW record chained to it. If the 
current OVERFLOW record is full, another 
OVERFLOW record is added to the chain, and 
the referencing card number is inserted in 
the first three bytes of the record. If no 
OVERFLOW record is available, the DATA 
record that is last on the chain of sorted 
DATA records is split into three OVERFLOW 
records which are placed on the 
overflow-free chain. Before the 
referencing card number is placed in the 
newly designated OVERFLOW record, the 
REF-text element is rechecked to ensure 
that the matching DATA record was not just 
deleted. If a matching DATA record is not 
found, the REF-text element is ignored. At 
end-of-file, the REF-text data set is 
closed. 

At the end of the cycle, each DATA 
record and its associated OVERFLOW records 
are printed in alphabetic order on 
SYSPRINT. The lines printed give the 
external name (from the DEF-text element) , 
the card number of the statement in which 
the item was defined (from the DEF-text 
element) , and the card numbers of all the 
references (from the REF-text elements) . 

If this is not the last or only cycle, 
DEF-text is again read into storage. 
(Whenever more than one cycle is reguired 
to process the entire DEF-text data set, 
the data set must be closed, rewound, and 
reopened.) Names are read and each name is 
compared with the last name processed in 
the preceding cycle. If the name read 
alphabetically precedes the last name 
processed, it has already been processed. 
If the name read alphabetically follows the 
last name processed, the cycle continues 
with the creation of DATA and CONTROL 
records. 
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PHASES 70. 71 ? AND 72 



Phases 70, 7 1, and 72 (IKFCBL70, IKFCBL71, 
and IKFCBL72) combine to generate all the 
compiler diagnostic messages for source 
program errors. Phase 70 contains all the 
codes except for the message texts for 
error messages generated by phases 20 
through 65 and the associated address 
constant tables used to locate the text for 
any one of these messages. Phase 70 
resides in storage during the entire 

| message generation process and loads either 
phase 71 or 72 when message text is needed 
from one of these phases. Phase 71 
contains the message texts for errors 
arising during processing by phase 20, 22, 
21, or 25; phase 72 contains the message 

| texts for phases 3, 35, 4, 45, 50, 51, 6, 
62, 63, 64, or 65. Input to phase 70 

| consists of E-text, passed from phases 04 
through 6A, which is either in storage or 
on SYSUT3 or SYSUT4. Output consists of 
completed messages, which are written on 
SYSPRINT and/or SYSTERM. Phase 70 also 
produces a listing of all error messages in 
numbered order if it finds that the name of 
the program is ERRMSG. 



If the compiler options 
phase 6 or phases 62, 63, 
output, then phase 70 read 
SYSUT4 . Otherwise, phase 
the E-text on SYSUT4 along 
and DEF-text. To avoid an 
input/output operation, ph 
attempts to save the E-tex 
phase 70 in the ERRTBL tab 
table, however, has a maxi 
the E-text cannot be saved 
or 64 puts the E-text for 
SYSUT3. 



are such that 
and 64 produce no 
s the E-text from 
6 or 64 reads in 

with Data A-text 

extra 
ase 6 or 64 
t in storage for 
le. The ERRTBL 
mum size; if all 

in it, phase 6 
phase 70 on 



If errors are encountered by phases 6, 
62, 63, 64, or 65, the corresponding bits 
in the PH6ERR cell in COMMON are set to 1. 
No E-text is written. Instead, phase 70 
tests the bits in PH6ERR to determine which 
messages are to be written and then 
generates these messages in the usual 
manner. Note that since there are only 10 
bits, phase 70 can only produce ten 
messages for phase 6. Any others must be 
produced by phase 6 itself. The presence 
of the text in phase 72 for these 
additional messages is for the error 
message listing only. 



INPUT FROM PRIOR PHASES 



| Phases 04 through 51 produce E-text in the 
same manner. Whenever a processing routine 
detects a source program error, it writes 
out E-text message definition elements. If 
parameters are associated with the error 
message, the phase writes E-text message 
parameter elements directly after the 
message definition (see "Section 5. Data 
Areas 11 for the formats). 

| Phase 04 writes E-text for BASIS and 
COPY statements on SYS0T3. Phase 10 writes 
E-text interspersed with Data iotext on 
SYSUT3. When phase 21 reads the Data 
IC-text, it writes the E-text back onto 
SYSUT4 without change, along with Data 
A-text and its own E-text. Phase 1B writes 
the E-text produced during PO-text 
processing on SYSUT2 with the PO-text. 
From then on until phase 51, E-text is 
added to the Procedure IC-text stream as 
errors are encountered. Phase 51 separates 
E-text and writes it, as well as its own 
E-text, on SYSUT4. Note, however, that the 
E-text is not interspersed with other texts 
if the CSYNTAX or SYNTAX option is in 

J effect, instead phases 4, and 50 write 
E-text directly on SYSUT4. 



PHASE 70 ERROR PROCESSING 



Upon receiving control from phase 00, phase 
70 uses the PARTBL, EACTBL, and PHxERR 
tables together with E-text to construct 
error messages for the listing. The PH1ERR 
table is located in phase 70; the PH2ERR 
table is located in phase 71; and the 
PH3ERR, PH4ERR, PH5ERR, and PH6ERR tables 
are located in phase 72. Messages for 
error conditions that arise during 
processing by phase 01, 04, 10, 12, or 1B 
are completely processed within phase 70. 

When an E-text element produced during 
phase 20, 22, 21, or 25 processing is 
encountered, phase 70 loads phase 71 into 
storage and picks up the address of the 
PH2ERR table which is located at the entry 
point IKFCBL71 . Phase 70 stores these 
addresses in the corresponding entry in the 
PHMESS table and sets a switch to indicate 
that phase 71 has been loaded. Phase 70 
can then use the pointers in the PH2ERR 
table to find the message texts contained 
in phase 71. 
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When an E-text element produced during 
| phase 3, 35, 4, 45, 50, 51, 6, 62, 63, 64, 
or 65 processing is encountered, phase 70 

I loads phase 72, to obtain the addresses of 
the PH3ERR, PH4ERR, PH5ERR, and PH6ERR 
tables as for phase 71. These addresses 
are entered in the PHMESS table and the 
switch is set to indicate that phase 72 has 
been loaded. Phase 70 can then use the 
pointers in the corresponding PHxERR table 
to find the message texts contained in 
phase 72. 



Each entry is of the following form: 
< — 3 bytes^ — 



1 Pointer to text of appropriate message | 

i , _ 1 

The message text is found in phases 70, 71 r 
and 72 (as described earlier in this 
chapter) . 



PARTBL and EACTBL Tables 



GENERATING MESSAGES 



The PARTBL table is a fixed table assembled 
as part of phase 70 and is not handled by 
TAMER routines. It contains 3-byte 
pointers to all possible error message 
parameters, COBOL words, verbs, operations, 
etc., that are not programmer-supplied 
names. Its entries are of the form: 



-3 bytes- 



Pointer to parameter 



The XNORML routine scans each E-text item 
in turn. It first moves the card number, 
message-phase number, and the severity code 
to the work area XD6REC. The severity code 
is of the form: 



IKFpxxxI - * 



where: 



The EACTBL table is a fixed table 
assembled as part of phase 70 and not 
handled by the TAMER routines. It contains 
3-byte pointers to error statements that 
describe which compiler action was taken 
because of the error, for example, 
"STATEMENT ACCEPTED AS WRITTEN." Its 
entries are of the following form: 



-3 bytes- 



Pointer to statement 



PHxERR Tables 



The PHxERR tables are fixed tables 
assembled as part of phase 70, 71, and 7 2 
and not handled by TAMER routines. For 
each message, an entry is made in the 
appropriate PHxERR table, where x has the 
following values: 



Value 
of x 

1 

2 

3 
4 
5 
6 



Phas e 

04,10, 12, or 1B 

20,22,21, or 25 

3 or 35 

4 or 45 
50 or 51 
6,62,63,64, or 65 



is the phase number in which the 
error occurred, where: 



Value 

1 
2 

3 
4 
5 
6 



Phas e 

04,10,12, or 1B 
20,22,21, or 25 

3 or 35 

4 or 45 
50 or 51 
6,62,63,64, or 65 



xxx is the number of the message 

* is the severity code, as follows: 

W = warning 
C = conditional 
E = error 
D = disaster 

The XNORML routine next uses the pointer 
in the corresponding PHxERR table entry for 
the E-text entry to find the text of the 
message itself. It places the text in work 
area X06REC. It scans the text entry for 
the presence of the symbols $, = , and /. 
The symbol $ indicates that a parameter 
following the E-text for this message must 
be inserted at this point. Parameters are 
taken either from the parameter entry 
itself or from the location pointed to 
indirectly through the PARTBL table by the 
value field of the parameter entry. 



Phases 70, 71, and 72 193 



Licensed Material - Property of IBM 



The symbol = indicates that an error 
action message must be added. In this 
situation, a number directly follows the = 
symbol. Phase 70 uses this number as a 
pointer to determine the displacement into 
the EACTBL table for the pointer to the 
appropriate error action message. 



The symbol / indicates that this is the 
end of the text for this message. 



ERROR MESSAGE LISTING 



On entry to phase 70 it determines if the 
program-id stored in COMMON is ERRMSG. If 
so, it is taken as a sign that this is a 
dummy compilation simply to produce a 
listing of all error messages in numerical 
order. This is done by scanning PHXERR and 
SEVTBL sequentially. 



The error action messages are in phase 
70 starting at location EACT00. Routine 
XNORML moves the error action message into 
the work area immediately following the 
text for the message. The routine XPDT 
then writes the message on SYSPRINT and/or 
SYSTERM.i 



^Routine XPDT calls phase 00 with a request 
to write to SYSPRINT. Phase 00 then 
determines whether SYSPRINT, SYSTERM, or 
both are to be written to and takes the 
appropriate action. 



| FIPS PROCESSING 



The FIPS processing phases (8s) cannot 
handle programs with syntax errors in the 
source. If phase 70 finds any errors of 
greater severity than W* a flag is set in 
COMMON (INFOHSG) to prevent FIPS 
processing. In addition some warning 
messages cause the flag to be turned on. 
Those that do not, have a bit (X«20«) set 
on in their SEVTBL entry, indicating an 
informational message. 
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PHASE 80 



The function of phase 80 is to flag the 
COBOL source statements that are at 
variance with the Federal Information 
Processing Standard (FIPS) . The phase is 
given control only if the LVL compiler 
option is specified by the user or was 
defined as the default value at 
installation time. 

Phase 80 tests the FIPLVL switch in 
COMMON to determine which level of flagging 
has been specified (A = low; B = low 
intermediate; C = high intermediate; D = 
full standard) . 



Input 



Input to phase 80 is the COBOL source 
program listing on the SYSUT6 utility data 
set and the FIPS parameter list. If the 
LSTCOMP option is in effect, the beginning 
of the Lister output (from phase 08) is 
identified by four bytes of binary zeros; 
the end of the Lister output is identified 
by four bytes of binary ones. 

Phase 02 changes the name of the output 
data set for the source program listing 
from SYSPRINT or SYSTERM to SYSUT6 or their 
alternate DDnames when FIPS processing has 
been requested. The source program is 
written by phases 10, 12, and 1B. 

The FIPS parameter list is described 
below: 



Byte 

4 

8 



12 



C ontents 

Address of COMMON 

Address of DDname for input to 

phase 80 (SYSUT6) 

Address of DDname for output 

from phase 80 (SYSPRINT or 

SYSTERM) 

Address of DDname for phase 80 

work data set (SYSUT1) 



The end of input to phase 80 is 
identified by the appearance of 999999 as 
the source sequence number. 



Output 



The output of phase 80 consists of the 
COBOL source program listing flagged 
according to the specified level of the 
Federal Information Processing Standard on 
SYSPRINT or SYSTERM. 



Pro cessing 

If INFOMSG in COMMON is on, IKFCBL80 puts 
out error message number IKF8008 does not ■■ 
produce the source program. 

Phase 80 performs the following 
functions: 

© Scans each Division of the COBOL source 
program. 

• Generates diagnostic messages for 
exceptions to the standard. 

© Writes the source program and messages 
on SYSPRINT or SYSTERM. 

• Performs input and output operations. 

• Returns control to phase 00. 

SC ANNING T HE SOURCE PROGRAM 



The source program is scanned by the four 
scanning routines of phase 80. They are 
IDSCAN, ENVSCAN, DATASCAN, and PROCSCAN; 
they process the Identification, 
Environment, Data, and Procedure Divisions, 
respectively. These routines are under 
control of the IKFCBL80 routine and they 
use the GETLINE, PUTLINE, GETWORD, CHKCOPY, 
CHKGLBLS, MSGHNDLR, and VERBCHK routines. 

The scanning routines call the GETLINE 
routine to read a line of the source 
program and the GETWORD routine to 
determine each word of the line. 
Subroutines in each scanning routine check 
each word to see if it meets the FIPS 
standard. Diagnostic messages are issued 
for exceptions to the standard. 



GENERATING DIAGNOSTIC MESSAGES 



When an exception to the FIPS standard is 
discovered in the source program, the 
MSGHNDLR and MSGWRITE routines are called 
to format the diagnostic message and to 
write it on the output data set. 

Each Division scanning routine contains 
the text of the messages that are issued by 
that routine. When the MSGHNDLR routine is 
called, the address of the message is 
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passed to the routine and the routine 
formats it for printing by the MSGWRITE 
routine. 



WRITING THE SOURCE PROGRAM 



Each time the GETLINE routine is called by 
one of the scanning routines, it reads a 



line of the source program and then calls 
the POTLINE routine to write the line on 
SYSPRINT or SYSTERM. SYSTERM is used only 
if the user has specified the TERM option, 
or when operating under TSO or CMS. After 
the line is written on the output data set, 
control is returned to the scanning routine 
for FIPS processing. 
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FUNCTIONAL SYMBOLS 
*****A1* ********* 



***************** 



.♦"DECIsiON 
BLOCK 



****C1********* 

♦ENTRY. WAIT- OR* 
*TERMINAL BLOCK * 

*************** 



*********** 



*************** 



*****%•!* ********* 



***************** 



*****G1********* 



***************** 



****B3* ******** 

* HOURSRTN 
* 

*************** 

**** 

* * 

* C3 * 

* *-> 

**** 
BRANCH 

***** C 3***** 

* UPDATE- 



************** 



* *_> 

**** 

V 

*****Q3***** 



****G2***** : 
* RETURN 



GOTO 

***** F3 * 

*SUBNM 



THE TERMINAL BLOCK IS USED 
TO SHOW ENTRY AND EXIT 
POINTS OF A ROUTINE. 
BLOCK B3 SHOWS AN ENTRY 
POINT NAMED HOURSRTN. 



THE INSTRUCTION AT LOCATION 
BRANCH CALLS A SUBROUTINE 
NAMED UPDATE. UPDATE IS 
A SMALL ROUTINE AND NO 
FLOWCHART OF IT IS PROVIDED. 



ON-PAGE ENTRY CONNECTOR. 
ONE OR MORE BRANCHES TO 
THIS BLOCK APPEAR ON THIS 
PAGE OF THE FLOWCHART. 



OFF-PAGE ENTRY CONNECTOR. 
A BRANCH TO THIS BLOCK 
APPEARS ON ANOTHER PAGE(S) 
OF THIS FLOWCHART. 



THE INSTRUCTION AT LOCATION GOTO 
CALLS A SUBROUTINE NAMED SUBNM. 
THE LOGIC OF SUBNM IS SHOWN ON 
CHART YY STARTING AT BLOCK Al. 



LINE JUNCTION 



*****H3******** 



********* 



****J2********* 

* * 

* RETURN * 

* * 
*************** 



CONTROL IS RETURNED TO 
A VARIABLE POINT. (FOR 
EXAMPLE, TO THE POINT 
AT WHICH THIS ROUTINE 
WAS INVOKED.) 



*** K3 ******* 

TAXRTN 
************ 



ON-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK D3 ON THIS PAGE 
OF THE FLOWCHART. 



THIS BLOCK REFERS TO A ROUTINE 
OR PROGRAM THAT IS DOCUMENTED 
IN SOME OTHER PUBLICATION. 



OFF-PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK Al ON PAGE 2 
OF THIS FLOWCHART. 



CONTROL BRANCHES TO AN ENTRY 
POINT ON ANOTHER FLOWCHART. 
BLOCK K3 SHOWS A BRANCH 
TO LOCATION TAXRTN THAT 
APPEARS IN CHART XX, PAGE 
2, STARTING AT BLOCK Al. 



| Figure 58. Explanation of Flowchart Symbols 
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| Chart AA (Part 1 of 7) . Phase 00: Overall Flow 



* A3 * 

* *_-., 

**** V 



****A1*****+*** 

* COS 
* 
*************** 



* . PRINTER 



fc'K.LnX&K . * 1 



DECIPHER 

LINKAGE 

PARAMETERS 



SET FIRST 1-0 SWITCH, 
SINGLE BUFFER SWITCH 
IF APPLICABLE 



* '. PUNCH '. * ■> 



***** 

*NO *05 * TO WPCH 

B2* 

* * 



+. SYSLIN 



.-•J 



****D3** ******* 
* * 

♦RETURN TO PHASE* 

*************** 



*0U * TO WRITE 



***** F2 ********** 
** ISSUE RETURN ** 
** MACRO AND ** 
->**RELEASE COBOL**- 
** SPACE ** 
** ** 

***************** 



*G2********* 



***E3 *********** 
CLOSE SYSUT1, 

* OPEN SPILL. * 
TCLOSE SYSUT2, - 
* SYSUT3, * 
SYSUT4 



.* LAST *. 
.♦COMPILATION*. YES 
*.IN BATCH DONE.* 



****£!)********* 

* EXIT TO * 
->* IKFCBL03 * 

* * 
*************** 



***F4* ********** 

* * 

-> CLOSE DATA SETS - 
* * 

**************** 



LINK TO PHASE 01 



* RELEASE TAMER * 
>* AND BUFFER * 

* SPACE * 

* * 
***************** 



****G5* ******** 

* RETURN TO 

* SYSTEM 



* A3 * 



********** 



*****H3********** 
*--INTERLUDEXX--* 
♦PURGE, TCLOSE, * 
->*AS3IGN BUFFERS, *- 
♦DETERMINE NEXT * 
* PHASE * 
***************** 



*****HU* ********* 
*SET NEXT COBOL * 

* SPACE, MOVE * 
>* TABLES IF *- 

* NECESSARY * 

* * 
***************** 



****H5********* 

* * 
->*LINK NEXT PHASE* 

* * 
*************** 



PROGRESS MESSAGE 
IS ALSO VIRITTEN 
IF THE TERM OPTION 
IS IN EFFECT AND 
RETURN IS FROM PHASE 
3, 6, OR 64 



****J2******* 
EXIT TO 
IKFCBL03 

************* 



LINK TO PHASE03 
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| Chart AA (Part 2 of 7) • Phase 00: READ Routine 



*02 * 
FROM * Bl *- 
01C1 " 



■ * * 1 

**** V 



*N( 
**** | 
*02 * 
* CI *-> 

**** V 



***B2*** ******** 



**************** 



***C2* ********** 

* * 

> READ 

* * 

**************** 



***C3** ********* 

* * 

-> CHECK READ 
* * 

**************** 



***C<J********* 

EXIT 
************** 



->* . SYSLIB 



* El * 

* *_> 

**** 



***E1**** ******* 



**************** 



***F1***** ****** 



**************** 



.."-1 

.* ***** 
♦NO *06 * 

i* A2* 



*****P2********* 



**************** 



****Q2********* 

* * 

* EXIT * 

* * 
*************** 
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| Chart AA (Part 3 of 7) . Phase 00: WRITEA, WRITE, and WOOT Routines 



****A1********* 

* * 

* START * 



PHASES WILL BRANCH AND LINK TO COS. REGISTER 
WILL CONTAIN AN ADDRESS POINTING TO A HALFWORD 
CONSTANT (X'XYZZ'). 



***B1******** 
GOSYSGO 

************* 



***C1******** 

GSYSG2 
************* 



**** 

♦ 04 * 

* Bl * 
r ->* * 

YES ** 



*****E2**** ****** 



****D3********** 



**************** 



E3 


* 








***E4******* 


ZZ= 
" *. 


=0 
.* 


* 


*. 


YES 


-> WRITE RECORD 
*************** 



G3 
*'. ZZ= 



***F4*********** 

♦NOTE AND SAVE * 
-> ADDRESS 

* * 

**************** 

***G4 *********** 

♦GET ADDR AND * 
-> POINT 

* * 

**************** 

***H4*********** 

* * 

-> TCLOSE 

* * 

**************** 



***J3********* 

* 
WRITE UPDATE 
* * 

**************** 



****K3********* 
* 

* RETURN 
* 

*************** 
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I Chart AA (Part 4 of 7). Phase 00: WRITEA, WRITE", and WOUT Routines 



* Bl * n 

:.„• 1 

ITEA V 



**************** 



**** 
*04 * 
FROM * CI * 
01E1 * * 



♦.UTILITY FILE 



*****A3********** 

* * 

->*MOVE TO OUTPUT *- 

* + 
***************** 



****AU**** 
* EXIT 



*****32 ********** 

* * 

* * 

* PUT DELIMITER * 

* * 

* * 
***************** 



♦ 04 * 
FROM * Dl *-> 
01B3 * * 



Dl *. 
* * 

PRINTER 



***E1** ********* 



********** 



****pi********* 

* * 

* EXIT * 

* * 
*************** 



D2 *. 
.* *. 

FIRST I/O 



*****E2* ********* 



***C3 *********** 

* * 

-> PUT 

* * 

**************** 



*****D3******** 



*CI4********* 
CHECK 



********* 



***E3* ********** 
* * 

-> PUT 

* * 

**************** 

**** 

* * 

* F3 * 






IS TERM *. NO 

OPTION IN .* 

. EFFECT .* 



* SYSPRINT *. 

UNUSABLE OR . 

*.DMY DATA .* 

*. SET . * 



H2 *. 
.*IS THIS*. 
.♦A PROGRESS *. YES 

*. MESSAGE FOR .* 

*. SYSTERM .* 
♦.ONLY .* 
*. . * 
♦NO 



♦MOVE TO LINE * 
-> AND WRITE ON 
* SYSPRINT * 

**************** 



***** G 3********** 

* * 

* POINT TO * 
->*SYSTERM BUFFERS*- 

* AND DECB * 

* * 
***************** 



***DU** ********* 

* * 

PUT 

* * 

*************** 



****E4******* 
EXIT 



*FU******* 

EXIT 
********** 



**C5**** 

EXIT 



**E)5********* 

EXIT * 
* 
************* 



******** 






♦MOVE TO LINE 
AND WRITE ON 
* SYSTERM 

**************** 



.*PH HAS ♦. 

.♦ ERROR MSG *. 

♦.FOR SYSPRINT . 

*.S SYSTERM.* 



** G 5********* 

EXIT 
************* 



♦NO 

L 



*****K3** ******** 

* SET SWITCH TO * 

* WRITE ON * 
>♦ SYSTERM AFTER *- 

* SYSPRINT * 

* * 
***************** 



**K4******* 



* F3 * 

* * 

**** 



**************** 



202 Section 3. Program Organization 



Licensed Material * Property of IBM 



I Chart AA (Part 5 of 7) „ Phase 00: HPCH and WGO Routines 



*05 * 

FROM * B2 *- 
01C3 ■ 



* B2 *— ■> 

* * 1 
**** v 



**** 
*05 * 
FROM * C2 *-> 
01D3 * * 



*****C3* ********* 

< — * MOVE * 

* * 

***************** 



*****q4 ********** 



*** D 4****, 

PUT 

* 

************* 



*****Q4********** 
* * 

>* MOVE * 
***************** 



I .... 

l_>* * 

* J2 * 

* * 
**** 



**** 

* * 

* J2 * 

* *-> 

***J2*********** 

* * 

BLANK PUNCH <- 

* * 

**************** 



****K2** ******* 

* * 

* EXIT * 
*************** 



FIRST PUT .*- 



*****j3****** 



*********** 



*** K 3 *********** 

PUT 

* * 

**************** 
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| Chart AA (Part 6 of 7). Phase 00: READ Library Routines 

***** 

♦ 06 * 

* A2* 



.* LIBRARY *. NO 

OPENED . * 

♦.CORRECTLY.* 



A4 * 
COPY 



****A5********* 

* RET TO PH 10/ * 
->*12/ IB CALLING * 

* RTN W/ERR CDE * 
*************** 



***** 

*02 * READB 

* CI* 



C2 *. 
.* *. 

FIRST I/O 



*. NEW MEMBER 



*****p3***** 



***************** 



********** 



* * ***p2* ********* 
** ** 

** ** 

**FIND (MACRO) ** 
** ** 

** ** 

***************** 



TRMNATE 

*****54********** 

* STORE POINTER * 
*TO ERROR CODE 6* 

— >*REGS € 1 (FOR* 

* SYNADAF) IN * 

* COMMON * 
***************** 



**** C 5*****. 
RETURN 



***D4****** 
EXIT TO 
IKFCBL03 

***********: 



LINK TO PHASE03 



**H1********** 

** 
READ NOTE **< 



RLIBGO 

YES 



.BASIS REQUEST. 



**************** 



****J2* ******** 

* RET W/REC TO * 

* PHASE 10/ 12/ * 
♦IB CALLING RTN * 

*************** 
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| Chart AA (Part 7 of 7) . Phase 00: PLSCALL Routines 



c 



>- 



FROM PLS 
CALLING 
PHASE 



TURN ON 
PLSRTN 
■ SWITCH 





ISSUE 
FINE 



C3^ 
y^ MEMBER \ 



C4 



%. FOUND S*~ 

|yes 



TURN ON MEMBER 
NOT FOUND 
SWITCH AND SET 
RETURN CODE 




SET R0 TO 
POINT TO 
REQUEST . 
PARAMETER 




TURN ON I-C 
ERROR SWITCH 
AND SET 
RETURN CODE 




ISSUE 
CHECK 



ISSUE 
OPEN 




TURN ON EOF 
SWITCH AND 
SET RETURN 
CODE 




01 
Al 




ISSUE 
CLOSE 




SYNAD 
ERROR 



TURN ON SYNAD 
ERROR SWITCH 
AND SET 
RETURN CODE 



-U J2 J 



SET 

RETURN 

CODE 



TURN ON 
BAD OPEN 
SWITCH 



UPDATE 
BUFFER 
CONTROL 
INFORMATION 



O* 



TURN OFF 

PLSRTN 

SWITCH 



SET 

RETURN 

CODE 



C RETURN ^ 
TO CALLER J 




TURN ON READ 
MORE SWITCH 
AND SET 
RETURN CODE 
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Chart BA. Phase 01: Overall Flow 



* * 

* IKFCBL01 * 

* * 
*************** 



***** B 3********* 



******** ******** 



**** C 2********* 

* * 

* EXIT * 

* * 
*************** 



-[enter from PHASE 00 
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I Chart BB. Phase 02: Overall 



IKFCBL02 



Tenter from 

-I PHASE 00 



.i.-tgll********,! 



.* FIRST IN *. NO 

*. BATCH OR .* -, 

♦. NOBATCH .* I 



***** CI ********** 
♦USE BLDL MACRO * 
♦TO DETERMINE PH* 

* SIZES S SET ♦-• 
♦COBOL SP CONSTS* 

* * 
***************** 



V 

***** D J;* ********* 

*SCAI1 PARAMETERS* 
*FROM EXEC CARD,* 

* CBL CARD, OR * 

* COBOL COMMAND * 



ALSO SETS 

LONGPHSE = 

LENGTH OF PHASE 00 + 

LENGTH OF THE LONGEST 

PHASE 



- * MAIN *. NO 

.STORAGE SIZE .* 

+. SPECIFIED.* 



********* 



Fl *. 

.* HAVE *. 
.* AUGMENTED +. YES 

.DDNAMES BEEN .* 

*. PASSED .* 



*****P2********** 

* * 

* * 
->* MOVE TO DCB'S * 

* * 
***************** 



HEW HEADER 



*****G2* ********* 

* * 

* * 
->* MOVE TO PRINT * 

***************** 



************** 



***+*Q5********** 

* * 

*■ GETMAIN FOR * 

>* NECESSARY * 

* STORAGE * 



D4^~ 



YES .* *. 

[-♦.LIB SPECIFIED. 



OPEN 
SYSLIB 



DATE 

BUFFER CONTROL BLOCKS 

TAMER AREAS 

MAIN STORAGE LEFT 

SWITCHES 



**** 

* * 

* FU * 
+ *_ 

**** 


'I 

******* 




***F4 


**** 


* 
-> READ CARD 


<— 



*****E5* ********* 

* * 

* RETURN * 
-♦INFORMATION TO * 

* PHASE 00 * 



BATCH MODE 



******** 



*****HU ********** 

* STORE ADDRESS * 
*OF CARD. SET ON* 
*CARDHELD SWITCH* 

* IN COMMON * 

***************** 



*****K4 ********** 



***************** 



****K5********* 

EXIT 
*************** 



* E3 * 
**** 
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| Chart BC. Phase 03: Overall Flow 



****A1* ******** 

* * 

* IKFCBL03 * 

* * 
**************** 



♦SAVE REGISTERS * 

* ESTABLISH * 
♦ADDRESSABILITY * 

* * 
***************** 



STEP1 

*****ci********** 

*GET INDEX FROM * 

* KTRMNATE FOR * 

* SYNAD ROUTINE * 

* OR PHASE 00 * 

* TERMINATION * 
***************** 



SYNAD EXIT 



*****£!********** 



***************** 



*****C2*** ******* 

♦LOADS REGISTERS* 

>♦ AND 1 FROM ♦ 

♦ COMMON * 



*****D2**** ****** 
♦♦ISSUE SYNADAF+* 
♦♦ MACRO TO ♦* 
**OBTAIN ERROR ♦*- 
** MESSAGE ** 



******** 



***** 



*****D3*** ******* 



***************** 



*****D4********* 

* SET SWITCHES 

* FOR WRITE TO 
->+SYSTERM AND/OR 

* SYSPRINT OR 

* NEITHER 
**************** 



*****D5******** 
♦* ISSUE WTO 
** MACRO TO 
->*♦ PRINT OUT 
♦* MESSAGE 
** 
*************** 



.♦MESSAGE TO ♦. NO 

♦.BE WRITTEN TO.* 

♦. SYSTERM .♦ 



*****G1**** ****** 

* SET SWITCH TO * 

* INDICATE THAT * 

* MESSAGE IS TO *- 

* GO TO SYSTERM * 

* * 
***************** 



.* NOPRINT *. 

->* . (TSO) OPTION . 

♦.IN EFFECT.* 



*****p4 ********** 

* * 
♦BRANCH TO PHASE* 

->♦ 00 TO PUT OUT ♦ 

* MESSAGE ♦ 

* * 
***************** 



♦**H2* ♦**♦**♦♦** 

* * 

OPEN SYSPRINT 

* * 

**************** 



*****G3 ********** 

* * 
♦PURGE SYSPRINT ♦ 
♦AND/OR SYSTERM ♦ 

* AS NECESSARY ♦ 

* ♦ 
***************** 



SKPRNT3 

*****H3 ********** 
♦SET RETURN CODE* 

♦ AND TURN OFF * 
♦BATCHSW TO SKIP* 

♦ REST OF * 

♦ PROGRAMS ♦ 
***************** 



****J3********* 

* EXIT TO PHASE ♦ 

* 00 ♦ 

* * 
*************** 
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I Chart BD (Part 1 of 4). Phase 04: 



IKFCBL04 



f IKFCBL04 J 


B2 < 


7 


PH04INIT 


INITIALIZE 


PHASE 


C2 , 


r 


GET A 


CARD 


(SYSIN) 



PERFORM 

COPY 

PASS 



CLOSE 

LIBRARY 

DCBs 





1> 


BASISRTN 


IT ^sYES 

IS yS 


PROCESS 

BASIS 

PASS 


NO 







G2^ 

4/^ BASIS ^sJ( 
V N. RUN yS^ 



CLOSE FILE 2 
(BASIS 
WORK FILE) 



PHASE00 


CLOSE 
SYSUT4 


J2 


7 


f RETURN TO \ 
V PHASE 00 J 
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I Chart BD (Part 2 of 4) . Phase 04: 



BASISRTN 



( ENTER J 



CKBASIS 



VERIFY BASIS 
LIBRARY 
EXISTS— 
READ CARD 



GET FIRST 
BASIS 
CONTROL CARD 



D2J? 

y^ sysin ^sj£ 

V. EOF y^~ 





INSERT card 
IN SOURCE 



PROCESS 
INSERT/ 
DELETE 



READ 
LIBRARY 
TO EOF 



TCLOSE 
WORK FILE 
(SYSUT2) 



GET NEXT 

SiTSIN 

CARD 



f EXIT J 
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I Chart BD (Part 3 of 4). Phase 04: COPIRTN 



COPYRTN 
A2 



( ENTER J 



GET NEXT 

SOURCE 

CARD 



PROCESS 
COPY 




-i/ EXIT j 
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| Chart BD (Part 4 of 4) . Phase 04: COPYPROC 



COP YP ROC 
A2 



f ENTER J 



OPEN. 
LIBRARY, 
FIND MEMBER 



ERRORS 
FOUND 



READ, UPDATE 

LIBRARY 

MEMBER 






REPLACING \YES 
NEXT 



S^ ERRORS ^^ YES 
.S. SO FAR v^ 



( EXIT J 



INDICATE 
NO PRINT 
OF COPIED 
TEXT 



CKARGS 



SYNTAX CHECK, 
SAVE 

REPLACING 
ARGUMENTS 



SET UP 
TO OUTPUT 
ERROR 



OUTPUT 
E-TEXT 
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| Chart BE (Part 1 of 3) . Phase 05: Overall Flow 



ENTER PHASE 05 
VIA PHASE 00 



HOUSEKEEPING 



LANGUAGE 
ANALYSIS 
ROUTINES 



ENDPROG 



FLUSH 
HOLDAREA 
ONTO SYSUT2, 
CLOSE FILES 



EXIT TO 
PHASE 00 
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| Chart BE (Part 2 of 3) . Phase 05: Language Analysis Routine 



CTLBGN 



START A 
NEW CLAUSE 
BY PUSHING 
DOWN ONE LEVEL 



MAYBE 



DECODE A 
PORTION OF 
THE NEXT 
Y- INSTRUCTION 








PROCESS 
■t>| TEST 

INSTRUCTIONS 



PROCESS 

CTLTST 
INSTRUCTION 



<T CTLBGN "> W Al J 



PROCESS 
-t>J GENERATE 

INSTRUCTION 



PROCESS 
-t>J MODIFY 

INSTRUCTION 



PROCESS 

CHANGE 

INSTRUCTION 



PROCESS 
EXECUTE 
INSTRUCTION 




TEST WAS 
FALSE SEE 
IF SYNTAX 
ERROR 




EXIT 
FROM 
CLAUSE 
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! Chart BE (Part 3 of 3) , Phase 05: Input and Scanning Routines (SCAN) 



j' ERROR \. 

V. RECOVERY ^ 

\MODE y^ 


YES 


FETCH 
TOKEN 


FROM 




INSTEAD OF 
CARD 


C2 \ 


NO 

7 








SCAN12 






FETCH TOKEN BY 
SCANNING NEXT 
ONE FROM CARD 












D2 J 


' 






SCAN14 




BEGIN TOKEN 

TYPE 

DETERMINATION 




E2 \ 


; 




DETERMINE TOKEN 
TYPE AND STORE 
TOKEN IN 
IIOLDAREA 





( EXIT J 
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J Chart BF (Part 1 of 4). Phase 06: Overall Flow 



HOUSEKEEPING 



START 

NEXT 

PASS 



FETCH ONE 

IPTEXT 

ITEM 



PROCESS 
AN IPTEXT 
ITEM 



PUT ONE 

IPTEXT 

ITEM 




EXCHANGE 
ROLGS OP 
SYSUT2, SYSUT3 



s^ LAST X^ 
"N. PASS s* 



EXIT TO 
PHASE 00 



ENTER PHASE 06 
VIA PHASE 00 
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| Chart BF (Part 2 of 4) . Phase 06: IPTEXT ITEM Processors 



BDEFX 



PROCESS BDEF 
ITEM. SET 
POSITION IN 
DEFINITION 
VECTOR AND 
SET TO 
DEFINITION 
STATUS 



BSTMX 



STEP STM 
NUMBER BY 1 
TO REFLECT 
BSTM ITEM 



BREFX 



RESET ADDR 
POINTER TO 
REF VECTOR, 
SET REFERENCE 
STATUS 



AXRTN 



MERGE IN 
ASCENDING 
ALPHA ORDER 
ALL 

DEFINITIONS 
IN CORE WITH 
THOSE ON THE 
IPTEXT INPUT 
FILE 



(See Chart BF 
Part 1) 



(See Chart : 
Part 1) 



(See Chart BF 
Part 1) 



(See Chart BF 
Part 1) 



COPYX 



BEGIN COPY 
ACROSS OF 
^LL IPTEXT 
ITEMS 




(See Chart BF 
Part 1) 
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| Chart BF (Part 3 of 4). Phase 06: IPTEXT ITEM Processors 



GET READY 
TO PROCESS 



EDREFX2 



CONCATENATE 
EXPLICIT 
ARGUMENTS 
AND STEP TO 
ADDRESS THE 
RIGHTMOST 



RECODE AND 
ATTEMPT TO 
RESOLVE 



CHECK FOR 

PRIOR 

RESOLUTION 




(See Chart BF 
Part 1) 



B3£ 

/PRIOR V 

"^RESOLUTION,/" - 




STEP PAST 
POINT FOR 
EXPLICIT 
ARGUMENTS 



EDREFX6 



STORE 
CURRENT 
STATEMENT 
NUMBER 



CODE AS 
AN EDREF 



(See Chart BF 
Part 1) 



<f RESOLVED J>£ 



(See Chart BF 
Part 1) 
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I Chart BF (Part 1 of i|). Phase 06: IPTEXT ITEM Processors 




(See Chart BF 
Part 3) 




EDREFX3 



RECODE 

EDRGP 

FULL RESOLVE 

IF LAST PASS 

(See Chart BF 

Part 3) 



EDREFX 



GO TO 
PROCESS AS 
NORMAL 
REFERENCE 
(See Chart 
Part 3) 



RESOLVE 
IT 



APPEMPT 
RESOLUTION 
WITH SECTION 
NAME AS SOLE 
IMPLICIT 
QUALIFIER 



^1 

<Q RESOLUTION ^3 




EDREFX8 



GO TO 
RESET 
REFERENCE 
STATUS 



(See Chart BF 
Part 3) 



CONSTRUCT 
AND ATTEMPT 
TO STORE TWO 
REFERENCES 
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| Chart BG (Part 1 of 2) . Phase 08: Overall Flow 




HOUSEKEEPING 

PRINT 

PREFACE 



DMAIN 



PROCESS THE 
ID, ENV, AND 
DATA 
DIVISIONS 



PROCESS THE 

PROCEDURE 

DIVISION 



END OF PASS-1. 
RETURN TO 
PHASE- 
CONTROL 



PRINT THE 
SUMMARY 



PRINT THE 
ALPHA INDEX 



EXIT TO 
PHOO. 
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| Chart BG (Part 2 of 2) . Phase 08: Data Division Flow 





A2 






DMAIN 


0- 


BEGIN WITH 

LISTING 

PAGE 




B2 v 


f B2 J 


BUILD 
STATEMENT 
INTO 
PAGE-AREA 




PUT 

STATEMENT 
NUMBER INTO 
SUMMARY 
TABLE 



PRINT A 
LISTING 
PAGE 



PACK 

PAGE-AREA 
OVER 
PRINTED 

STATEMENTS 



SET UP 
FOR NEXT 
PAGE 
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Chart CA, Phase 10: Overall Flow 



****A3********* 

* 

* IKPCBL10 
* 
*************** 



•*B3******* 

* * 
* 

* HOUSEKEEPING 

* * 
*********** 



CB01A1 
*****C3********** 
•IDDSCN * 

*_*_*_*_*_*-*_*_* 

* SCAN * 
♦IDENTIFICATION + 

* DIVISION * 
***************** 



CC01A2 
*****D3********** 
♦ENVSCN * 

#_*_♦-.*_*-*-*_*-* 

* SCAN * 

* ENVIRONMENT * 

* DIVISION * 
***************** 



V CD01A2 

*****£3********** 

♦DDSCN * 

* SCAN DATA * 

* DIVISION * 

* * 
***************** 



****P3********* 

* EXIT TO PHASE * 

* 00 * 

* ♦ 
*************** 



* fi 

: — li 
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Chart CB, 



Phase 10: 



IDDSCN Routine 



***A1******** 
IDDSCN 



*****33* ********* 
*SET ENDFOOND S * 

* CARDHELD BITS * 
->*ON £ STORE ADDR* 

*OF CBL CARD IN * 

* ADDRCARD * 
***************** 



*****C2********+* 
* CHKEOS + 

* GET NEXT WORD * 
->* AND CHECK END * 

* OF SENTENCE * 



+ *** 



******* 



*****£>!********** 



*************** 



* * 

* F2 * 

* *-> 



*****F1********* 

* 

* 

* STORE DATE 



***** G 2** ******* * 

* * 

* READ AND PASS * 

* ID- DIVISION * 

* STATEMENTS * 



*****H2********* 
* CHKEOS 

* GET NEXT WORD 

* AND CHECK END 

* OF SENTENCE 



****D3++******* 

♦EXIT TO ENVSCN * 

>* ROUTINE * 

* * 

*************** 



*****£3*********i 



**************** 
**** 



**** 
*****P3 ********** 



************* 



****H5********* 
*EXIT TO ENVSCN < 
* ROUTINE 



****: 



I **** 

L_>* * 

* F3 * 



L>.*"% 

* F2 * 
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Chart CC. Phase 10: ENVSCN Routine 



****A2********* 
* 
ENVSCN * 
*************** 





**♦♦ 




♦ * 




* BU * 




* *— X 






GETDLM \ .* 


*****B3********** 


♦process source * 


„* 


* AND OBJECT * 


,* 


->* COMPUTER AND *-— 


>*.NEXT Dr 


* SPECIAL NAMES * 


*. 



***************** 



*************** 



INPUT- 
OUTPUT 
SECTION , 



*****c3********* 

* 
>* PROCESS 

* 
**************** 



I **** 
L_>* * 

* BU * 



CLAUSE - ROUTINE 

SELECT - SELSCN 
APPLY - APPSCN 
RERUN - RRNSCN 
SAME - SMESCH 
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Licensed Material - Property of IBM 



♦ DDSCN ♦ 


i branched to 
[from getdlm 




*************** 






**** 

♦ * 

♦ B2 * 

♦ ♦-> 
**** V 

.♦. 
B2 ♦. 
.♦ *. 
.* *. YES 
♦.FILE SECTION .♦ 


FDSCN 

*****B3^* ♦♦*♦♦♦♦♦ 

* * 

♦ SCAN FILE * 
>* INFORMATION * 


FLVSCN 

*****M********** 

•SCAN RECORDS OF* 
>♦ FILE SECTION * 



**************** 



*************** 



* 


WLVSCN 






GETDLM . ♦. 


1 


C2 ♦ . 


*****C3*********i 




c«» ♦. 


V 


* *. 






.♦ ♦. 


****Q5******** 


WORKING- ♦. YES 


♦ SCAN RECORDS 1 




.* ♦. YES 


♦ EXIT TO PHASE 


STORAGE . * 

SECTION .* 


>♦ AND CONSTANTS * 

* * 




->*.NEXT DIVISION. ♦ 


>* 00 




A *. .* 


♦ . .* 


* 4 






♦ . .♦ 


************** 


♦ . .* 


****************i 






♦. .* 




♦NO 








♦NO 














1 **** 














* B2 ♦ 














* * 




' 


' 








**** 




,4 


► . 


LDSCN 










D2 ♦. 


*****D3*********i 










♦ ♦. 


* 4 










LINKAGE *. YES 


* SCAN LINKAGE * 










SECTION .♦ 

.* 
♦ . .♦ 


>♦ RECORDS < 

* 4 

* 4 





— > 














*. 


.» 


************** **i 











.♦ ♦. YES 

♦ . COMMUNICATION . ♦ 

♦. SECTION .* 



->♦ SCAN CD ENTRY 



**** 

* * 

* C5 ♦ 

* * 



**************** 



*****Y2********** 

* * 
♦SCAN RECORDS OF+ 

♦ COMMUNICATION ♦ 

♦ SECTION ♦ 

* * 
***************** 



*****G2********** 

♦ SET UP FOR ♦ 

♦ REPORT WRITER ♦ 
♦(CALL VIA PHASE^- 

♦ 00) ♦ 
+ ♦ 
***************** 
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Chart CE. Phase 12: Overall Flow 



****A2*** ****** 

* * 

* IKFCBL12 *• 

* * 
*************** 



* AH * 

* *__- 
**** I 

V CJ01A1 

*****A4* ********* 
*GNSPRT * 

*_*_*_*_*_*_*_*_* 
♦GEN PARAMETRIC,* 
♦FIXED ROUTINES-* 
♦GET NEXT RECORD* 
***************** 



***************** 



**************** 



V CF01A2 
*****D2*** ******* 
♦RDSCAN * 

*_*_*_*_*_*_*_*_* 

* PROCESS RD *<■ 

* STATEMENT GET * 

* NEXT RECORD * 
***************** 



*************** 



V CG01A2 



->* PROCESS LEVEL- *<■ 
* 01 STATEMENT ♦ 
♦GET NEXT RECORD* 
***************** 



, CI01A1 
*****F3********** 

♦FLUSH ♦ 



***************** 



*****G2******** 

♦PROC02 

*_*_*_*_*_*_*_*. 

* PROCESS 

* LEVEL- 02- «* 9 

* STATEMENTS 
*************** 



. CI01A1 
*****H2* ********* 
* FLUSH * 

*_*-.*_*_*_*_*_*_* 
♦GENERATE GROUP ♦ 

♦ ROUTINE, GET ♦ 

♦ NEXT RECORD ♦ 
***************** 



♦NO 

U 



OVERALL CONTROL OR PROCESSING 
IS DONE BY THE GETDLM ROUTINE, 
WHICH HAS A SIMILAR FUNCTION 
TO THE GETDLM ROUTINE IN 
PHASES 10 AND IB 



**** 

* 
M * 
* 
**** 
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Chart CF. Phase 12: RDSCAN Routine 



* * 

* RDSCAN * 

* * 
*************** 



♦.RWRTBL PRIMED. * - 



****B3* ******** 

♦RETURN TO PHASE* 

>* 00 * 

* * 

*************** 



***************** 



END OF SCAN .*- 



*. CODE CLAUSE . ♦- 



->*EXIT TO GETDLM * 
*************** 



♦PROCESS CLAUSE ♦ 
->*ENTER IN RPTTBL+ — > 

♦ TABLE ♦ 

♦ * 
***************** 



♦PROCESS CLAUSE ♦ 
>♦ BUILD CTLTBL ♦- 

♦ TABLE ♦ 

* * 
***************** 



->^PROCESS CLAUSE 



**************** 



****H2********** 



**************** 



****J2********* 

* * 
♦EXIT TO GETDLM ♦ 

• * 
*************** 
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Chart CG. Phase 12: PROC01 Routine 



****A2********* 

* * 

* PROC01 * 

**** 

* * 

* B2 * 

* *_> 

**** 
PERD01 1 

*****B2*** ****** 



**************** 



SEE NOTE 
CHART CE 
END01A 

****C3********* 

* * 
>*EXIT TO GETDLM * 

* • * 
*************** 



***************** 



->*PROCESS CLAUSE *- 

* * 

* * 
***************** 



***************** 



♦.USAGE CLAUSE .* 



PR02A 

**T**H2**** ****** 

* CHECK AND 

* PROCESS 
♦ELEMENTARY ITEM' 

* CLAUSE 
* 
**************** 



YES .*STATEMENT A*. NO 

* . VALID 

♦.LEVEL- 01 



YES 


.* USAGE IS *. NO 

>*. DISPLAY .* 

*. .* A 
*. .* 
*. .* 
♦ YES 

**** 
L_>* * 

* B2 * 

* * 
**** 


* ~ 


PR02A~ii~A~PART"*oi' 
PROC02 (CHART CH) 
CONTROL RETURNS TO 
PROC01 AT PR0110 


NO 

* : _„- _—. 



*****pi|********** 

* * 

* GENERATE * 
->* BEGINNING OF *- 

* GROUP ROUTINE ♦ 

* t 
***************** 



****G4********* 

* EXIT TO CLER1 * 
->* (ERROR ROUTINE)* 

* * 
*************** 
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Chart CH. Phase 12: PROC02 Routine 



♦***A1********* 

PROC02 * 
* 
*************** 



A2 *. 

.* *. 

DATA-NAME 



*****B2*** ******* 
*SET SWITCH AND * 
♦SAVE DATA-NAME * 

* FOR PRSRC AND *- 
♦END02A ROUTINES* 

* * 
***************** 



**************** 



,* LEVEL-01 

*. ELEMENTARY 

* . ITEM 



V CG01A2 
*****C4********** 

, *PROC01 * 

*_*_*_*_*_*_*_*_* 

->*CHECK VALIDITY *~ 
* PROCESS OTHER * 
*■■ CLAUSES * 



****C5********* 

->*EXIT TO GETDLM > 

*************** 



*. END OF SCAN 



*****E3******* 



* COMPLETE * 
>* LEVEL-02-19 * 

* PROCESSING * 

* * 
.***************** 



****E4 ********* 

♦EXIT TO GETDLM ■■ 

*************** 



*F5********** 



* IDENTIFY AND 
->*PROCESS CLAUSE ' 

* (SEE NOTE) 



PR0250 
NO .*" 



NOTE: CLAUSE 


PROCESSING ROUTINE 


COLUMN 


PRCOL 


LINE 


PRLN02 


GROUP 


PRG1 * OR PRG2 


SOURCE 


PRSRC 


SUM 


PRSUM 


RESET 


DORSET 


PICTURE 


RPICT1 


BLANK WHEN 


RBLNK1 


ZERO 




JUSTIFIED 


RJUST1 


VALUE 


RVAL11 



*IF GROUP INDICATE 



* LEVEL-01 *. YES 

ELEMENTARY . * 

*. ITEM .* 



n 



********************* 



Vn 



****K3 ********* 

* EXIT TO CLER3 * 
->* (ERROR ROUTINE)* 

* * 
*************** 
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Chart CI. Phase 12: 



FLUSH Routine 



****A1********* 

* FLUSH * 

♦ * 
*************** 



.*NEXT GROUP *. YES 

. CLAUSE WAS .* 

♦.SPECIFIED.* 



* AU * 

* *— 1 
**** V 

XIT5 .*. 

AU *. 
.♦TYPE IS*. 
.* CONTROL *. YES 
♦.HEADING FINAL.* 



.* 



***************** 



****S2*** ****** 



*************** 



B«* *. 
.♦TYPE IS*. 
.* CONTROL *. YES 
♦ .FOOTING FINALS - 



******** 



******** 



***************** 



**************** 



*****£2********** 



.♦ TYPE IS ♦. YES 

* . REPORT . ♦ 

*. FOOTING .♦ 



***************** 



*****F2*** ******* 



TYPE IS 

REPORT 

HEADING 



***************** 



***************** 



*****H2* ********* 



TYPE IS 
CONTROL 
HEADING 



*****j2**** ****** 



TYPE IS 
CONTROL 
FOOTING 



***** C 5********** 

* * 

* INSERT LINES * 
->*COUNT IN SUMTBL* 

* TABLE * 

* * 
***************** 



****D4* ******** 

* * 
♦EXIT TO GETDLM ♦ 

* * 
*************** 



♦NO 

I **** 

L_>* * 



***************** 
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Chart CJ. Phase 12: GNSPRT and SPCRTS Routines 



****A1******** 
* GNSPRT 
************** 



**A3 

SPCRTS 



******** [entered 

* from gnsprt 

RTS * L 



GENERATE DATA 

IC-TEXT FOR 
N-POINT NAMES 



*****Q3 ********* 



**************** 



*****C1***** 



*****C(4********** 



*********** 



***** D 1****** 



************ 



INCLUDES ONE GRP.IND 
(LEVEL- 01) CONSISTING 
OF ONE GP.NNNN (LEVEL- 02) 
NAME FOR EACH GROUP 
INDICATE CLAUSE IN THE 
DETAIL REPORT GROUP. 



♦ NO 



*****D3* ********* 

* * 

* GENRATE ONE * 

* USM-ROUT FOR * 

* EACH DET-ROUT * 

* * 
***************** 



***E3********** 



***************** 



*************** 



DOROL 

***** pi ********** 

* BUILD ROLTBL * 
♦TABLE BASED ON * 

* ENTRIES IN * 

* SUMTBL TABLE * 



******** 



2********** 



♦ NEED A *. YES 

DUMMY GROUP .♦ 

♦. ROUTINE .* 



CLRD CHECKS ONLY FOR THE 
FOLLOWING GROUP ROUTINES 
AND BRANCHES ACCORDINGLY 





ROUTINE 


BRANCH TO 


* ROUTINI 

* ROUTBL 
********x 


:s INTO ♦ 
TABLE ♦ 

' CJ01A3 

******** 

♦ 

_*_*_*_* 

FE REST ♦ 

JTINES ♦ 
* 


CHF 
CFF 
PGF 
PGH 
RPH 
RPF 




PCTH21 

PCTF21 

PPGF 

PPGH 

PRPH 

PRPF 


\ 
***** K1 *< 

♦SPCRTS 
*_*_*_*_* 

♦ GENERA! 

♦ OF ROl 


SEE NOTE 
CHART CE 

* * 
>+EXIT TO GETDLM ♦ 

♦ ♦ 
*************** 



**+H3**** ****** 



************* 



****J3********* 



*********: 



********* 



********** 



*****Q4* ********* 



********** 



**H4***^*^**** 



***************** 



***J4********** 



**************** 



****K4********* 

* RETURN TO * 

* GNSPRT * 

* * 
*************** 
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Chart CK. Phase 1B: Overall Flow (PDSCN Routine) 



****A1********* 

* * 

* IKFCBLIB * 
*************** 



ENTER VIA PHASE 00. 

THE PDSCN ROUTINE CONTROLS 

THE PROCEDURE DIVISION 

PROCESSING. 



.♦LAST CD*. 
.♦OF CURRENT ♦. 

>*.PROG READ IN . 

♦.PHASE 10 .* 






PROC *. NO 

DIVISION . + 

. HEADER .* 



*****C2+ ********* 

* * 

* * 
->+PUT OUT E-TEXT ♦ 

* * 

* * 
***************** 



.♦ *. YES 

♦.DECLARATIVES .♦ 

♦. SECTION .♦ 



PROCESS USE ♦ 

♦ 

♦ 

**************** 



* SET UP ♦ 
->+LEFT-HAND NAME ♦-■ 

♦WITH ATTRIBUTES* 

* * 
***************** 



*****E3*** ******* 



♦ DICENT ♦ 

— >♦ PUT IN * 

♦ DICTIONARY ♦ 

* * 
***************** 



*****B4********** 

♦ SET CARDHELD ♦ 

♦ BIT ON IN ♦ 
~>*COMMON & STORE ♦ 

♦ADDR OF CBL CD ♦ 

♦ IN ADDRCARD * 
***************** 

I **** 



*****?[)********** 



*****G2********** 



->♦ 



*****Hi* ********* 

♦ * 

♦ END PROC DIV ♦ 

♦ AND PHASE IB * 

♦ PROCESSING ♦ 



i********** 



****** 

**** 

* * 

♦ Jl ♦ 



****jl********* 

♦ EXIT TO PHASE ; 

♦ 00 



RESET 

DECLARATIVE 

SWITCH 



***************** 

I .... 

L_>* * 

* El ♦ 

♦ * 
**** 



***************** 



*****G4********** 

* * 

* SUBSTITUTE * 
■->* ENCODED COBOL ♦ — > 

♦PROC STATEMENTS^ 

* ♦ 
***************** 



****>t<H3********** 

♦ ♦ 
* GENA * 

♦ PUT OUT ON * 

♦ SYSUT2 ♦ 

♦ * 
***************** 

**** 

L->* ♦ 

♦ El ♦ 

♦ ♦ 
**** 
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Chart DA. Phase 20: Overall Flow 



•••*A2********* 

* * 

* IKFCBL20 * 

* + 
*************** 



**B2******* 



*********** 



C2 *. 
.* NEXT *. 
.♦SECTION IS ♦ . YES 
♦.FILE SECTION .♦ 



D2 *. 

.* NEXT *. 
.♦SECTION IS ♦. YES 

* . WORKING- . ♦ 

STORAGE .♦ 



*. 



DB01A1 

*****C3********** 

♦FILEST ♦ 

*_*_*_*_*_*_*_*_*. 

>♦ PROCESS FILE ♦ 

♦ SECTION ♦ 

* * 
***************** 



>♦ PROCESS * 
♦WORKING-STORAGE* 
* SECTION * 
***************** 



E2 *. 

.♦ NEXT ♦. 

.♦SECTION IS ♦ 

♦ . LINKAGE 

♦. SECTION .♦ 

♦ . .* 

♦. .♦ 



DC01A3 
*****£3** ******** 
♦LINKST ♦ 



***************** 



F2 ♦. 
.♦ NEXT ♦. 
.♦SECTION IS ♦. YES 
♦.COMM SECTION .♦ 



DC01F2 

*****P3 ********** 

♦COMSCT ♦ 

*_*_*_*_*_*_*_*_* 

>♦ PROCESS ♦ 

♦ COMMUNICATION ♦ 

♦ SECTION ♦ 
***************** 






G2 
.♦ NEJ 

.♦SECTK 

♦ . REP< 

♦ . SEC 

*. 
*. 


N. 

*. 

il ♦. 

DN IS ♦. YES 
DRT . ♦ 

CION .♦ 

.* 
.* 
NO 


DC01A5 

*****Q3**** ****** 

♦REPORT ♦ 

*_*-*-*_*-*-*_*_* 

>+PROCESS REPORT ♦ 

♦ SECTION ♦ 

* * 
***************** 

j 


PHTERM 

*****H2*> 

♦ '■' 

♦ TERMII 

♦ PROCE. 


********* 

* 

NATION ♦ 

3SING ♦ 





***************** 



****J2********* 

* EXIT TO PHASE ♦ 

* 00 ♦ 

* * 
*************** 
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Chart DB. Phase 20: FILEST Routine 



****A1********* 
* 
* FILEST 



.* END OF *. YES 

->*. SECTION OR .* 

* . FILE . * 



****B2* ******** 

* RETURN TO * 

* MAINLINE * 



***C2*********** 




>* BUILD LABTBL 



***D2 *********** 



->*GET NEXT ENTRY * 



************** 



n 



*****f^**** ****** 

♦CHECK TO SEE IF* 

* ITEM IS * 

* LABEL/DATA * 

* RECORD * 
***************** 



*****Gi******* 



DD01A1 
***** HI**** ****** 
♦LDTEXT * 



-88 ENTRIES 



*************** 

* * 

* Bl * 

* * 
***+ 
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Chart DC. Phase 20: WSTSCT, LINKST, COMSCT, and REPORT Routines 



***A1********* 
* 
WSTSCT * 
* 

************** 



**Q1******* 

* * 

* INITIALIZE * 
♦AREAS, SWITCHES* 

* AND TABLES * 

* * 
*********** 



DD01A1 
*****C1 ********** 
♦LDTEXT * 

*_*_*_*_*_*_*_*_* 

* PROCESS LEVEL ♦<- 

* DESCRIPTION * 

* ENTRIES * 
***************** 



* END OF 

SECTION OR 
* . FILE 



****A3 ********* 

* * 

* LINKST * 

* * 
*************** 



* INITIALIZE * 
♦AREAS, SWITCHES* 

* AND TABLES * 

*********** 



. DD01A1 
*****C3**** ****** 
*LDTEXT * 

*_*_*_*_*_*_*_*_* 

* PROCESS LEVEL *<- 

* DESCRIPTION * 

* ENTRIES * 
***************** 



.* END OF 

*. SECTION OR 

* . FILE 



****A5* ******** 
* 
* REPORT 

*************** 



* INITIALIZE * 
•AREAS, SWITCHES* 

* AND TABLES * 
* * 

*********** 



DD01A1 
*****C5 ********** 
* LDTEXT * 

*-*-*-*-*-*-*-*-* 

* PROCESS LEVEL *<- 

* DESCRIPTION * 

* ENTRIES * 
***************** 



* END OF 

SECTION OR 
* , FILE 



DA01A2 
*** 



****E1' 

* RETURN TO 

* MAINLINE 
* 

************** 



****£3* ******** 

* RETURN TO * 

* MAINLINE * 



****£5********* 

RETURN TO 
MAINLINE 

*************** 



****P2********* 

* * 

* COMSCT * 

* * 
*************** 



* INITIALIZE * 
♦AREAS, SWITCHES* 

* AND TABLES * 



DD01A1 
*****H2 ********** 
♦LDTEXT ♦ 

*_*_*_+_*_*_*-*_* 

* PROCESS LEVEL *<-■ 

* DESCRIPTION ♦ 

* ENTRIES ♦ 
***************** 



♦ END OF 

SECTION OR 
♦. FILE 



**K2********* 
RETURN TO ♦ 
MAINLINE ♦ 

************* 
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Chart DD. Phase 20: LDTEXT Routine 



****A1 ********* 

* * 

* LDTEXT * 

* * 
*************** 



************ 



DETERMINE 

SUBSCRIPT 

REQUIREMENT 



.♦OCCURS AND *. YES 

*. INDEXED BY .* 

*. CLAUSE .* 



♦WRITE OUT ID 
-> NAMES AND KEYS 
* ON SYSUT4 * 



* * 

* AU 



•1 



**** 
BELEMI 

*****£(}********** 

* CHECKS FOR * 

* VALIDITY OF * 

* CLAUSES ON * 
♦ELEMENTARY ITEM* 

* * 
***************** 



C4 *. 
.* *. 
.* * 

♦.VALUE CLAUSE 



***♦ 
BNORML 

*****D4** ******* 



PICTAN 

*****B5********** 

♦ CALL ♦ 

♦ APPROPRIATE * 
>* PICTURE * 

* ANALYSIS * 

* ROUTINE * 
***************** 



VALGEN 

***v*c5* **♦♦♦**** 

* CALL * 

* APPROPRIATE * 
>*VALUE ANALYSIS * 

* ROUTINE * 

* * 
***************** 



***************** 



CHECK USAGE ' 
CLAUSE 
COMPATIBILITY > 

***************: 



*****m* ********* 

* * 

* * 

* ITEM ANALYSIS * 

* * 

***************** 



I **** 

L_>* * 



BGROUP 

*****J2 ********** 

* CHECKS FOR ♦ 

* VALIDITY OF * 
>* CLAUSES ON *- 

* GROUP * 



***************** 



GENERATE 

ATF-TEXT ON 

SYSUT4 



* . DATA-A TEXT . *- 



****GU***+***** 

* RETURN TO * 

* CALLER * 

*************** 



->*. VALUE CLAUSE . *- 



* DU * 

* * 
**** 



* CALL APPRO 
>* VALUE ANALYSIS 

* ROUTINE 



*********** 

**♦* 

* 
* D4 * 



L.- 



***F5* ********** 

♦GENERATE DATA * 
A-TEXT ON 
* SYSUT4 * 
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.****hl********* 
♦' ♦ 

♦ IKFCBL22 * 

* * 
*************** 



**B1******* 

* INITIALIZE * 
* CONSTANTS AND * 

* WORD AREAS * 

*********** 



DIR V DK01B1 
*****D1********** 
♦READFU * 

— >* geY~next * 

♦LOGICAL RECORD * 
* FROM SYSUT4 * 
***************** 



* * 
♦RELEASE TABLES,* 

>* DELIMIT ♦- 

* DICTIONARY • 

* * 
***************** 



♦EXIT TO SECTION* 

>* ROUTINE ♦- 

♦ ♦ 

*************** 



****E3********* 
♦RETURN TO PHASER 

>* 00 ♦ 

♦ ♦ 

*************** 



FSECT - FOR FILE SECTION. (CHART DF01A2) 
WSECT - FOR WORKING- STORAGE SECTION. (CHART DG01A1) 
LSECT - FOR LINKAGE SECTION. (CHART DG01A3) 
CDSECT - FOR COMMUNICATION SECTION. (CHART DH01A2) 
RSECT - FOR REPORT SECTION. (CHART DI01A2) 



*****G1********** 

♦ SET UP FOR * 

♦ BRANCH TO ♦ 
-♦CORRES SECTION ♦ 

♦ ROUTINE ♦ 

♦ ♦ 
***************** 
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****A2* ******** 

* *■ 

* FSECT * 

* * 
*************** 



**B2******* 

* * 

INITIALIZE 

SECTION 

CONSTANTS 



->*.IS ITEM AN FD.*- 
*. .* 

*. .* 
♦ . .♦ 



* PASS DATA * 
->*IC-TEXT FOR FD *- 

* ON SYSUT3 * 

* * 
***************** 



* PASS DATA * 
->*IC-TEXT FOR SD *- 

* ON SYSUT3 * 

* * 
***************** 



*****E3********** 

* SET UP MAJOR * 

* CODE- BL TYPE * 
->* ACCORDING TO * 

♦WHETHER ITEM IS* 
* LABEL/DATA RCD * 
***************** 



DJ01A2 
*****F2**** ****** 
♦LDTXT * 

*_*_*_*_*_*_*_*_* 

♦ PROCESS LEVEL- ♦<• 

* 01/49 ITEMS ♦ 
♦ENTER INTO DICT* 
***************** 



V DK01B1 



♦ GET NEXT ♦<■ 
* LOGICAL RECORD * 

* FROM SYSUT4 ♦ 
***************** 



H2 ♦. 

.♦EOF OR *. 

.* CRITICAL ♦. 

.PROGRAM BREAK. 



**H3***+*** 

♦INITIALIZE * 

♦SWITCHES FOR ♦ 

♦ PROCESSING OF 

♦ SUCCEEDING ♦ 

♦ SECTIONS * 

*********** 



****J3********* 

* RETURN TO ♦ 

* MAINLINE * 

* * 
*************** 



*** **££}** ******** 

* GETPTR * 

♦GET DICTIONARY * 
>* POINTER FOR * 

* ITEM ♦ 

* * 
***************** 



*****£!;********** 
* XREF- ♦ 

♦ WRITE * 
♦SXREF/XREF DATA* 
♦A-TEXT ELT. IF * 

* APPLICABLE * 
***************** 



*****F4 ********** 

* BCONDE * 

♦IF ITEM IS COND* 
*VAR DELIMITER, * 

* DELIMIT COND * 

* VARIABLE * 
***************** 



V DL01B2 
*****G(|** ******** 

♦DICTBD * 

*_*_*_*_*_*_*_*_* 
*ENTER ITEM INTO* 
DICTIONARY * 
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* 

* WSECT 



♦*B1******* 

♦INITIALIZE * 

* SECTION * 

* CONSTANTS. 

♦SWITCHES, km* 

♦WORK AREAS ♦ 



->+ PROCESS LEVEL- ♦ 
♦01-4 9. 77 ITEMS+ 
♦ ENTER IN DICT ♦ 



♦ GET NEXT 
♦LOGICAL RECORD 

♦ FROM SYSUTH 



.♦EOF OR ♦. 

.♦ CRITICAL *. 

♦.PROGRAM BREAK. 



****A3********* 

♦ * 

♦ LSECT ♦ 

♦ * 
*************** 



**B3******* 

♦INITIALIZE ♦ 

♦ SECTION ♦ 

♦ CONSTANTS, 

♦SWITCHES, AND+ 

♦WORK AREAS ♦ 

*********** 



DJ01A2 
*****C3** ******** 

♦LDTXT ♦ 

*_*_*_*_*;_*_*_*_* 

->+PROCESS LEVEL- * 
♦01-49, 77 ITEMS+ 
♦ ENTER IN DICT * 
***************** 



*_*_*_*_*_*_*_*_* 

♦ GET NEXT ♦ 
♦LOGICAL RECORD ♦ 

♦ ON SYSUTU ♦ 
***************** 



.♦EOF OR ♦. 

.♦ CRITICAL ♦. 

-♦.PROGRAM BREAK.* 



fENTER~FROM"" 
-[DIR010__ 



****F1*******> 
RETURN TO 
MAINLINE 



***P3********* 
RETURN TO ♦ 
MAINLINE ♦ 
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* * 

* CDSECT * 

* * 
*************** 



**B2******* 

♦INITIALIZE * 

* SECTION * 

* CONSTANTS. 

♦SWITCHES, AND* 

♦WORK AREAS ♦ 

*********** 



fiNTiiTFRoi 

-Idiroio 



*****C3****"**** 

* * 

* SET UP ENTRY ♦ 
>♦ FOR CD *- 

* ♦ 

* ♦ 
***************** 



DJ01A2 
*****D2* ********* 
♦LDTXT ♦ 

*_*_*_*_*_*_*_*_* 
♦PROCESS LEVEL- ♦ 

♦ 01-49 ITEMS ♦ 

* ENTER IN DICT * 
***************** 



DL01B2 

*****C4* ********* 

♦DICTBD * 

*_*_*_*_*_*_*_*_* 

->* ENTER ITEM IN ♦ 

♦ DICTIONARY ♦ 

* * 
***************** 






USER ♦. 
SPECIFIED . 
. CLAUSES .♦ 



DK01A2 
*****£2*** ******* 
♦READFU ♦ 

*_*_*_*_*_*_*_*_* 

♦ GET NEXT ♦ 
♦LOGICAL RECORD ♦ 

♦ ON SYSUT4 ♦ 
***************** 



.♦EOF OR ♦. 

.♦ CRITICAL ♦. 

-♦.PROGRAM BREAKS 



*****£!)* ********* 



***************** 



***************** 



****G2* ******** 

♦ RETURN TO * 

♦ MAINLINE ♦ 

♦ * 
*************** 
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* *. 

* RSECT * 



Ienter : 

- JDIR010 



♦♦B2*****«* 

♦INITIALIZE * 

* SECTION * 

♦ CONSTANTS. * 

♦SWITCHES AND ♦ 

♦WORK AREAS ♦ 

*********** 



*****C3*** ******* 



***************** 



*****D3**** ****** 



***************** 



*-****CU* ********* 

♦SET ATTRIBUTES * 

*OF CONTROL ITEM* 

->*TO ALPHANUMERIC* 

* EQUIV OF * 

* QUALIFIER * 
***************** 



*****D4********>l 

* GETPTR 

♦GET DICTIONARY 

>♦ POINTER FOR 

* ITEM 



. DJ01A2 
*****£2** ******** 
♦LDTXT * 

*_*_*-*_*_*_*-*_* 
♦PROCESS LEVEL- * 
♦ 01-49, ITEMS ♦ 
♦ENTER INTO DICT* 
***************** 



DK01B1 
*****G2** ******** 
♦READFU * 

*_*_*_*_*_*-*_*-* 

* GET NEXT 
♦LOGICAL RECORD 

♦ ON SYSUT4 
**************** 






********* 



*****£[)********** 

* xREF * 

♦ WRITE ♦ 
♦SXREF/XREF DATA* 
♦A-TEXT ELT. IF * 

* APPLICABLE * 
***************** 



*****pi| ********** 

* BCONDE * 

♦IF ITEM IS COND* 
♦VAR DELIMITER, ♦ 

♦ DELIMIT COND ♦ 

♦ VARIABLE ♦ 
***************** 



DL01B2 
*****Gt(* ********* 
♦DICTBD * 



************ 



H2 ♦. 
.♦EOF OR ♦. 
.♦ CRITICAL ♦. 
-♦.PROGRAM BREAK. 



****j2********* 

* RETURN TO * 

* MAINLINE ♦ 

* * 
*************** 
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****A2********* 

* LDTXT * 

* * 
*************** 



*****32 ********* 

* DISTRIBUTE 

* ATF-TEXT TO 

* WORK AREAS 
* 
**************** 



*****D3 ********** 
♦SAVE INFO ABOUT* 

* PREV RECORD, * 
♦SET UP FOR NEW * 

* RECORD * 

* * 
***************** 



**£3******* 



♦. YES * INITIALIZE 

.* >* WORK AREAS, 

.♦ * SWITCHES 



(LEVEL 02-49) 



*****P3********** 

♦ INITIAL ♦ 

♦ CONDITIONAL * 

♦ VARIABLE * 

♦ PROCESSING ♦ 

♦ * 
***************** 



G3 ♦. 
.♦IS ITEM*. 
.♦ A REPORT ♦. NO 
♦.SECTION NAME .♦ 



QUAL 

*-«-7**H3********** 

♦ SET ATTR OF ♦ 

♦ S.NAME TO * 

♦ INTERNAL DEC ♦-• 

♦ EQUIVALENT OF ♦ 

♦ QUALIFIER ♦ 
***************** 



♦GET DICTIONARY * 
>♦ POINTER FOR ♦- 

♦ ITEM ♦ 

* * 
***************** 



*****G5 ********** 

* XREF ♦ 

* WRITE ♦ 
->+SXREF/XREF DATA* 

♦A-TEXT ELT, IF ♦ 

♦ APPLICABLE * 
***************** 



*****H5********** 

* BCONDE * 

♦IF ITEM IS COND* 
*VAR DELIMITER, * 

♦ DELIMIT COND ♦ 

♦ VARIABLE * 
***************** 



V DL01B2 
*****J5* ********* 

♦DICTBD * 

♦~ENTiR~ ITEM IN"* 

* DICTIONARY * 

* * 
***************** 



****K5******** 
* 

* RETURN 
* 

************** 
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****B1********» 

* * 

* READF4 * 

* * 
*************** 



* GET NEXT * 
LOGICAL RECORD 
* FROM SYSUT4 * 
**************** 



****D2* ******** 

* RETURN TO * 

* CALLER * 

*************** 



*****E2** ******** 



*********** 



.♦IS LOGICAL *. 

*.REC AN INDEX . 

* . NAME . * 



.♦LOGICAL REC+. YES 

*. A CRITICAL .♦ 

♦. PROGRAM .♦ 
♦. BREAK. ♦ 



♦PROCESS RENAMES^ 
->*ITEM AND ENTER *- 

* IN DICTIONARY ♦ 

* * 
***************** 



**** 

* * 

* GH 



•'"J 



*****G4* ********* 

* ENTNAM ♦ 

. YES * ENTER ITEM ♦ 
. ♦ >♦ DIRECTLY IN ♦- 

♦ DICTIONARY ♦ 

* * 
***************** 



****H3******"* 

* * 

* RETURN ♦ 

* * 
*************** 



***+*jl* ********* 



********** 



*************** 
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****B2********* 

* * 

* DICTBD * 

* * 
*************** 



FSEND 

**C3******* 
♦INITIALIZE * 

* FOR * 
>♦ PROCESSING OF 

* SUCCEEDING * 
* SECTIONS * 



* RESOLVE LAST 
->* FILE 

* DESCRIPTION 
* 
**************** 



.♦ IS ITEM A ♦. YES 

*. REDEFINES -* 

*. SUBJECT .* 






REDEF 

*****D3********** 

* ADDRESSING * 

* PARAM OF * 
>*SUBJECT SET TO *- 

* ADDRESSING * 
♦PARAM OF OBJECT* 
***************** 



♦CHECK SYNTAX OF* 
>* REDEFINES * 

* CLAUSE * 

* * 
***************** 



********************* 



FST000 

*****P3********** 

* RESOLVE PREV * 

* FD, ENTER * 
>* CURRENT FD IN *- 

* DICT, BUILD * 

* FDTAB ENTRY * 
***************** 



*****Q3********** 

* ENTER CD IN * 

* DICTIONARY * 
->♦ DELIMIT PREV. ♦- 

* CD, IF ANY * 

* ♦ 
***************** 



GRIPR 

*****H3**** ****** 

* ENTER GROUP * 

* ITEM IN DICT, * 
>* DELIMIT PREV. ♦-• 

GROUP, BUILD 



■» URUUri J3UXJUU •* 

♦ GPLSTK ENTRY * 
***************** 



****F«»********* 

* * 
>* RETURN * 

* * 
*************** 



****Gt|********* 

* * 

* RETURN * 

* * 
*************** 



****H4* ******** 

* * 

* RETURN * 

* * 
*************** 



ELI PR 

*****j2********** 
♦ENTER ELEM ITEM* 

♦ INTO DICT, * 
♦DELIMIT GROUPS, ♦ 

♦ COMPLETE DATA ♦ 

♦ A- TXT * 
***************** 
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Overall Flow 



****A3********* 

* * 

* IKFCBL21 * 
*************** 



BEGIN V 

**B3******* 
♦INITIALIZE * 

* WORK AREAS * 
* SET UP 

* CHECKPOINT * 
♦DCB NUMBERS* 

*********** 



DN01A1 
*****C3********** 
♦FILEST * 

*_*_*-*-*_*-*_*-* 
♦PROCESS FD AND ♦ 
♦SD ENTRIES FROM* 
* FILE SECTION * 
***************** 



(enter 
-[phase 



************** 



*************** 



Flowcharts 245 



Licensed Material - Property of IBM 



Chart DN. Phase 21: FILEST Routine 



****Al********* 
* 

* FILEST 
* 

*************** 



* Ient] 
* |beg: 



.* END OF *. YES 
— >*. SECTION OR .* 

*. FILE .* 



****B2*** ****** 

* RETURN TO 

* MAINLINE 
* 

*************** 



Dl *. 
.* * 

SD ENTRY 



YES * SET UP DCB'S 

* >* FOR ACCESS 

* METHOD 

* 
**************** 



*D2********i 



♦ FILL IN DCB'S 
->* AND DECB'S FD 

* ENTRY 



*****C<f ********** 



***************** 



***** C 5* ********* 

* * 

* * 
>*GET NEXT ENTRY * 

* * 

* * 
***************** 



************** 



246 Section 3. Program Organization 



Licensed Material - Property of IBM 



Chart DO, Phase 25: Overall Flou 



ENTER FROM 
PHASE 00 IF 
SYMDMP OR 
TEST IS 
SPECIFIED 



**A2********* 

IKFCBL25 * 
************* 



* INITIALIZE * 
BASE REGISTER * 

♦AND WORK AREA* 

* * 

*********** 



*****C3****** 



**E1****** 
PHASEND 



BUILD ODOTBL 

FROM OCCTPL, 

QITBL. ORTN 

TABLES 



->*BUILD OBODOTAB * 
♦WRITE TO SYSUT5+ 
♦COMPLETE OCCTBL* 



**** 



■ E2^* 



V DQ01A1 



**** 



♦BEGPASS 
*_*_*_*_*_*_*_*_* 
♦READ DICTIONARY^ 
♦ BUILD DATA TAB ♦ 
♦WRITE TO SYSUT5+ 



*****F2++ ******* 

♦ SAVE 
♦INFORMATION IN 

♦ COMMON FOR 
♦PROGSUM OBJECT- 

♦ TIME TABLE 
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****A1********* 
* ODOBLD 
*************** 



* . END OF OCCTBL . * >* 



,♦ ANY ODO *. NO 

, ENTRIES IN .* 

*. OCCTBL .* 



**** 

* * 

* HI * 



*****X)1**** ****** 

* * 
♦CALCULATE N FOR* 

* NUMBER OF ODO * 
♦ENTRY IN OCCTBL* 
***************** 



*****£! ********** 

* * 
♦FIND NTH OD2TBL* 

♦ PTR IN QRTN ♦ 

♦ TABLE * 

* * 
***************** 



* PREPARE ENTRY ♦-• 

* * 

***************** 



**Gl****+*+**+ 



**** 

* * 

♦ C2 ♦ 



****C2********* 

* EXIT TO 

* BLDOBODO 

* ROUTINE 
*************** 



DP01A4 
****D2********* 
♦EXIT TO ENDP16 * 

♦ ROUTINE ♦< 

* * 
*************** 



****A3******* 

*■ ' 

♦ BLDOBODO 
************* 

**** 



*****B3* ********* 
♦SAVE DICTIONARY* 

* POINTER OF * 

* OBJECT OF ODO * 

* IN ODOTBL * 

* * 
***************** 



****A<«********* 

* * 

* ENDP16 * 

* * 
*************** 



****A5********* 

* * 

* ENDP1 * 

* * 
*************** 



*****B5********** 

* FILL IN * 

* OBODOTAB * 

* POINTERS IN * 

* OCCTBL FROM ♦ 

* ODOTBL ♦ 
***************** 



MATCH OD2TBL 
POINTER WITH ONE 
IN QITBL. SAVE 
DICTIONARY POINTER 
OF OBJECT OF ODO 
WHOSE SUBJECT IS 
•N'TH ENTRY IN OCCTBL 



♦ INSERT ♦ 

♦ MAKE ODOTBL ♦ 

♦ ENTRY ♦ 
***************** 



* * — n * * 
**** J **** 

*****H1********** 

* * 

* POINT TO NEXT * 
*ENTRY IN OCCTBL* 

* TABLE ♦ 



************ 



***************** 



*****D3********** 
* CALLDIN * 

* LOCATE COBOL * 
*DICT ENTRY VIA * 

* DINCOR ACCESS * 

* RTN * 
***************** 



. DR01A5 
*****E3 ********** 

♦SETNAMS ♦ 
*_*_*_*_*_*_*_*_* 
♦BUILD ODOBOTAB * 

* ENTRY IN WORK * 

* AREA * 
***************** 



V DR01F1 



ENTER IN * 

OBODOTAB ON * 

SYSUT5 ♦ 

*************** 



BLDOB06 

***** G 3*^******** 

* FILL IN * 

* OBODOTAB ♦ 

* POINTER IN * 

* ODOTBL ENTRY ♦ 

* * 
***************** 



SET DICTIONARY 
POINTER TO OBJECT 
OF ODO IN THIS 
ENTRY AS PARAMETER 
FOR CALLDIN 
ROUTINE 



* SET SWITCH * 

* * 

* * 
***************** 



INDICATE 

NEXT BLOCK 

WRITTEN 

WILL BE 

FIRST IN 

DATATAB 

AND WILL 

CONTAIN 

FIRST 

DATATAB 

ENTRY 



*****E5********** 

* MOVE DICND1 * 
♦CELL IN COMMON * 

* TO CURRENT * 
♦DICTIONARY PTR * 

* CELL (CURPTR) * 
***************** 



****P5* ******** 

* RETURN TO * 

* BEGPASS ♦ 

* * 
*************** 



**************** 



LOOP THROUGH REST OF 
ODOTBL- FILL IN 
OBODOTAB POINTERS 
IN ENTRIES WHOSE 
DICTIONARY POINTER 
MATCHES ONE SAVED 



♦.END OF ODOTBL. ♦ 



***<• 

* * 

* B3 * 



DP01A5 
V 
****K3********* 

* ♦ 

* EXIT TO ENDP1 ♦ 

* * 
*************** 



248 Section 3. Program Organization 



Licensed Material - Property of IBM 



Chart DQo Phase 25: BEGPASS Routine 



****A1********* 

* * 

* BEGPASS * 

* * 
*************** 



* Bl * 



**•* 

* * 

* A2 ♦ 

* *__, 
**** 1 

V DR01F1 
*****A2*^ ♦*♦♦♦♦♦ 
♦ENTRDATA * 
*_*_*_*_*_*_*_*_* 

* ENTER DATATAB * 
♦ENTRY IN SYSUT5* 

* BUFFER * 
***************** 



* *__ 1 

.... i 



DR01F1 
*****&3********** 
♦ENTRDATA ♦ 
*_*_*_*_*_*_*_*_* 

♦ ENTER DATATAB ♦ 
♦ENTRY IN SYSUT5+ 

♦ BUFFER ♦ 



**** 
NOENDD 

*****B1********** 

♦ LOCATE NEXT ♦ 

♦ COBOL ♦ EOF 

♦ DICTIONARY ♦ 

♦ ENTRY ♦ 

♦ * 
***************** 



****+Cl* ********* 

♦ * 

♦ SAVE CURRENT ♦ 

♦ DICT PTR IN ♦ 

♦ CURPTR ♦ 

♦ * 
***************** 



*****D1* ********* 

* GETDEF ♦ 

♦GET CARDNUM AND+ 

* DICT PTR FROM ♦ 

* DEF-TEXT ON ♦ 

* SYSUT3 ♦ 
***************** 



**************** 



*****B3**** ****** 
♦SAVE NUMBER OF ♦ 

♦ BLOCKS OF ♦ 
>♦ DATATAB IN ♦- 

♦ COMMON ♦ 

♦ * 
***************** 



D001F2 

****Q1|********* 

* * 
>*EXIT TO PHAGEND+ 

* * 
*************** 

**** 



* *__., 

**** V 



SD ENTRY 

**. 

♦. . 



,'--\ 



**** 

* * 

♦ A3 ♦ 



T .♦. 

El ♦. 
.♦ ♦. 
.♦DICT PTR IN^. NO 

. DEF-TEXT = .♦ 

♦. CURPTR .* 


*****£2*** ♦♦♦**♦♦ 

* * 

* SET CARDNUM ♦ 
>* CELL TOO ♦ 

* * 


FILED 

*****E3********** 
* * 
♦SET DCB NUM PUT^ 


.♦. 
El ♦. 

YES .♦* 


♦ DATATAB ENTRY ♦ 


♦. 



**************** 



***************** 



I .... 

L_>* 



*****F2**** ****** 
* BLDRD ♦ 

♦ PROCESS RD; ♦ 
>♦ ENTER IN ♦ 

♦ DATATAB ♦ 

♦ * 
***************** 

I**** 
->♦ ♦ 

♦ Bl ♦ 

* * 
**** 



.♦ INDEXNAME ♦. YES 
♦. ENTRY .♦ 



"1 



**** 

* * 

* Bl ♦ 

* * 
**** 



DICTP1 V DR01A5 
*****H1********** 

♦SETNAMS ♦ 
•_*_♦_*_*_+_*_*_* 

♦ BUILD FIXED ♦ 

♦ PORTION OF ♦ 

♦ DATATAB ENTRY ♦ 
***************** 



.♦. 

Jl ♦. 

.* LD ♦. 

NO .♦ UNDER FD, ♦. YES 

. *.CD, SD, WKING.+ 



•*1 



DR01A1 
*****H3********** 
♦TESTSUBS ♦ 
*_*.*-.*_*_*_*_*«* 

* TEST FOR * t 

♦ SUBSCRIPTED * I 
♦ITEM £ PROCESS ♦ V 
********************* 



♦ A3 ♦ 

* * 

**** 



**** 

* * 

* CU ♦ 

* * 
**** 



st6e,' 

.LKGE 



*****j2********** 

* PROCESLD ♦ 

♦PUT ATTRIBUTES ♦ 
IN DATATAB ♦- 
ENTRY ♦ 
* * 

***************** 



J3 



*. 



->♦ 



♦NO 

| ♦♦♦♦ 

[->♦ ♦ 

♦ Bl ♦ 

* * 
**** 

RENM10 

*****j4*********« 

♦SET DICT PTR OF+ 
RENAMER 



->♦. ENTRY RENAMED. ♦ >♦ INDICATE THAT ♦ 

♦. .♦ ♦ ENTRY IS 

♦ . . ♦ ♦ RENAMED 

*. .* ************ 



*****E5********** 

♦ SET SWITCH TO ♦ 
♦BYPASS RENAMES ♦ 

♦ AND SUBSCRIPT ♦ 

* TESTS ♦ 

* * 
*************** 



*****P5*******< 
* 

♦SET INDEX CELL 
>♦ NUMBER IN 
♦ DATATAB ENTRY 
* 
*************** 



♦ SET SWITCH TO 
— >♦ INDICATE RD 

♦ PROCESSING 

* 
*************** 



*♦*' 
*****H5******** 



********************* 

* * 

♦ A3 ♦ 



DR01F1 
*****j5********** 

♦ENTRDATA ♦ 
*-*-*-*-*-*-*-*-+ 
->* ENTER DATATAB ♦<-■ 
♦ENTRY IN SYSUT5* 
♦ BUFFER ♦ 
***************** 



*****K1********** 



***************** 



DR01A5 


.♦. 


***** K 2****"*"* 


K3 *. 


♦SETNAMS ♦ 


.♦ ♦. 


*_*-*_*_*_*_*_*_* 


.♦ ANOTHER ♦. YES 


♦SET ATTRIBUTES ♦ 


>*. RENAMER .♦ 


♦ IN DATATAB ♦ 


♦. . ♦ 


♦ ENTRY ♦ 


♦. .♦ 


***************** 


♦ . .♦ 




♦NO 




j **** 
L->* * 






♦ A2 ♦ 



♦ ♦♦♦♦^♦♦♦♦♦♦♦♦♦^ 

♦ INDICATE IN ♦ 
♦THIS ENTRY THAT* 

->* THERE IS *- 
♦ANOTHER RENAMER* 

♦ * 
***************** 
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Chart DR. Phase 25: TESTSOBS and SETNAMS Routines 



****A1 ********* 
* 
TESTSUBS * 
*************** 



****A5* ******** 

* * 

* SETNAMS * 

* * 
*************** 



* NUMBER OF *. 

SUBSCRIPTS . 

♦.REQUIRED .* 



DR01F1 



*-> 



DICTENTR 

*****Cl ********** 
♦ENTRDATA * 
*_*_*_*_*_*_*_*_* 
♦ENTER IN SYSUT5* 
* BUFFER * 

***************** 



****D1******* ; 

* RETURN TO 

* BEGPASS 
* 

************* 



*****C2 ********** 

* SET SUBSCRIPT * 

* INFO BIT IN * 

* DATATAB ENTRY * 

* SET SUBSCRIPT * 

* COUNT TO 1 * 
***************** 



V 
TESTSB2 .*. 

D2 *. 
.* ENTRY *. 
.* CONTAINS *. NO 
♦.OCCURS CLAUSE.* 



.* 



*****£2*** ******* 

♦SET DICT PTR TO* 
♦THIS ENTRY FOR * 

* SRCH THRU ♦ 

* OCCTBL ♦ 

* * 
***************** 



2 i 

TWOSUBS V 

*****C3********** 

* SET SUBSCRIPT * 

* INFO BITS IN * 

* DATATAB ENTRY * 

* SET SUBSCRIPT * 

* COUNT TO 2 * 
***************** 



TESTSB6 

*****D3********** 

* LATRPT * 

♦ LOCATE COBOL * 

>*DICT ENTRY WITH* 

A ♦ OCCURS * 

J * * 

********************* 



THRESUBS V 

*****C4* ********* 

* SET SUBSCRIPT ♦ 

* INFO BITS IN * 

* DATATAB ENTRY * 

* SET SUBSCRIPT * 

* COUNT TO 3 * 
***************** 



*****B5********** 

* MOVE EBCDIC * 

* NAME AND CT * 
♦FROM COBOL DICT+ 

* TO DATATAB ♦ 

* ENTRY ♦ 
**** ******* ****** 



SET BASE REG 

FOR SYMDICT 

DSECT 



****D5******* 



*+Fl******** 
ENTRDATA 



*****P2*+ ******** 

* * 
♦SETS OCCURS PTR+ 

* IN THIS COBOL *- 

* DICT ENTRY * 

* ♦ 
***************** 



AS PARAMETER 
FOR LATRPT 
ACCESS RTN 



♦SET MAJOR CODE ' 

* IN DATATAB 

♦ ENTRY 



****P5******** 
RETURN 



*****G3**** 



.♦ENTRY FITS *. YES 

. IN SYSUT5 .* 

*. BUFFER .♦ 



♦ -- — WRITE5 — ♦ 

♦WRITE BUFFER ON^ 

* SYSUT5 ♦ 

***************** 



.* ENTRY IS *. YES 

* VARIABLE- LNG . ♦ 

♦. GROUP .* 



♦MOVE INFO FROM * 
*TBL TO DATATAB * 

* ENTRY * 

♦ * 

******3********** 



*. ODO ENTRY 



**************** 



**** K x******* 

RETURN TO 
CALLER 



* MOVE ODODOTAB * .* LOWEST *. YES 
->* PTR TO SAVE * >*. LEVEL GROUP .* 

* AREA * *. .* 

* * *. .* 
***************** *. .* 



*****J5* ********* 
♦SET BIT TO IN- * 

* DICATE LOWEST * 
->*LEVEL GROUP HAS* 

* ODO CLAUSE * 



***** K 3 ********** 

♦ ♦ 

♦ REDUCE ♦ 
->*SUBSCRIPT COUNT* n 

* BY ONE * i 

* ♦ V 
********************* 

♦ ♦ 

♦ D3 * 

♦ * 
♦ **♦ 
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Chart EA. Phase 3: Overall Flow 



* * 

* IKFCBL30 ♦ 
*************** 



**£3******* 

* * 
♦ INITIALIZE * 

♦AREAS, TABLES, * 
♦AND SWITCHES ♦ 

* ♦ 
*********** 



, EB01A1 
*****C3********** 
♦GLOSRY ♦ 

*_*_*_*_*_*_*_*_* 

♦ WRITE DATA ♦- 

♦ DIVISION ♦ 

♦ GLOSSARY ♦ 
***************** 



EC01A2, 

*****Q3********** 

♦PHCTRL ♦ 

*_*_*_*_*_*_*_*_* 

* CONTROL ♦— 

* PROCESSING OF ♦ 

* IC-TEXT ELTS ♦ 
***************** 



*****£3 ********** 



***************** 



*************** 



SCAN DATA DIVISION 
ENTRIES IN 
DICTIONARY AND 
LIST THEM 



EXAMINE IC-TEXT 
AND SUBSTITUTE 
ATTRIBUTES FOR 
ALL NAMES 
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Chart EB. Phase 3: GLOSRY Routine 



****A1 ********* 

* * 

* GLOSRY * 

* * 
*************** 



[branchId~to~ 
from phinit 



•*"1 



****C1********* 

* * 
♦EXIT TO PHINIT * 

* * 
*************** 



-♦.DATA OPERAND . ♦- 



***** C 4********** 

* MOVE HEADER * 
♦LINE TO BUFFER,* 

>♦ WRITE ON * 
♦SYSPRINT, TURN * 

* SWITCH OFF ♦ 
***************** 



***************** 



***£3********* 

MOVE PRINT 
♦ LINE TO 
BUFFER, WRITE 
♦ ON SYSPRINT ♦ 
**************** 



****w<FU* ********* 



***************** 



LAST DATA ♦. YES 

DIVISION . ♦ 

. ENTRY .♦ 



****G4********* 

♦EXIT TO PHCTRL * 

>♦ ROUTINE * 

* * 

*************** 



I **** 

L_>* * 
* B2 * 



252 Section 3. Program Organization 



Chart EC. Phase 3: PHCTRL Routine 



Licensed Material - Property of IBM 



f PHCTRL V 







BRANCHED TO 

FROM 

PHINIT 



GET 

IC-TEXT 

ELEMENT 



RETURN TO 
MAINLINE 



> 



RETURN IS 
TO EOF 
ROUTINE 





COPY VERB 
IN OUTPUT 
AREA 



GET 

NEXT 

ELEMENT 



^SORT \» 

\OR MERGE s?~ 





APPEND 
RECORD-NAME 
AFTER 
FILE-NAME 



PROCESS 
STRING IN 
SEARCH 
STATEMENT 



USES GETNXT, GENDAT , SEARCH , 
AND GENOP TO DO THESE 
OPERATIONS. WHEN COMPLETE, 
NEXT ELEMENT ALREADY GOTTEN. 




COPYIN 



COPY 

CORRESPONDING 
IN OUTPUT 
AREA 




CORRTN 



GET OPERAND 
NAMES. FIND 
MATCHES IN 
DICTIONARY 



GENERATE 
PSEUDO-STMNTS , 
APPEND CORRES 
AND WRITE 



GENOP 



GENERATE 
OPERAND 
USING 

ATTRIBUTES IN 
OUTPUT AREA 



INVALIDATE 
DEBUG- ITEM 
DICTIONARY 

ENTRIES 



GENERATE 
E-TEXT 



WRITE 
DATA 
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I Chart ED (Part 1 of 5). Phase 35: PHCTRL Hain Control Routine 



1 PHCTRL 
Al. 



(ENTRY FROM A 
PHOO VIA LINK/ 



PH35INIT | 2 



PHASE 

INITIALIZED; 
INCLUDING 
TABLE PRIMES 



ANLZUFDS | 3 



BUILD DTAB 
ENTRIES FROM 
UFD SENTENCES 
IN THE 
DECLARATIVES 



& 




MORE 

PI INPUT 



(AT LEAST ONE 
PN IS UFD OPERAND) 
"mightV .__ y^ PI 

^DBG TRANSFER\ZZf_____| > X^ END DECLS 
CONTROL 
^GENERATED" "\bREAXx ' 




EOFRTN 156 



CLEANUP; 
INCLUDING 
TABLE 
RELEASES 




NO 



YES 



GETISTPN | 35 



SPECIAL 
PROCESSING 
TO FIND FIRST 
PN AFTER 
DECLARATIVES 





PI 

PN 

DEFINITION^, 



CRDNBRTN | 9 



DETERMINES IF 
DBG TRANSFER 
VERB IS 
REQUIRED 
BEFORE OR 
AFTER CARD 
NUMBER 



PNDEFRTN |9A 



CHECK PN 
FOR UFD 
OPERAND 



(EXIT N 
RETURN TO } 
PHOO J 




GOTAVERB 1 10 



PROCESS ENTIRE 
VERB STRING 
FOR UFD 
OPERANDS 




GENP1GET 1 47 



GENERATE 
CURRENT PI; 
GET NEXT Pi 





GENP1GET | 47 



GENERATE 
CURRENT PI; 
GET NEXT PI 
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| Chart ED (Part 2 of 5) . Phase 35: ANLZOFDS Routine 



ANLZUFDS 
Al 



Page 2 of 5 

Chart ED. Phase 35: ANLZUFDS Routine 



( ENTRY J 



SCANS USE FOR DEBUGGING (UFD) DECLARATIVES 
FOR PROPER OPERANDS, ADDING THEM TO DTAB 



GETNXTP1 | 43 



GET FIRST 
PI TEXT 

ELEMENT 




GENERATE CARD 

NUMBER 

GET NEXT PI 




UFD 
VERB 




GENERATE 
UFD VERB 



ERROR ~[55 



COMPILER 

ERROR 

339 



-t/ NO RETURN J 




RESET DTAB 
SEARCH 
STARTING 
VALUE TO 
START OF 
DTAB, 



ERROR |55 


COMPILER 
ERROR 40 


G5 


X 





f NO RETURN J 



COMPUTE BLLs 
REQUIRED FOR 
DEBUG- ITEM, 
ADD TO VALUE 
IN COMMON 



( RETURN J 
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| Chart ED (Part 3 of 5). Phase 35: PNDEFRTN Routine 



9A PNDEFRTN 

Alj 

( ENTRY J 



CHECKS PN DEFINITION 
FOR DEBUGGING 



'PRESET \ 
INDICATOR: \ 
PN IS NOT UFD ) 

. OPERAND / 



GETVDNE |32 



CHECK PN DEF 
FOR DEBUGGING 




SAVP1GET 



s 



SAVE PN 

DEFINITION 

IN P1TEXT 

TABLE 

GET NEXT PI 



RESET DEBUG 
TRANSFER VERB 
OPTION BYTE 
TO DEFAULT 
FALLTHRU 





PN A; 

^DECLARATIVES^ 

SECTION; 

^DEFINITION' 



YES 



SET BLDBGVRB 
POINTER TO 
CAUSE DBGTEXT 
TO BE SAVED 
IN PITEXT 
TABLE . 



GENP1TT |51 




GENERATE CARD 

NUMBER 

IMMEDIATELY 







K7 



SET BLDBGVRB 
POINTER TO 
CAUSE DBGTEXT 
TO BE SAVED IN 
DBGTEXT TABLE 




BLDBGTRN | 39 



BUILD, 

GENERATE DEBUG 
TRANSFER VERB 
START PROGRAM 



BUILD, 

GENERATE DEBUG 
TRANSFER VERB 
FALLTHRU 



SAVP1GET |58 



SAVE PN 
DEFINITION IN 
PITEXT TABLE 
GET NEXT PI 



BLDBGVRB |40 



BUILD, SAVE 
DEBUG TEXT 
EITHER IN 
DBGTEXT OR 
PITEXT TABLE 



€) 



GENP1TT |51 



GENERATE 
PITEXT 
TABLE NOW 



Y RETURN j 
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| Chart ED (Part 4 of 5) . Phase 35: GOTAVBRB Routine 



GOTAVERB 
Al 



( ENTRY J 



CHECKS VERB STRING 
FOR DEBUGGING 



INDICATE: 
START OF VERB 
STRING & 
PROCESSING 
VERB 




FIND VERB 
IN VERB 
TABLE 



COPY VERB 
TABLE ENTRY 
INFORMATION, 
INCLUDING 
INITIAL VERB 
ANALYSIS FLAGS 




SHOULD \YES 
Cdebug TRANSFER^ 
ERB PRECEDE 



.VERBPRECE1 



ma 



CKDBGTRN 



I10A 



BUILD, 
GENERATE, 
DEBUG 
TRANSFER VERB 



END OF 

STATEMENT 

PROCESSING 



AMLZ VERB UFD 

OPERANDS 

REQUIRES 

VARYING 

SYNTAX 

AWARENESS 



INDICATE 

PROCESSING 

VERB 



-*/ RETURN J 
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| Chart ED (Part 5 of 5) . Phase 35: ANLZVRBS Routine 



ANLZVRBS 
Al 



( ENTRY j 



COMPLETE VERB PROCESSING (SYNTAX & 
DATA ANALYSIS) TO END OF VERB STRING 



Page 5 of 5 

Chart ED. Phase 35: ANLZVRBS Routine 



INDICATE : 
P1TEXT TO BE 
SAVED IN 
P1TEXT TABLE 



SAVPlGET 1 58 



SAVE VERB IN 
P1TEXT TABLE 
GET NEXT PI 




FLUSHVRB |38 




GUARANTEE 
PAST ANY 
IMPLICIT 
TEXT 





GENTXT: 



jS 



GENERATE 
SAVED DEBUG 
AND/OR P1TEXT 
PROMi TABLES 



VERB 

^PROCESS LOOP^ 

vEND DUE TOx 

SEARCH WHEN 



SRCHWND |30 



PROCESS SEARCH 
-t> WHEN CONDITION 
GENERATES ANY 
SAVED PRIOR 
DBGTEXT 



' PRESET \ 
INDICATOR 
NEXT PI NOT 
YET GOTTEN . 



INDICATE 
P1TEXT: MAY 
ONCE AGAIN BE 
GENERATED 
IMMEDIATELY 



*13-24,17A,24A,29,38 




VRBANALZ I » 



ONE OF MANY 
VERB ANALYSIS 
ROUTINES 
ADDRESSED FROM 
VERB TABLE 
ENTRY 



f RETURN J 



GETDI 



EXAM1N2 
CURRENT 
PI FOR 
DEBUGGING 
GET NEXT pi 



mi 



SAVP1CET J58 



SAVE 

CURRENT PI 
GET NEXT PI 
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Chart FA. Phase 4: Overall Flow 



****A3+******** 



* * (enter via 

* ikfcbl40 * 1 phase 00 



*************** 



PHINIT 

**B3******* 

♦INITIALIZE * 

♦TABLES. AREAS^ 

♦ AND SWITCHES. ♦ 

♦ GET 1ST ♦ 

♦ ELEMENT ♦ 

*********** 



**** 



****Q(|********* 

♦ * 

♦ IDENT ♦ 

♦ * 
*************** 



*****C3********** 

* * 
♦PROCESS PROGRAM^ 

, >♦ BREAKS, LINKS ♦ 

* BETWEEN VERBS ♦ 

* * 
***************** 



D3 ♦. ***** D i|********** 

.♦ ♦. ♦ ♦ 

.♦ ♦. YES ♦ CLOSE FILES. ♦ 

♦ . END OF FILE .♦ >♦ TERMINATION ♦- 

♦. .♦ ♦ ROUTINES ♦ 

*. .* * ■ * 

*. .* ***************** 



****D5**^*^*++* 

♦ EXIT TO PHASE ♦ 
>* 00 ♦ 

* * 
*************** 



E3 ♦ 

* 

VERB 



IDLHN 

*****P3 ********** 

♦ PROCESS ♦ 
♦PROCEDURE-NAMES^ 

♦ AT POINT OF ♦ 

♦ DEFINITION ♦ 

♦ * 
***************** 



PROCESS VERB 



**** 

L_>* * 

♦ C3 ♦ 

* * 
**** 



Flowcharts 259 



Licensed Material - Property of IBM 



Chart FB. Phase 4: IF Routine 



****A1* ******** 



*************** 



**Q1******* 

♦INITIALIZE * 

* TABLES, * 

* SWITCHES, AND * 

♦AREAS USED BY* 



*********** 



*****d********** 

* ISPRNC * 

♦PROCESS NOT AND* 

>♦ LEADING ♦ 

♦ PARENTHESIS ♦ 



**** 



********* 



COLLECT 
OPERANDS 
. VALID 



ERR V 
*****E1* ********* 
♦DISCARD STMNT. ♦ 

* GENERATE * 

* E-TEXT. RESET * 

* SWITCHES AND * 

* TABLES . ♦ 
***************** 



**** 
50 
*****p^* ********* 

♦ FINISH IF * 

* PROCESSING. * 

♦ GENERATE FALL * 
♦THROUGH LABELS,* 

* OR GO TO. * 
***************** 



.♦COND CLASS *. YES 

->+.OR SIGN TEST .* 

* . NEXT . * 



*****D3********** 

* COLLECT AND • * 

* PROCESS LEFT- > * . 
->*HAND AND RIGHT-*- 

* HAND TERMS * 

* * 
***************** 



•'"} 



I **** 

L->* * 

* E3 * 



->* EXIT TO IDENT * 
* * 

*************** 



*****£3********** 

♦COLLECT AND/OR * 

* PROCESS LEFT- * 
->*AND RIGHT-HAND *- 

♦TERMS (IMPLICIT* 

* OR EXPLICIT) * 
***************** 



*****P3********** 



***************** 



*****G3********** 

* * 

* ERROR * 

♦GENERATE ERROR * 

* TEXT * 

* * 
***************** 

L**** 
>* * 

* E3 * 

* * 
**** 



.* VALID *. YES 

. COMBINATION .* 

♦.OF TERMS .* 



*****£1|********** 



* ERROR * 

♦GENERATE ERROR * 

* , TEXT « 

* * 
***************** 



*****?<!********** 

* SUBSTITUTE ♦ 
♦DUMMY STATEMENT* 

* FOR INCORRECT *- 

* ONE * 

* * 
***************** 



*****D5** ******** 

* . * 

* GENERATE * 
->* ERROR- FREE * 

* STRINGS * 

* * 
***************** 



*****P5**** ****** 

* * 

* GENERATE * 
♦SUBROUTINE TEST* n 

* VERB * I 

* * V 
********************* 

* * 

♦ Fl * 



RELATIONAL 


* 


♦. .♦ 




♦. .♦ 




*. .* 




♦ YES 




I *** 
L_>* 




* 


♦ E3 


* 
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Chart FC. Phase 4: 



PRFORM Routine 



•♦••Al********* 

* • 

♦ PRFORM ♦• 



IS IT PN1 



♦ EXIT TO IDENT * 
*************** 



.* DOES THRU *. YES 


->♦. PN2 FOLLOW .* 


*. .♦ 


*. .♦ 


♦ . .* 


♦NO 


*♦♦* 




* • 




♦ C2 ♦ 




* ♦-> 




**** 




" 


*****C2** •**•**•* 


* GETPVN ♦ 


• FIND LOCATION * 


♦ OF END OF *< 


♦ PERFORM * 


* 


• 



B3 ♦. 
.♦ *. 
.* 
->♦. VALID PN2 



•****C3**« ******* 

* * 

* DISCARD THRU ♦ 
-♦ PN2. PUT OUT * 

* ERROR TEXT. ► 

* ♦ 
***************** 

• *** 

* * 

* D3 • 



*****Bt|********** 

* * 

* SAVE PN2 TO * 
->* FIND END OF ♦ 

* PERFORM ♦ 



**** 
>♦ * 

* C2 ♦ 

* * 
***♦ 



**** J 



E2 ♦ . 

* 

UNTIL 



*****D3* ********* 

* * 

* STORE ♦ 
->♦ APPROPRIATE *r 

* STRINGS * 
*. * 
***************** 



•****E3********** 



***************** 



*****P3********** 

♦ * 
* UNTIL *■ 

♦ GENERATE STRING ♦-• 

♦ FOR CONDITION ♦ 

♦ ♦ 
***************** 



♦ ♦♦♦D5""""^ 
* * 

->♦ EXIT TO SORT ♦ 
*************** 



*****£(«********** 

♦ * 
* GENSTR ♦ 

->♦ GENERATE FINAL ♦<-■ 

♦ STRINGS ♦ 

♦ ♦ 
***************** 



♦ EXIT TO IDENT ♦ 

* ♦ 
*************** 



**** 

* * 

♦ H3 ♦ 



*****H3********** 



*****H4** ******** 
* UNTIL ♦ 

♦ GENERATE ♦ 
>♦ STRINGS FOR ♦ 

♦ CONDITIONS ♦ 

♦ ♦ 
***************** 



♦NO 

L**** 
>♦ ♦ 
♦ D3 ♦ 



*****J3********** 

* * 
♦ OKPFOP ♦ 

->+CHECK THAT N IS^ 

♦ VALID ♦ 

***************** 

L**** 
>* • 

* D3 ♦ 

* * 
**** 



♦YES 
I ♦♦•* 
U>* * 
♦ H3 ♦ 
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Chart FD. Phase 45: Overall Flow 



****A1********* 

* * 

* IKFCBL45 *■ 

* * 
*************** 



**B1******* 



*********** 
**** 
* CI 



****B2** ******* 

* * 

* PH45CTL * 

* * 
*************** 



*-> 



*****C1* ******** 
* GETNXT 

* READ NEXT 

* ATM-TEXT 

* ELEMENT 

****************: 



****>********** 



*****£!******* 



******** 



*****P1********** 

* GETNXT * 

* READ NEXT * 

* ATM-TEXT * 

* ELEMENT * 

* * 
***************** 



*****G1* ********* 

* * 

* PLACE ELEMENT * 

* IN NEXT * 

* AVAILABLE DOP * 



.* SUBSCRIPT *. YES 

->*. STRING JUST .* 

*. READ .* 



* UNSTRING *. NO 

STRING JUST .* 

* . READ . * 



FC01A1 
*****K2*** ******* 
♦UNSTRING * 
*_*_*_*_*_*_*_*_* 

* ANALYZE *- 

* ATM-TEXT AND * 
♦CREATE P2-TEXT * 
***************** 



*****H3********** 

* SAVE COMPLETE * 

* SUBSCRIPT * 
->*STRING IN SSCIN*- — T 

* TABLE * J 

* v • * V 
********************* 

* * 

* CI * 



*****j3 ********** 

* SET UP ERROR * 

* MESSAGE - * 
->* * UNRECOGNIZABLE ♦- 

* TEXT* * 

* , ♦ 
***************** 



FD01A1 
*****K3********** 

♦SORTXT * 

*_*_*_*_*_*_*_*_* 

->*SORT TABLES FOR*- 

* NEXT SET OF * 

* P2-TEXT * 
********** ******* 



****J4********* 

* EXIT TO PHASE ' 

* 00 
* 

*************** 



*****K4** ******** 

* * 
* PUTDOP * 

>* WRITE P2-TEXT * -, 

* ON SYSUT1 * I 

* * V 
********************* 

* * 

* CI * 

* * 
**** 
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Chart FE. Phase 45: ONSTRING Routine 



****A1********* 

* * 

* UNSTRING * 



**B2******* 
* PRIME * 

* TABLES, * 
INITIALIZE 

* COUNTS AND * 
♦CONTR FLAGS* 



*****C2* ********* 

* SET FIRST * 

* SECTION * 
♦SEQUENCE NUMBER* 

* IN SSCOUT AND * 

* TXTOUT TABLES " 



********* 



*** 



****Q2********* 

ENTER HEADER, 

'FIRST', AND 

SEQUENCE 

ELEMENT IN 

TXTOUT 

*************** 



* ENTER DOPS 2 * 
♦AND 3 IN TXTOUT* 

* AS IS * 



. * SENDING * 
*. FIELD (DOP4) 
♦.SUBSCRIP-.* 
*. TED .* 



*****F3********** 
* FINDSSC * 

* PUT SUBSCRIPT * 
->* STRING IN * 

♦SSCOUT AND DOPU* 

* IN TXTOUT * 
***************** 



**** 

* * 

* HU * 



*****J2** ******* 

* SET CTL2 FLAG ■ 

* TO 'RECEIVING : 
*FIELD' SET END ; 

* MARKER IN 

* SSDELIM TABLE ■■ 

****************: 



*****K2**** ****** 



********* 



* SET CTL2 FLAG * 
>* TO 'DELIMITER *- 

* FIELD" * 

* * 
***************** 



*****j3* ********* 

* USE CTL2 AS * 
*INDEX TO BRANCH* 

* TABLE FOR *<■ 

* APPROPRIATE * 
♦FIELD ANALYZER * 
***************** 



*****K3* ********* 

* CREATE PROPER * 

* TEXT ELEMENT * 

* FOR TYPE OF *- 

* FIELD * 

* * 
***************** 



*****t](l*** ******* 

* * 
* GETDOP * 

->* GET NEXT TEXT ♦ 

* ELEMENT (DOP) * 

* * 
***************** 



YES .* DOP *. Ni 
* . CONTAINS TEXT. *- 

*. ELEMENT .* 



FB01B2 
****J5********^ 

♦ RETURN TO ♦ 

♦ PHU5CTL * 

♦ * 
*************** 



[fie: 
- [ana: 
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Chart FF. Phase 45: SORTXT Routine 



****M********* 

* * 

* SORTXT * 

* * 
*************** 



*****B1 ********** 

* SET * 
♦DISPLACEMENT TO* 

* TXTOUT AND * 
♦SSCOUT TO ZERO * 

* * 
***************** 



ENTERED FROM 
FIELD ANALYZER FOR 
TEXT ITEMS (SCANTXT) 



*****C1 ********** 

* GET START OF * 
♦SSCOUT AND ADD * 

>* CURRENT * 

* DISPLACEMENT * 



**** 



********** 



.* IS NEXT 
. ENTRY END 
*. MARKER .< 



GET NEXT 

COMPLETE 

SUBSCRIPT 

STRING 

************* 



*****pi* ********* 

* * 
* PUTDOP * 

-*WRITE STRING ON* 

* SYSUT1 * 

* * 
***************** 



*****D2********** 

* GET START OF * 
♦TXTOUT AND ADD * 

>* CURRENT * 

* DISPLACEMENT * 

* * 
***************** 



♦GET STRING CODE* 

♦ AND OPERAND * 

* COUNT, IF ANY * 



V 
.*. 

F2 *. 
.♦IS NEXT*. 
.* ELEMENT = *. YES 

*. , 2H t SEQUENCE.* 

*. NO. .* 



*****F3**** ****** 



***************** 



*****G2* ********* 

* MOVE OPERAND * 

* INTO NEXT DOP * 
♦AND SET OPERAND* 
♦LENGTH IN FIRST* 

* BYTE * 
***************** 



* HAVE 5 

DOP'S BEEN 
*. FILLED . ; 



IS NEXT ' 
ENTRY END 
. MARKER . ; 



*****H3********** 
* PUTDOP * 

* WRITE HEADER * 
->*AND FILLED DOPS*- 

* (P2-TEXT) * 

* * 
***************** 



********* 



***************** 



.* END OF 
->*. TXTOUT 
*. SECTION 



*************** 
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Chart GA. Phase 50: Overall Flow 



*+**A2*** ****** 

* * 

* IKFCBL50 * 



II: 



FIntIr'from" 

PHASE 00 



**************** 



NORMAL EXIT 
FROM PH5CTL 
IS IN GETNXT 



*****C4******** 

* DESTROY 

* SUBSCRIPT 
->♦ OPTIMIZATION 

* TABLE 
* 
*************** 



***** D 2********** 



***************** 



*****£2*** ******* 

* * 

* UPDATE ANY * 

* SUBSCRIPTED * 

* ITEMS * 

* * 
***************** 



***D3*********** 
WRITE 
♦INTERMEDIATE * 
OPTIMIZATION 
* A-TEXT * 

**************** 



.* VERB *. 
.♦NEEDS REGS *. YES 

.1-5 AT OBJECT.* 

*. TIME .* 



*****P3** ******** 



********* 



*****G3********** 

* * 
♦STORE SUBSCRIPT^ 

->♦ REGISTERS 1-5 * 

* IF NECESSARY ♦ 

* * 
***************** 



GD01A1 
*****QH* ********* 

♦GENERATE * 

♦~GEnIrAtI PROC~* — > 
♦A- OR INTERMED * 
* OPT A-TEXT * 
***************** 



***H2*** ******** 
WRITE OUT 
♦ VERB HEADER * 
AND OPERANDS AS 
* P2-TEXT ON * 
SYSUT2 
**************** 



J2 *. 

.* VERB *. 

.* REQUIRES *. 

CALL TO 

♦.Q-ROUTINE.* 



*YES 



. GE01A1 
*****K2**** ****** 
*XSPRO * 

*_*_*_*_ *_*_*_*_* 

♦ GENERATE CALLS * J 

* TO Q-ROUTINES * 

***************** 



.* MUST *. 
.♦ DESTROY ♦. YES 

->♦ . SUBSCRIPT OPT. * 

* . TABLE . * 



♦ NO 



♦ DESTROY ♦• 

♦ SUBSCRIPT OPT ♦ 

♦ TABLES ♦ 
***************** 
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Chart GB. Phase 50: PH5CTL Routine 



****A1********* 

* PH5CTL * 

* * 
*************** 



V GC01A1 
*****B1 ********** 
*GETNXT * 



-[FROM PH50 



*************** 



*. VERB STRING .* 
*. .* 

"*. .** 



*****C2* ********* 

* * 

* TERMINATION * 
->*ROUTINES < CLOSE* - 

* FILES) * 

* * 
***************** 



*****D2 ********** 

* MOVE OPNDS TO * 

* WORK AREA. * 
->*DETERMINE WHICH*- 

* ANALYZER. * 

* * 
***************** 



El *. E2 *. 
.* *. .* *. 
NO .*VN, GN, OR *. YES .* * . Y 
*.PN DEFINITION.* >*.VN DEFINITION. *- 



****C3********* 
* EXIT PHASE 50 
->* TO PHASE 00 
* 

*************** 



RAPPROPRIATi ANALYZER)" 

*****Q3********* 



->*ANALYZE STRING 
* 
* 
**************** 



***£3* ********** 

♦WRITE OUT IN * 
-> PROCEDURE 
* A-TEXT FORMAT* 

**************** 
I **** 



*YES 

I **** 

L_>* * 



1GD01A1 
******** 

♦GENERATE * 



************** 



***F2********* 
WRITE PROC 
* A-TEXT AND. 
IF NECESSARY, 
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Chart GC (Part 1 of 2) . Phase 50: GETNXT Routine 



****A1********* 

* * 

* GETNXT * 

* * 
*************** 

**** 
*01 * 

* Bl *-> 

* * 
**** 

***** B 1********* 
* 

* POINT TO NEXT 
->* ELEMENT IN 

* BUFFER 

****************** 



****ci********** 




SAVE COUNT FOR * 
ELEMENT * 




**************** 




**** 






Dl * 
*-> 

*♦*♦ i 

Dl 

.♦" 

.END OF 


r 

*. 

*. 

♦. YES 
RECORD.* 


***D2******' 

* READ NEXT 
> RECORD 



*. ERROR MESSAGE. 



**************** 



***E2*********** 

* WRITE AS * 
-> INTERMEDIATE 
* ERROR TEXT * 

**************** 

I .... 

L_>* * 

* Bl * 



*. OPTSW ON 



*****H2*** ******* 

* * 
->* OPTSW=0 * 

* * 

* * 
***************** 

**** 



*. YES 


.* STATE OR *. NO 


CARD NUMBER .* 


>*.SYSDMP OPTION.*- 


.* 


*. .* 


*. .* 


*. .* 


*. .* 


*. .* 


*NO 


♦YES 


I 


I *♦♦♦ 

L_>* * 






♦ E4 ♦ 


I 


* * 


V 


**** 






Gl' "*. 


*****Q2********** 




* * 


43 CODE **. YES 


* MOVE CO CODE * 


(FOR OPT) .* 


>* INTO ELEMENT * : 


.* 


* * 


*. .* 


♦ * 


*. .* 


***************** 


*NO 





**+*E3******** 



**************** 



* Dl * 

* ♦ 
**** 

*****P3********** 

* TURN ON SW TO * 
♦SUPPRESS OUTPUT* 

•>*OF ALL CALLS TO*- 

* ILBODBGO * 

* SUBROUTINE * 
***************** 



>*. 4304 CODE 



****H3********** 

♦ 

OPTSW=l ♦- 

♦ 
**************** 



*****Dd*** ****** 

♦ 
* 
->*RELEASE TABLES 

***************** 

♦ ♦*♦ 

* ♦ 

* E4 * 

* ♦_- 1 

♦ ♦*♦ J 

*****£4* ********* 

♦TURN OFF DEBUG ♦ 
♦CALL, SUPPRESS ♦ 

* SWITCH ♦ 



♦F4********** 



************ 



*** F 5********: 

WRITE AS 
♦INTERMEDIATE 
PROCEDURE 
♦ A-TEXT 

*************** 



GB01A1 
****J2** ******* 

* RETURN TO * 

* PH5CTL * 



*********** 



***K2**** ******* 
WRITE START 
♦MACRO ELEMENT ♦ 
-> AS INTERMEDIATE 
* PROCEDURE ♦ 
A-TEXT 
**************** 

->♦ * 

* Bl * 
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Chart GC (Part 2 of 2). Phase 50: GETN XT Routine 



Al *. 
.* *. 
.* START *. YES 

.DECLARATIVES .* i 

*. BREAK .* I 
*. .* V 
*. .* ***** 
♦NO *01 * 
* Bl* 
* * 



* END *. YES 

DECLARATIVE .* 1 

*. BREAK .* I 



***C3*********** 

* WRITE OUT * 
OPTIMIZATION 
A-TEXT * 



**************** 



***D1*********** 

* WRITE OUT * 
PROCEDURE 
A-TEXT * 



*****£!********** 

* DESTROY * 

* SUBSCRIPT * 

* OPTIMIZATION * 

* TABLE * 



***** 
*01 * 

* Bl* 



GB01A1 
♦***D2********* 

* RETURN TO * 

* PH5CTL * 

* * 
*************** 
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Chart GD. Phase 50: Generate Routine 



****A1********* 

* * 

* GENERATE * 

* * 
****** ********* 



*****B1 ********** 



***************** 



****C1* ********* 

CALCULATE * 

LENGTH FIELDS * 

OR REGISTER * 

FIELDS * 



**** 



>*********** 



GCKOP3 

*****01*** ****** 
♦DETERMINE FIRST' 
♦ADDRESS OPERAND' 

* AND SET OP 

* A- TEXT 

**************** 



.♦VIRTUAL OR *. YES 

*. FIGURATIVE -* 

♦.CONSTANT .♦ 



****G1********** 



**************** 



SET UP PLUS ♦ 

ELEMENT IF IN * 

EXISTENCE * 

* 

**************** 



*****£2** ******** 

* GENERATE * 

* OPTIMIZATION * 
>* A-TEXT ON *- 

* SYSUT3 * 

* * 
***************** 



*****P2**** ****** 

* GENERATE * 

* INTERMEDIATE * 
->* OPTIMIZATION * — > 

* A-TEXT ON * 

* SYSUT2 * 
***************** 



. * SECOND * . 
->* . ADDRESS 

♦.COMPLETED.* 



***K1*** ******** 

* WRITE ♦ 
CONSTRUCTED 
♦ A-TEXT ♦ 

**************** 



_>* 



*****K2******* 

♦ CLEAR WORK 

AREAS AND 

POINTERS, 

RESTORE 

REGISTERS 



***************** 



*****,T3*** ******* 

* * 

* CHANGE * 
->*WORK-AREA 2 TO *- 

* WORK-AREA1 * 

* * 
***************** 



GB01A1 
****K3********* 

* RETURN TO * 

* PH5CTL * 

* * 
*************** 



**+**j it********** 

* * 

* CHANGE EACH * 
->* POINTER 2 TO ♦ 

* POINTER 1 * 

* * 
***************** 
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Chart GE. Phase 50: XSPRO and KILSDB Routines 



****A1********* 

* * 

* XSPRO * 
*************** , 



****A(l********* 

* * 

* XILSUB * 

* * 
*************** 



*. Q-BIT ON 



***** CI* ********* 

* * 

* WRC005 * 

♦IF 'OPT' WRITE * 

* C005 * 

* * 
***************** 



*****D1********** 

* * 

* GENERATE L 2, * 

* GNREF FOR * 

* Q-ROUTINE * 

***************** 



*****B2* ********* 

* * 

* UPDATE * 
->* SUBSCRIPT OPT * 

♦TABLE (XSCRPT) * 

* * 
***************** 



*****C2** ******* 



***************< 



GB01A1 
****D2********* 

* RETURN TO * 

* PH5CTL * 

* * 
*************** 



*****BU********** 

* ZERO OUT * 
♦DISPLACEMENT IN* 

* SUBSCRIPT OPT * 
♦TABLE (XSCRPT) * 

* * 
***************** 



*****C4********** 
*• ■ ■■ • 

* ZERO OUT * 
♦DISPLACEMENT IN* 

* XSSNT TABLE * 

***************** 



V GB01A1 
****D4*** ****** 

* RETURN TO * 

* PH5CTL * 

* * 
*************** 



* Gl * 

* *_> 

**** i 






NUMBER OF *. NO 

-ROUTII • 

.CALL = 



GB01A1 
****H1********* 

* RETURN TO * 

* PH5CTL * 



*****E2 ********** 

* * 

* * 
->*ADD 1 TO RGNCTR* 

* * 

* * 
***************** 



***P2*********** 



**************** 



*****Q2* ******** 



***************** 



*****H2*** ******* 
* SUBTRACT 1 FROM* 

* NUMBER OF * 

* Q-ROUTINES TO * 

* CALL * 

* * 
***************** 



* Gl * 

* * 
**** 
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Chart GF. Phase 51 : 



Overall Flow 



****A2*** ****** 

* ILFCBL5] * 

* ♦ 
*************** 



**** 



*-> 



**** 

GH01A1 
*****B2* ********* 

♦GETNXT « 

♦GET TXT ELEMENT*- 
♦PROCESS UNLESS * 
* VERB STRING * 
***************** 



*. VERB STRING . *- 



♦ ♦•♦/VU********* 

* * 

• PH5CTL • 
*************** 



NORMAL EXIT 
FROM PH5CTL 
IS IN GETNXT 



***C3*********** 

* WRITE * 
-> COMPILER ERROR — 
* MESSAGE * 



***«C<I********* 

* EXIT TO PHASE * 
>* 00 ♦ 

* * 
*************** 



SYMDMP, *. NO 

STATE, OR .* 

. TEST .* 



VERBS IN LIST ARE: 

READ 

READ (RERUN) 

WRITE 

WRITE (RERUN) 

OPEN 

CLOSE 

RELEASE 

RETURN 

START 

REWRITE 

ACCEPT 

LINK 

ENTRY 

SORT 

ON 

STOP 

DISPLAY 

USE 

NONNUMERIC MOVE 

CALL 

CANCEL 

SEND 

RECEIVE 

IF MESSAGE 

STRING 

UNSTRING 

RPTCAL 

EXAMINE 

TRANSFORM 



-♦.VERB IN LIST 



GG01A1 
*****G2********** 
*DBGTEST * 
*_*_*_*_*_*_*_*_* 

* GEN LOAD AND *- 
*BALR INST'S FOR* 

* ILBODBG1 * 
***************** 



***D3*********** 

*WRITE ELEMENT * 
> AS PROCEDURE 

* A-TEXT * 
**************** 

I**** 
->* * 

* B2 * 

* • 
**** 

*****£3* ********* 



***************** 



SELECT ♦ 

APPROPRIATE * 

VERB ANALYZER * 

* 

**************** 



***** G 3 ********** 

* * 

* GO TO * 

* APPROPRIATE * 

* VERB ANALYZER ♦ 

* * 
***************** 

**** 



Flowcharts 271 



Licensed Material - Property of IBM 



Chart GG. 



Phase 51 : 



DBGTEST Routine 



****A1********* 

* * 

* DBGTEST * 
*************** 



*. SWITCH ON 



****A3********* 

* • 

* DBGRTNOO * 
*************** 



**** A 4********* 

* ' 4> 

* DBGRTN01 • 

* « 
*************** 



****B2 ********* 
* 
RETURN * 
* 

*************** 



*****C1 ********** 



***************** 






*****Q1*** ******* 

* GENERATE: * 

* L 15,VCON * 

* BALR 14,15 * 

* DESTROY 14,15* 

* * 
***************** 



****E1 ********* 
TURN SWITCH ON 
*************** 



*F1********* 
* 
RETURN * 
* 

************ 
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Chart GH. Phase 51: GETNXT Routine 



* GETNXT * 
*************** 



* Bl * 

* *_> 

**** 



***** B 1********** 

* * 

* POINT TO NEXT * 

* ELEMENT IN * 

* BUFFER * 

***************** 



*****C1********* 



**************** 



.* INTERMED. *. 

♦.OPTIMIZATION . 

*. A-TEXT .♦ 



.♦ *. YES 

♦.SEGMENTATION .♦ 

♦. CONTROL .♦ 
♦ .BLOCKS 



. ♦ WRITE ♦ 
OPTIMIZATION 
♦ A-TEXT ♦ 
**************** 

I .... 

L_>* * 

♦ Bl ♦ 

* * 
**** 



*****A3********** 

* * 
♦MOVE IN CORRECT ♦ 

>♦ PROCEDURE ♦- 

* A-TEXT CODE ♦ 

* * 
***************** 



***B3*********** 

♦ WRITE ♦ 
> SEGMENTATION 
♦ CONTROL BREAKS 



GI01A1 
*****A4********** 
♦PUTDEF ♦ 

*_*_*_*_*_*_*_*_* 
->♦ ISSUE A-TEXT ♦ 
♦FOR PN- GN. VN ♦ 
♦ DEFINITIONS ♦ 
***************** 

I .... 

L_>* * 

♦ Bl ♦ 

* * 
**** 



********** 



***************** 

I .... 

L_>* * 

♦ Bl ♦ 

* * 
**** 



.♦ INTERMED. ♦. YES 

. PROCEDURE . ♦ 

*. A-TEXT .♦ 



.♦ ♦. YES 

.INTERMEDIATE .♦ 

♦. E-TEXT .♦ 






*****£3********** 



***************** 



.♦ ERROR ♦. 
* MESSAGE ♦. YES 
DEFINITION . ♦ 



WRITE 
PROCEDURE 
A-TEXT 



***E4*********** 



*************** 



L.~% 



TEST SEVERITY ♦ 



**************** 



**+G2*********** 



**#G3* + **^*^**^ 



♦.END OF RECORD. ♦- 



**************** 



GF01A4 
****H1********* 

♦ RETURN TO ♦ 

♦ PH5CTL ♦ 

♦ * 
*************** 



**************** 



♦ Bl ♦ 

* * 
**** 



*****J2********** 



***************** 

L**** 
>♦ ♦ 

♦ Dl * 

* * 
**** 



*****J3 ********** 

* * 

* * 
♦RELEASE TABLES ♦<— 

* * 

* * 
***************** 



****K3********* 

♦ EXIT TO PHASE ♦ 

♦ 00 ♦ 

♦ * 
*************** 



***Hll*********> 

WRITE LAST 

♦SEGMENTATION ' 

> CONTROL BREAK 

♦ AS PROCEDURE ♦ 

A-TEXT 



********** 



***** 



***************** 



*****K4********** 



***************** 
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Chart GI. Phase .51: 



PUTDEF Routine 



****A1********* 

* PUTDEF * 

* * 
*************** 



*.VN DEFINITION.* 



***B2* ********** 

♦WRITE VN DEF * 
> AS PROCEDURE 
* A-TEXT • 

**************** 



***B4*********** 

♦WRITE VN DEF * 
-> AS OPTIMIZATION 
* A-TEXT * 



****C3* ******** 

* * 

* RETURN * 

* * 
*************** 



*****£!********** 



**************** 



****?!********** 



i*************** 



*****G1 ********** 

* * 

* SET BIT ON IN * 
♦PNUTBL FOR THIS*- 

* PN * 

* * 
***************** 



*****D2 ********** 



***************** 



*****E3* ********* 



***************** 



F3 



.* 



r-*. P 
*•. 

**** 

* * 

♦ H5 * 



PN EQUATE .*<- 
.*" 

♦YES 



PUTEQU 
EQ .*" 



***HH ********** 

* * 

WRITE PN EQUATE 

**************** 



****D5********* 
* 

* RETURN 
* 

*************** 



****F5********* 

* * 

* RETURN * 

* * 
*************** 



*****G5* ********* 



***************** 



***H5 *********** 

* * 

WRITE GN EQUATE 



***JH*********** 



********** 



***J5* ********** 



**************** 



****KU********* 

* * 

* RETURN * 

* * 
*************** 



************ 



****K5* ******** 

* * 

* RETURN * 

* * 
*************** 
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Chart GJ. Phase 51: A-text Generator Routine 



****Al********* 

* A-TEXT * 

* GENERATOR *■ 

* • 
**•**••*******• 



*****£!********** 

+ * 

* SET UP TYPE * 

* CODE (RR IF * 

♦ LOAD, ETC? * 

♦ * 
******** ********* 



*****C1********** 

* CALCULATE * 

* LENGTH FIELDS * 

* OR REGISTER * 

* FIELDS * 

* * 
***************** 



CALLED TO GENERATE 
PROCEDURE OR OPTIMIZATION 
A-TEXT. ENTRY POINT 
DEPENDS ON TYPE OF 
A-TEXT TO BE GENERATED. 



KOP3 

*****Q1**** ****** 

♦DETERMINE FIRST* 
♦ADDRESS OPERAND* 

* AND SET UP * 

* A-TEXT * 

* * 
***************** 



.* VIRTUAL, *. YES 

*. LITERAL, OR .* 

*. FIG. .* 
♦.CONST.* 



*****£2********** 

* * 

* GENERATE ♦ 
->* OPTIMIZATION * 

* A-TEXT * 

* * 
***************** 



*****pi********** 



***************** 



♦ SET UP PLUS * 

* ELEMENT IF IN * 

♦ EXISTENCE ♦ 

* * 
***************** 



***J1**** ******* 

* WRITE * 

CONSTRUCTED < 

* A-TEXT * 

**************** 



*****Ki********** 

* CLEAR WORK * 

* AREAS AND * 

* POINTERS, AND ♦- 



*****j3********** 



***************** 



. * SECOND * . 

ADDRESS 

♦.COMPLETED.* 



****K2*******+* 

♦ RETURN TO * 

♦ CALLER ♦ 

♦ * 
*************** 



***************** 



*****j (}********** 

* * 

* MOVE EACH * 
->* POINTER 2 TO *- 

* POINTER 1 ♦ 

* * 
***************** 
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Chart HA. Phase 6: Overall Flow 



****A3********* 

* * 

* IKFCBL60 * 

* * 
*************** 



riNTiR~FROM~' 
-[PHASE 00 



V HB01A1 
*****33* ********* 

♦PH6 * 

*_*_*_*_*_*_*_*_* 

* * . 
♦INITIALIZATION * 

* * 
***************** 



INITIALIZE TABLES 
SWITCHES, AREAS FOR 
TGT, PGT OPEN FILES 



V HC01A1 
*****C3* ********* 
♦PRFTWO * 
*_*_*_*_*_*_*-*_* 

* PROCESS * 

* OPTIMIZATION * 

* A-TEXT * 
***************** 



V HD01A1 
*****D3********** 

♦SE6000 * 
*_*_*_*_*_*_*_*_* 

* PROCESS PROC * 

* AND LISTING * 
A-TEXT 



***** 



******** 



V HE01A1 

*****£3********** 

♦PDATEX * 

*~PROCEis~DATA ""♦ 

* A-TEXT * 

* * 
***************** 



V HF01A1 
*****P3********** 

♦GINIT2 * 
*_*_*_*_*_*_*_*_* 
♦GENERATE INIT2,^ 
♦ INIT3, AND ♦ 



inIti 



**************** 



****pi4********* 

* * 

* CLOSE ♦ 

* * 
*************** 



*****G3********** 



********** 



****H3********* 

♦ EXIT TO PHASE ♦ 

♦ 00 ♦ 

♦ * 
*************** 
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Chart HB« Phase 6: PH6 Routine 



••**A1* ******** 

* * 

* PH6 *■ 
*************** 



**B1******* 

♦INITIALIZE * 

* GENERAL * 

♦SWITCHES, AREAS* 



LIST MODE 



* PRINT PAGE 
-> HEADING. PRINT 
+ MEMORY MAP * 

**************** 



**'D1******* 

* * 

♦INITIALIZE TGT ♦ 



♦♦El******* 

* * 

♦INITIALIZE PGT ' 



**pi******* 
* * 

♦ INITIALIZE ♦ 
♦PROCEDURE-NAME 

* USAGE TABLE ♦ 



♦EXIT TO PRFTWO ♦ 

* * 

*************** 
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Chart HC* Phase 6: PRFTHO Routine 



****A1********* 

* * 

* PRFTWO * 

*************** 



*****B^* ********* 

* OPEN SYSUT2 * 

* (OPTIMIZATION * 

* A-TEXT FILE) * 

* PRIME TABLES * 

* * 
***************** 

**** 



* CI 

**** 
READF2 



**C1 *********** 



**************** 



* D2 * 
* 
** 
F2EOF 



EOF V 



***D2*********** 



*************** 



ENOPAT 

*****D3*** ******* 

* RESOLVE GNTBL * 
*(NO. OF GN'S). * 

>*DETERMINE START*- 

* OF LITERALS, * 

* PROCEDURE * 
***************** 



*****£)[)********** 

* LIST PGT IF * 
•LIST MODE, OPEN* 

->* SYSUT4. PRIME *- 

* TABLES * 

* * 
***************** 



->*EXIT TO SE6000 * 
* * 

*************** 



.*. 






VIRRTN 


TXPNH 




ESD 


El *. 






*****E2*** ******* 


***E3**********i 


***EH*********** 


.* * 






* * 








* VIRTUAL 


* 


YES 


♦PROCESS VIRTUAL* 


* 


* 


* * 


DEFINITION 






>* DEFINITION * 


> 


PUNCH TEXT 


> PUNCH ESD 




+ ' 




♦ ELEMENT ♦ 


* 


* 


* * 


*. .* 






* * 








*. .* 






***************** 


**************** 


**************** 


♦ NO 

1 












j **** 
l->* * 

* CI * 

* * 
***♦ 


.*. 






LTLRTN 


INSRT 






Fl *. 






*****P2* ********* 


*****P3********** 




.* * 






♦ PROCESS ♦ 


* 


* 




* LITERAL 


*. 


YES 


♦ELEMENT. SET UP* 


* 


* 




DEFINITION 




* 


>* LIST LINE IF ♦ 


>* PUT IN TABLE * 




*. 


* 




* LIST MODE ♦ 


* 


* 




*. .* 






♦BOUNDARY ALIGN.* 


* 


* 




*. .* 






***************** 


***************** 




♦ NO 

1 










1 **•* 
L~>* • 

* CI * 

*" * 
**** 




.♦. 






GNEQUE 

*****G2**** ****** 








Gl *. 












.* * 






* * 








* GN EQUATE 
STRING 


*. 


YES 


* PROCESS GN * 












>*STRING. PUT IN * 








*. 


* 




* GNTBL. * 








*. .* 






* * 








*. . * 






***************** 








*NO 






**** 

L_>* * 






































* CI * 








J 






* * 








V 






**** 








.*. 






PNEQUR 

£**** H 2** ******** 








HI *. 












.* * 






* PROCESS PN * 








* PN EQUATE 

STRING 
*. 


* 


YES 


♦STRING. PUT IN * 












— — — >*PROPER PLACE IN* 








*' 




* GNTBL. * 








*. . * 






* * 








*. .* 






***************** 








*NO 

u>* 


► ** 


**** 
L_>* * 










* 








* D2 


* 


* CI * 








* 




* 


* * 








**** 


**** 
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****A1********* 

SE6000 * 
* 
*************** 



*****B1********' 

♦GET 

♦"read ElImInT ' 
* FROM SYSUT1 



**** 






*. END OF FILE 
* *. . ♦* 



.*OP CODE AND*. YES 

* . ADDRESS . * 

♦. ELEMENT .♦ 



EOF ENDPTX 

*** c2 *********** ***** C 3********** HE01A1 

* TERMINATION * **** C 4********* 
♦CLOSE SYSUT1. ♦ ♦ ROUTINES FOR ♦ * ♦ 

> LIST LAST LINE. >*PROCEDURE-TEXT ♦ >*EXIT TO PDATEX * 

* * * PROCESSING * * * 

* * *************** 
**************** ***************** 

OPPRO V GET .♦. 

*****D2+****+++** ***D3**********+ on *, 

♦PROCESS OP AND * ♦ READ NEXT * .*"■ OPERATION**. YES 
>* ADDRESS ♦ > ELEMENT FROM >♦. DESCRIPTIVE .♦ 

* ELEMENTS ♦ ♦ SYSUT1 ♦ *. .* 

* * *. .* 
***************** **************** *. .* 

♦ NO 



♦LIST. CALCULATE* 

♦ RELOCATION . ♦ 
->+CREATE RLDT BL ♦ 

♦ ENTRY. * 



*****£[|*******: 

♦ FORMAT LIST ' 

♦ LINE, LIST, 
♦PUNCH FROM PREV 

♦ INSTRUCTION, 

♦ RESET AREA 



* + 



PNBPRO 

***** F 2** ******** 

♦CREATE IN-LINE ♦ 

♦ CONSTANT FROM ♦ 
>*PREVIOUS SYSUT4* 

♦ ELEMENT * 



******* 



* MACRO * 

INSTRUCTION 
♦. ELEMENT .♦ 



MAC PRO 

*****H2********* 
♦DETERMINE TYPE 

* AND GO TO 
>* ROUTINE TO 

* PROCESS 



♦ Dl ♦ 

* * 



SPECIAL 
INTERNAL 

ELEMENT 



SE6010 

*****j2********** 

* GET ♦ 

* CORRESPONDING * 
>*SYSUT4 ELEMENT.* 

* LIST, SAVE IF * 

* PN * 
***************** 



GIDENL 

*+***K2*******++ : 
♦CREATE IN-LINE ' 

♦ CONSTANT FROM : 
>♦ SPECIFIED 

♦ ELEMENT 
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****A1* ******** 

* * 

* PDATEX * 
*************** 



*****&!********** 
*GTF4B * 

*-*-*-*-*-*_*_*_* 
>* GET DATA OR * 
* ERROR ELEMENT * 

***************** 



PDT030 

*****C2* ********* 

* CLOSE FILE 4. * 
♦RELEASE TBLS NO* 

>* LONGER NEEDED. *- 

* MAKE RLDTBL * 
♦ENTRIES DIRECT.* 
***************** 



****D2********** 



D6SR10 

*****C3********** 
♦SORT RLDTBL IN * 
♦ASCENDING ORDER* 
>♦ OF TARGET ♦- 

* ADDRESS * 

* * 
***************** 



.* ♦. YES 

*. DATA A-TEXT .♦ 

♦. .* 
* . . * 


♦ IDENTIFY AND 
>* PROCESS DATA 

♦ A-TEXT 


*. .♦ 


**************** 


♦ NO 


**** 






L->*- 

♦ Bl 

* 






**** 


*****E1* ********* 




* * 




♦ PUT E- r 

♦ TABLE F( 

♦ PROCE. 


rEXT IN ♦ 
DR ERRORS 
3SING ♦ 





* PUNCH TEXT 

> AND RLD'S FROM 

* RLDTBL . * 

**************** 



*****04* ********* 

* * 
♦SET UP REGISTER* 
♦ASSIGNMENTS FOR* 

* MAIN PROGRAM * 

* * 
***************** 



♦EXIT TO GINIT2 * 

* * 

*************** 
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Chart HP. Phase 6: GINIT2 Routine 



* * 

* GINIT2 * 

* + 
*************** 



*****B1********** 



***************** 



***************** 



♦GENERATE CODING* 

* TO INITIALIZE ♦ 

* VN CELLS * 

* * 
***************** 



FTIN3 

*****£!********** 

♦GENERATE CODING* 
♦ TO INITIALIZE ♦ 
♦ANY Q-ROUTINES * 
♦THAT DEPEND ON .♦ 
♦WORKING-STORAGE* 
***************** 



INIT1 V 



*************** 



***G1******^**0 

PUNCH AND 

♦ LIST INIT1 * 

CODING. PUNCH 

* LAST CARD. ♦ 

**************** 



HI ♦. 
.♦ *. 

ANY ERROR 



JA01A2 

♦ ♦♦+H2"""*" 
* • 

->^EXIT TO ERRLOD ♦ 



* EXIT TO CLOSE ♦ 
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Chart IA. Phase 62: Overall Flow 



****A3********* 

* IKFCBL62 * 

* * 
*************** 



riNTl5~VIA~ 
-PHASE 00 



*INIT SWITCHES. * 
*TABLES, & AREAS* 
♦FOR TGT AND PGT* 



PROCESS 

OPTIMIZATION 

A-TEXT 



V ID01A1 
*****D3********** 
♦SE6000 * 

*_*._*_*_*_*_*_*_* 

* PROCESS * 

* PROCEDURE * 

* A-TEXT * 



********* 
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Chart IB. Phase 62: PH6 Routine 



* *. 

* PH6 ♦ 

* * 
*************** 



**B3******* 

• * 

* INITIALIZE * 
•AND HANDLE MAP 

* SUPPRESSION * 

* ♦ 
*********** 



*****C4*** 



♦**C5* ********** 



***************** 



**************** 



**D3******* 

♦ * 

* INITIALIZE ' 
* COUNTERS AND 

* SWITCHES 

* * 
*********** 



E3 *. 
-* *. 

LIST MODE 



***gtl*********** 



**************** 



TGTINT 

*****P3********** 
♦COMPUTE SIZE OF* 

* TGT AND * 

* DISPLACEMENTS * 

* OF ITS FIELDS * 

* * 
***************** 



♦COMPUTE LENGTHS* 

* OF FIELDS IN ♦ 

* PGT. ♦ 

* * 
***************** 



♦EXIT TO PRFTWO * 

* * 

*************** 
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Chart IC. 



Phase 62: PRFTWO Routine 



****A1* ******** 

* PRFTWO * 

* * 
*************** 



**B1******* 
* PRIME TABLES * 



********** 



READF2 

***C1 *********** 
READ 
♦OPTIMIZATION * 
— > A-TEXT FROM 
* SYSUT3 * 
**************** 



*.VN REFERENCE 



I **** 
L_>* * 



->* 



*P2********* 
—INSERT 

* INSERT UNIQUE 

* VIRTUAL IN 

* CVIBTB TABLE 



*****G2****** 



INSERT 

MAKE ENTRY IN 
VNPTY TABLE 



****H2 ********* 

INSERT 

INSERT UNIQUE 

LITERAL IN 

CONTBL 

************ 



***P3* ********** 



**************** 



***G3*********** 

* WRITE TEXT * 

CARDS FOR TGT 

* AND PGT * 

**************** 



***************** 



***J3*********** 



♦ *** 

* * 

* AU * 

* *— X 
**** V 



AU 



. *. 



*NO 

I **** 

L_>* * 

* El * 



*****A5********** 

* * 
* INSERT * 

— >* INSERT IN * 

* CONDIS TABLE * 

* * 
***************** 

L**** 
>* * 

* El * 

* * 
**** 

*****B5 ********** 

* INSERT * 

— >* MAKE ENTRY IN * 

* GNATBL * 

* * 
***************** 

**** 

L_>* * 

* El * 

* * 
**** 

*****C5 ********** 

* * 
* INSERT * 

— >* MAKE ENTRY IN * 

* PNATBL • * 

* * 
***************** 

**** 
L_>* * 

* El * 

* * 
**** 

*****D5 ********** 

* * 
* INSERT * 

— >* MAKE ENTRY IN * 

* BLVNTBL * 

***************** 

L**** 
>* * 

* El * 

* * 
**** 

*****£5 ********** 

* * 
* INSERT * 

— >* MAKE ENTRY IN * 

* VNPNTBL * 

* * 
***************** 

**** 



**************** 



***** K 4********** 

* COMBINE * 

* SECTIONS OF * 
*EQUAL PRIORITY *-• 

* INTO SEGMENTS * 

* * 
***************** 



->*EXIT TO SE6000 * 
* * 

*************** 
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Chart ID (Part 1 of 2) • Phase 62: SE6000 Routine 



****A1********* 

* * 

* SE6000 * 
*************** 



***Q1*********** 

READ 
* PROCEDURE * EOF 

r ~> A-TEXT ELEMENT 

* FROM SYSUT1 * 

******************* 



ENDPTX 

*****32 ********* 
♦MAKE FINAL REG 

* ASSIGNMENTS 
>* LIST REG 

* ASSIGNMENTS 

**************** 



* C2 * 

* * — , 
+ *** v 

OPPRO . * . 

C2 ♦ . 
.♦2-BYTE *. 
. * BRANCH * 
>*. INSTRUCTION 



****B3********* 

* EXIT TO PHASE ♦ 
_>* 00 * 

* * 
*************** 



*****C3********** 

* REFLD11 * 

PROCESS PN * 

FOLLOWING *- 

PREVIOUS LOAD * 

INSTRUCTION * 

*************** 



->* 



*****£2* ********* 
* ADDLGTH * 

* ADD LENGTH OF * 
♦INSTRUCTIONS TO* 

* ACCUMCTR ♦ 

* COUNTER ♦ 
***************** 

**** 



**** 
*****P2* ********* 



*****B3********** 
* SA VE ♦ 

♦ SAVE ♦ 
>* INSTRUCTION *- 

♦ UNTIL NEXT ♦ 
♦ELEMENT IS READ^ 
***************** 



***** C («* ********* 

* * 

♦ ADD 4 TO * 
>+ ACCUMCTR ♦- 

♦ COUNTER - ♦ 

* * 
***************** 



****DU ********** 

ADD 4 TO * 

ACCUMCTR *- 

COUNTER ♦ 

* 

**************** 



IF NEXT ELEMENT IS PN OR GN 
REFERENCE- PREPARE TO GO TO 
REFLD11 WHEN 2-BYTE BRANCH 
FOR THE SAME REGISTER AS 
LOAD INSTRUCTION IS READ 



CO ELEMENT 



******** 
**** 



.♦ ENTRY IN ♦ 

*. PNFWDBTB OR 

♦.GNFWDBTB .♦ 



.♦ ACCUMCTR ♦. NO 
♦.WITHOUT ADDED.* — 
♦. LOAD < .♦ 
♦.4095 .♦ 
♦ . .♦ 
♦YES 
I *♦♦♦ 
L_>* * 
* G4 * 



G3 ♦. 
.♦ ENTRY ♦. 
.♦IN GNFWDBTB*. YES 

->♦. OR PNFWDPTB .♦ 

♦ . TABLE . ♦ 



*****H3********** 
♦ZERO ACCUMCTR, ♦ 
♦RELEASE 6 PRIMES 
->+PN/GNFWDBTP ADD+- 
♦1 TO PROCBL CTR^ 



W-j 



****G4* ********* 

♦ ZERO CTR IN ♦ 
->* PNFWDBTB OR ♦ 

♦GNFWDBTB TABLE * 

* * 
***************** 



*****H4******* 



***************** 



********* 



*****K3********** 



***** 

♦ 02 ♦ 

♦ Al* 



♦NO 

I **** 
l->* * 
♦ C2 ♦ 



***************** 



♦ Bl ♦ 

* * 
**** 



Flowcharts 285 



Licensed Material -'" Property of IBM 
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***** 

♦ 02 * 

* Al* 



*****A2**** ****** 

* * 
♦ R6H00 ♦ - 

->*PROCESS ADDRESS* 

* REFERENCE * 

* * 
***************** 

I**** 
->*01 * 
* Bl * 



IP NOT PERMANENTLY 
ASSIGNED TO A 
REGISTER BUILD 
DRPTBL AND DRLPTBL 
TABLES FOR REGISTER 
OPTIMIZATION 



.♦CO 04 SWITCH*. YES 



*NO 

I **** 

L->*01 * 

* Bl ♦ 



******************** 
*01 * 
* Bl* 



*****D2** ******** 



********************** 

♦ 01 * 

* Bl* 



.♦GLOBAL *. 
.♦ TBL VARI- * 
♦.ABLY- LOCATED 
♦.AREA REF .* 



E2 ♦. 
.♦PERMAN-*. 
.♦ ENTLY ♦. NO 
->♦. ADDRESSABLE .* 



♦.MACRO ELEMENT. *- 



*NO 

I **** 
l~>*01 ♦ 
* Bl 



*****£3 ********** 



**************** 



****** 
♦01 * 
♦ Bl* 



**** 
*****P2**** ****** 



* MACRO * 

>* PROCESS MACRO * , 

♦ ELEMENTS ♦ I 

♦ * V 
********************** 

*01 ♦ 
♦ Bl* 
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****A2********* 

* * 

* IKFCBL63 * 

* * 
*************** 



**B2******* 



|ENTiR~viA~ 
- [PHASE 00 



*****C3*** ******* 



************* 



* BRANCH TO 
>* APPROPRIATE 
♦MACRO ANALYZER 

* 
************** *i 



FOURTYB 

*****E3** ******** 

* BRANCH TO * 

* APPROPRIATE * 
>*OPERATION CODE *- 

* ANALYZER * 

***************** 



*****P3********** 

* * 

* BRANCH TO * 
>* APPROPRIATE *- 

* CO 07 ANALYZER * 



************** 



*****G2**** ****** 

* * 

* BRANCH TO * 

* APPROPRIATE * 

* ANALYZER * 

* * 
***************** 



NOTE: VARIOUS ANALYZERS 
ADD TO ACMCTR AND LOCCTR 
AND PRODUCE PROCEDURE 
Al-TEXT 



*****H2*** ******* 

* * 
♦OTHER PROCEDURE* 

_* A-TEXT * 

* ANALYZERS * 

* * 
***************** 
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***A2********* 

BRANCH * 
************«.* 



ENTER FROM 

BRANCH TABLE 

TO PROCESS BRANCH 

INSTRUCTIONS 



.♦BRANCH *. 
* TO * 

DIFFERENT 
* . PROC . * 

♦.BLOCK.* 



*****B3** ******** 

♦ CALL PHASE 00 ♦ 
_>*TO WRITE BRANCH*- 

♦ INSTRUCTION * 

♦ * 
***************** 



*****C3 ********** 

* GENERATE * 
♦INSTRUCTION TO * 

>* LOAD NEW * 
♦PROCEDURE BLOCK* 

* INTO REG 11 * 
***************** 



*****£(|********t* 

♦ADD 2 TO ACMCTR* 

♦AND LOCCTR FOR * 

«>♦ THIS *- 

♦ INSTRUCTION * 

* * 
***************** 



>♦ RETURN TO GET * 

A * * 

*************** 



+***+ D 2* ********* 
♦CHANGE RR-TYPE * 

* BRANCH * 
♦INSTRUCTION TO ♦ 

* RX-TYPE ♦ 

* * 
***************** 



*****E2********** 

* CALL PHASE 00 ♦ 

* TO WRITE NEW ♦ 

* BRANCH ♦ 

* INSTRUCTION ♦ 

* * 
***************** 



+****F2+ ********* 
♦ADD 4 TO ACMCTR* 
♦AND LOCCTR FOR * 

* THIS * 

* INSTRUCTION * 

* * 
***************** 



***** G 2**** ****** 

♦ CALL PHASE 00 ♦ 
♦TO WRITE CO OR ♦ 
*CC ELEMENT WITH+- 

♦ PN/GN NUMBER ♦ 

♦ * 
***************** 
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Chart IG. Phase 63: GNDEF Routine 



♦♦**A2********* 



*****B2********** 

* ENTER * 
♦DISPLACEMENT IN* 
♦PROCEDURE BLOCK* 
+ INTO GNLBDTBL * 

♦ * 
***************** 



*****q2********** 

* * 

* CALL PHASE 00 * 

* TO WRITE GN * 

* DEFINITION ♦ 

* * 
***************** 



IentIr"via 
- i branch table 



D2 ♦. 


*****D3**** ****** 


.♦ *. 


* RLDSORT ♦ 


VN EQU GN *. YES 
FOR THIS GN .* 


♦MAKE RLD ENTRY ♦ 


>* IN RLDTBL FOR *— 


.* 


♦ THIS GN ♦ 


*. .* 


* * 


*. .* 




♦NO 





*****£3********** 

♦ RLDSORT ♦ 

♦MAKE RLD ENTRY * 
->♦ IN RLDTBL FOR * 

♦ THIS GN ♦ 

* * 
***************** 



_l 



*****P3********** 



***************** 



*****ptl********** 



.... | 



G2 *. 

.* SAME *. 
.* PROCEDURE ♦. YES 

.BLOCK AS LAST.* -, 

♦. GN .♦ I 



***************** 



*****j2*** ******* 



* EXIT TO GET ♦ 

* ♦ 
*************** 



***************** 
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****A2** ******* 

* * 

* PNDEF * 

* * 
*************** 



*****B2* ********* 

* ENTER * 
♦DISPLACEMENT IN* 
♦PROCEDURE BLOCK* 

* FROM PNLBDTBL * 

* * 
***************** 



*****C2* ********* 

* * 

* CALL PHASE 00 * 

* TO WRITE PN * 

* DEFINITION * 

* * 
***************** 



NEW 
PROCEDURE 
. BLOCK . : 



*****E3********** 

* * 

* * 
->*ZERO OUT ACMCTR*- 

* * 

* * 
***************** 



*****£{(« ********* 

* RLDSORT * 

*MAKE RLD ENTRY * 
>* FOR PROCEDURE *- 

* BLOCK * 

* * 
***************** 



*****E5* ********* 

* * 

* REPLACE OLD * 
>*PROCEDURE BLOCK* 

* WITH NEW * 

* * 
***************** 



*****F3********** 

* * 
* RLDSORT * 

->* MAKE PN RLD * 
♦ENTRY IN RLDTBL* 

* * 
************ 



_J 



*****G3*«******** 

* RLDSORT * 

>* MAKE VN RLD * 
♦ENTRY IN RLDTBL* 
* * 

***************** 



H2 ♦. 

.* *. 
.* * 

*.C2 SWITCH ON 



*****H3********** 



**** 

* * 

* HI * 

* *— - 

**** J 

*****Hi(* ********* 



***************** 



***************** 



SAME 
PROCEDURE 
. BLOCK . ' 



*****K3********** 



* KH * 

* *_> 
**** 



*YES 

I **** 

L_>* * 



***************** 



* EXIT TO GET * 

* * 
*************** 
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* ADREF 
* 
*************** 



* Fei 

* [» 



ADDRESS 
ALREADY 
LOADED 



***** C 2*« ******** 

♦ CALL PHASE 00 * 

* TO WRITE * 

* INSTRUCTION * 
♦WITHOUT CHANGE * 

• * 
***************** 



* RETURN TO GET ♦<- 
*************** 



>*. BL OR BLL 



*****C3********** 

* SET FLAG TO * 

* INDICATE LOAD * 
♦INTO R1U OR R15*<- 

* FOR SBL ♦ 

* * 
***************** 



*****D3* ********* 

* * 

* CALL PHASE 00 * 

* TO WRITE * 

* ELEMENT * 

* * 
***************** 



*****£3*** ******* 

♦ADD 4 TO ACMCTR^ 

♦AND LOCCTR FOR ♦ 

-♦ LOAD ♦ 

♦ INSTRUCTION ♦ 



***** B 5********** 

♦ CALL PHASE 00 ♦ 

♦ TO WRITE ♦ 
->♦ ELEMENT AS DO ♦ 

♦ ELEMENT ♦ 



******** 



************** 



****F2********* 



************ 



*****G2*^ ******** 

♦ * 

♦ ADD INCREMENT ♦ 

♦ TO VALUE IN ♦ 

♦ DISPSAVE ♦ 

♦ * 
***************** 



[ENTER~VIA 
BRANCH TABLE 



*****H3********** 



*****j2* ********* 

* * 
♦ADD 4 TO ACMCTR^ 
♦FOR EACH UNIT >♦- 

* 4095 ♦ 

* * 
***************** 



********** 



*****J3********** 

* * 

* * 
->♦ ZERO DISPSAVE ♦ 

* * 

* * 
***************** 



*****K3********** 

♦ ♦ 

♦ CALL PHASE 00 ♦ 

♦ TO WRITE ♦- 

♦ ELEMENT ♦ 

♦ * 
***************** 



->♦ RETURN TO GET ♦ 
♦ * 

*************** 
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♦♦♦*A1********' 
* 
* C1REF 

*************** 



* [en 

: — I™ 



.* PROC *. 
.* BLOCK OF * 
. REF SAME AS 
*. CURRENT .* 



*****d********** 

* GENERATE LA * 
♦INSTRUCTION FOR* 

* REFERENCE * 

* * 
***************** 



*****D1********* 
♦GENERATE C8 OR 
*CC ELEMENT FOR 

♦ PROCEDURE 

* Al-TEXT 
* 
**************** 



►***E1******** 



**************** 



* RETURN TO GET * 

♦ * 
*************** 



****G1********* 

* *. 

* GNREF * 

* * 
*************** 



HI ♦. 

.* *. 

.♦C001 SWITCH*. 



*****B2********** 

* GENERATE LOAD * 
♦INSTRUCTION FOR* 

->* NEW PROCEDURE ♦-• 

♦ BLOCK ♦ 

***************** 



*****33********** 



***************** 



♦♦♦*E3********* 

* ♦. 

* PNREF * 

* * 
*************** 



Tenter from 
-get via br 
[table 



(enter from get 
-i via branch table 



IJ01A1 
*****H2********** 
*C1REF * 

*_*_*_*_*_*_*_*_* 
>* PROCESS FOR ♦ 
•PROCEDURE BLOCK* 
♦ ♦ 

***************** 



G3 *. 

.* *. 

.♦CO 01 SWITCH*. 



V IJ01A1 
*****H3*** ******* 
*C1REF * 

*_*_*_*_*_*_*_*_* 

* PROCESS FOR *- 
♦PROCEDURE BLOCK* 

* ♦ 
***************** 



*****p(l********** 



***************** 



*****Q4********** 



***************** 



*****P5* ********* 

♦ CALL PHASE 00 ♦ 

♦ TO WRITE * 
>* ELEMENT ON * 

♦ SYSUT2 * 

♦ ♦ 
***************** 



>* RETURN TO GET * 

a ♦ * 

*************** 



*****jl********* 

* 

* 

♦SAVE IN SAVETBL' 

♦ 
**************** 



* RETURN TO GET * 

♦ ♦ 
*************** 
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ILFCBL6U 



**B1******« 

* INITIALIZE ' 
• OPTIONS AND 

* SWITCHES 

* * 

*• «**♦****• 



IL01A1 
•****C1********** 
•PDATEX * 

•-•^♦-•-•-♦-♦-♦_» 

♦ PROCESS DATA * 

• A-TEXT * 

***************** 



IM01A1 
*****J31********** 
♦SE6000 * 
♦_♦_*_*_*_•_*_♦_* 

♦ PROCESS ♦ 

♦ PROCEDURE • 

♦ Al-TEXT * 
*•***•**•*••***•• 



iooia: 

♦••••El********* 1 
•GINIT2 

♦_♦_*_*_*-♦_•_*_ 
♦GENERATE INIT2, 

• INIT3. AND 

• INIT1 



•***G1* ******** 

♦ EXIT TO PHASE ♦ 

• 00 • 

* • 
• **f{*********** 



Flowcharts 293 



Licensed Material - Property of IBM 



Chart IL. Phase 64: PDATEX Routine 



****A1********* 

* * 

* PDATEX * 
*************** 

**** 



* *_> 
**** 

PDT020 T 

*** **B1 ** ** * * ** * * 
*GTF4B * 

*_*_*_*_*_*_*_*_* 

— >* GET DATA OR * 

* ERROR ELEMENT * 

* * 
***************** 



PDT030 

*****C2* ********* 

* CLOSE SYSUT4. * 
♦RELEASE TBLS NO* 

>* LONGER NEEDED. *- 

* MAKE RLDTBL * 
♦ENTRIES DIRECT.* 
***************** 



*****Q2*** ******* 

* * 

* IDENTIFY AND * 
->* PROCESS DATA * 

* A-TEXT * 

* * 
***************** 



D6SR10 

*****C3********** 
♦SORT RLDTBL IN * 
♦ASCENDING ORDER ♦ 
>* OF TARGET *- 

♦ ADDRESS * 

* * 
***************** 



*****£!* ********* 

* * 

* PUT E-TEXT IN * 
-*TABLE FOR ERROR* 

* PROCESSING * 

* * 
***************** 



* WRITE TEXT 

> AND RLD'S FROM 

♦ RLDTBL ♦ 

**************** 



*****D4* ********* 

* * 
*SET UP REGISTER* 
♦ASSIGNMENTS FOR+ 

* MAIN PROGRAM ♦ 

* * 
***************** 



♦EXIT TO GINIT2 ♦ 

* * 

*************** 
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Chart IH. Phase 64: SE6000 Routine 



****A1********* 

* SE6000 * 

* * 
*************** 



GET 

READ ELEMENT 
FROM SYSUT2 



********** 

**** 
* D2 * 

*....— 1 

PRO V 



ENDPTX 




*****C3*********« 


IL01A1 


* TERMINATION * 


****cn********* 


* ROUTINES FOR * 


* * 


>* PROCEDURE * 


>*EXIT TO PDATEX * 


* Al-TEXT * 


* * 


* PROCESSING * 


*************** 


***************** 





•+OP CODE AND*. YES 

* . ADDRESS . * 

*. ELEMENT .* 



♦PROCESS OP CODE* 

->* AND ADDRESS *- 

* ELEMENTS * 

***************** 



PNBPRO 

*****F2********** 
♦CREATE IN-LINE * 

* CONSTANT FROM * 
>*PREVIOUS SYSUT4* 

* ELEMENT * 



***** 



********* 



* MACRO * . 
INSTRUCTION . 
*. ELEMENT .* 



MACPRO 

*****H2********** 
♦DETERMINE TYPE * 

* AND GO TO * 
>* ROUTINE TO * 

* PROCESS * 

* * 
***************** 



SE6010 

*****J2* ********* 

* GET * 

* CORRESPONDING * 
>*SYSUT4 ELEMENT.* 

* LIST, SAVE IF * 



PN 



****K1**** ****** 

SPECIAL * 
INTERNAL *- 
ELEMENT * 
**************** 



******* 



GIDENL 

*****K2** ******** 
♦CREATE IN-LINE * 

* CONSTANT FROM * 
>* SPECIFIED * 

* ELEMENT * 

* * 
**************** 



I .... 

L_>* * 



* READ NEXT 
ELEMENT FROM 
SYSUT2 



*****£[} ********** 

* FORMAT LIST * 

* LINE. LIST. * 
♦PUNCH FROM PREV* 

* INSTRUCTION, * 

* RESET AREA * 



* Dl ♦ 
**** 



Flowcharts 295 



Licensed Material - Property of IBM 



Chart IN. Phase 64: ADREF, RC4, RC8C, and RD001 Routines 



****A1********* 

* * 

* ADREF * 

* * 
*************** 



****A3********* 

* * 

* RC8C * 

* * 
*************** 



*****B3 ********** 



************* 



***** C 1 ********** 

* GENREATE LOAD * 
♦INTO R14 OR R15* 

* OF BL, BLL, * 

* SBL, OR SBS * 

* * 
***************** 



*****£)!********** 

♦PUT R14 OR R15 ♦ 

♦ IN BASE FIELD ♦ 

♦ AND ♦ 
♦DISPLACEMENT IN* 

♦ DISP FIELD ♦ 
***************** 



V 

****£!********* 

♦ RETURN TO ♦ 

♦ MAINLINE ♦ 

♦ * 
*************** 



***************** 



*****C3********** 

♦ GET DISPLACE- ♦ 

♦ MENT OFF Rll ♦ 

♦ FROM LBDTBL ♦ 

♦ FILL DISPL IN ♦ 

♦ PRINT AREA * 
***************** 



****D3 + ^ + + + *++ 

♦ RETURN TO * 

♦ MAINLINE ♦ 

♦ * 
*************** 



****G1********* 

* * 

* RC«4 ♦ 

* * 
*************** 



*****H1 ********** 
♦FIND DISPLACE- ♦ 

* MENT OF PRO- * 

♦ CEDURE BLOCK ♦ 

♦ CELL IN PGT ♦ 

* * 
***************** 



*****J1* ********* 

♦ GENERATE BASE * 

♦ AND DISPLACE- ♦ 

♦ MENT BLOCK ♦ 

♦ NUMBER ♦ 

♦ * 
***************** 



****K1********* 

♦ RETURN TO * 

♦ MAINLINE ♦ 

♦ * 
*************** 



****G3********* 

* * 

* RD001 * 

* * 
*************** 



*****H3********** 

* FILL IN BASE ♦ 

* AND DISPLACE- ♦ 

* MENT OUTPUT ♦ 

* AREA * 

* * 
***************** 



****j3********* 

♦ RETURN TO * 

♦ MAINLINE * 

♦ * 
*************** 
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Chart 10. Phase 64: GINIT2 Routine 



****A1*** ****** 

* * 

* GINIT2 * 

* * 
*************** 



*****31********** 



*************** 



********** 



♦GENERATE CODING* 

* TO INITIALIZE * 

* VN CELLS * 

* * 
***************** 



FTIN3 

*****£!********** 

♦GENERATE CODING* 
* TO INITIALIZE * 
♦ANY Q-ROUTINES * 
♦THAT DEPEND ON * 
♦WORKING-STORAGE* 
***************** 



t***j?l**** ****** 



************* 



*****G1* ******* 

* SET AND LIST 

* INIT1 CODING. 

* WRITE LAST 

* CARD. 

***************: 



HI *. 
.* *. 

ANY ERROR 



->*EXIT TO ERRLOD * 
* * 

*************** 



* EXIT TO CLOSE * 

* * 
*************** 
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Chart IP. Phase 65: Overall Flou 



IKFCBL65 



**B2******* 

♦INITIALIZE * 

♦PHASE, PRIME ; 

* TABLES INIT 

* DATA AREAS 

* * 

*********** 



*****C2** ******** 

* DETERMINE OP- * 
♦TIONS IN EFFECT* 

* SYSDMP STATE * 

* FLOW * 

* * 
***************** 



ENTER FROM 
PHASE 00 IF 
SYMDMP. STATE, 
TEST,, OR FLOW 
IS SPECIFIED 



*'. FLOW ONLY '.* t 



A BRANCHING TABLE 
IS USED TO DIRECT 
CONTROL TO ONE OF 
SEVERAL ROUTINES 
FOR HANDLING EACH 
DEBUG-TEXT ELEMENT. 
CONTROL RETURNS 
TO THIS ROUTINE 
AFTER EACH ELEMENT 
IS PROCESSED UNTIL 
END-OF-FILE ON 
SYSUT2 OR SYSUT5. 



***E2********** 
READ ELT AND 
♦BUILD TABLES * 
— FOR SYMDMP AND 
♦ STATE ♦ 

**************** 



WRITE- CARDINDX, 
PROCINDX, 
SEGINDX TABLES 
ON SYSUT5 



.♦ SYMDMP OR ♦.. NO 

->*. TEST OPTION . * 

♦ ,IN EFFECT. ♦ 



*****P3* ********* 
* EOFON2 ♦ 

* COLLECT INFO ♦ 
-*FOR PROGSUM TBL+ 

* WRITE DEBUG * 
*INFO ON SYSUT5 * 
***************** 



*** 



*****G3 ********** 
* PNCHSW * 

♦ SET INFO FOR * 
♦TGT, WRITE END * 

♦ CARD * 

♦ * 
***************** 



*****E4* ********* 
♦SORT SEGINDX BY* 

♦ ASCENDING * 
— >* PRIORITY AND * 

♦WRITE IN OBJECT* 

♦ MODULE * 
***************** 



*************** 
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Chart IQ. Phase 65: TENPROC, TtfENPROC, and GTEQ10K Routines 



****A1********* 

TENPROC 

*************** 



Bl * 

VERB 



ENTER FROM RDF2 
VIA BRANCH TABLE 
SEE CHART IP01E2 



***B2*+******** 



**************** 



*****C1********** 

* CALCULATE * 

* RELATIVE ADDR * 
*OF CARD/VERB IN* 

* FRAGMENT * 



****A3********* 

* ♦. 

* TWENPROC * 

* ♦ 
*************** 



♦CALCULATE DUMMY* 

* ADDR WITHIN * 

* FRAGMENT * 



.♦ DUMMY *. Ni 
♦.ADDRESS < 6UK.*- 
* . BYTES . ♦ 



ENTER FROM 
RDF2 VIA 
BRANCH TABLE 
SEE CHART 
IP01E2 



♦ ♦♦* 



******** 



IQ01E5 
*****cn* ********* 

♦GTEQ10K * 

*_*_*_*_*_*_*_*_* 

->* END FRAGMENT *-• 

* START NEW * 

* FRAGMENT * 
***************** 



♦ RELATIVE * 
->*ADDRESS EQUALS ♦ 

♦ DUMMY ADDRESS * 

♦ ♦ 
***************** 



->* END FRAGMENT ♦ 

* START NEW * 

* FRAGMENT ♦ 
***************** 



*****£!********* 



* TXPNCR 

♦ENTER PREVIOUS 
* PROCTAB ENTRY 

**************** 



*****P2********** 



**************** 



* TXPNCH 

♦ENTER PREVIOUS 
♦ PROCTAB ENTRY 



START NEW 
FRAGMENT 



****F3********** 






****G1 ********** 

MOVE RELATIVE ♦ 
ADDRESS INTO ♦ 
PROCTAB AREA ♦ 
* 
**************** 



**** G 3********* 

♦RETURN TO RDF2 
*************** 



****E5********* 

* * 

* GTEQ10K ♦ 

* * 
*************** 



*****P5 ********** 

* * 
♦PUT DUMMY ENTRY+ 

♦ INTO PROCTAB ♦ 

♦ TABLE ♦ 

* * 
***************** 



***** G 5* ********* 
♦ SNF ♦ 

♦ MAKE SEGINDX ♦ 

♦ ENTRY FOR OLD ♦ 
♦FRAGMENT, START+ 



NEW 



*****jl ********** 
* * 

♦TURN OFF DISCSW* 
♦SWITCH TURN ON ♦ 
♦CRDINXSW SWITCH* 



IP01E2 
♦***K1*+ ******* 
♦RETURN TO RDF2 ♦ 

♦ ROUTINE ♦ 

* * 
*************** 



**E5******* 

RETURN TO 

CALLER 
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Chart IR (Part 1 of 3) . Phase 6A: Overall Plow 



****A1********* 

* IKFCBL6A * 

* * 
*************** 



V 
**B1******* 

♦INITIALIZATION * 

* * 

* * 

*********** 



****C1********** 

GETALL ♦ 

GET MAXIMUM * 

AMOUNT OF MAIN * 

STORAGE ♦ 

* 

**************** 



riNTEirFROM*' 
-PHASE 00 



.* 


*. YES 


♦.SXREF BIT ON .*-- — , 

•■.. ..-* 1 


*. .* ***** 


*NO *02 * 


**** 


* Al* 


* * 


* * 


* El * 


* 


* *-> 




**** 




READDEF V 


***£!*********** 


* * 


— > READ DEF-TEXT 


* * 


********** 


N****** 



*****P2********** 
♦TURN ON BIT TO ♦ 

♦ INDICATE ALL ♦ 
DEF-TEXT ♦ — > 
PROCESSED ♦ 

* * 
***************** 



->♦ 



.♦ NAME ♦. 
YES .♦ PROCESSED ♦. 
< — *.IN LAST CYCLE. 



**** 




• • 




♦ A3 ♦ 




* *— - 

*•** 1 

READREF V 


-♦. 


***A3*********** 


Al» •* 




*♦ ♦. 


' * ' ♦ 


.♦ ■ ■ < 


> READ REF-TEXT 


>♦. END OF FILE 


* ♦ 


♦. 4< 




♦. .♦ 


**************** 


♦. .♦ 



.♦ MATCHING ♦. 
. PROC-NAME . 
♦.PROCESSED. ♦ 



*****C3^********* 

* * 

* LOCATE DATA ♦ 
-♦ RECORD VIA ♦ 

♦DIRECT LOOK-UP ♦ 

* * 
***************** 



*****£)3********** 

♦ BSEARCH ♦ 

♦ LOCATE DATA ♦ 

♦ RECORD BY ♦<- 

♦ BINARY SEARCH ♦ 

♦ * 
***************** 



EOFREF 

♦**A5****"*"*» 
PRINT NAME. 
♦DEF CARD- AND ♦ 

> REFS ON 

♦ SYSPRINT • 
**************** 



B5 ♦. 
.♦ WAS ♦. 

.♦ NAME LAST ♦. YES 

♦.ONE PROCESSED. ♦ 

♦.IN CYCLE .♦ 



YES .♦ DATA- NAME ♦. 

-. *. BEING 

♦.PROCESSED. ♦ 



♦ NO 

I **** 

l_>* * 

♦ A3 ♦ 



*****£(l********** 

♦ * 

♦ SAVE HIGHEST ♦ 

♦ NAME JUST ♦< 

♦ PROCESSED ♦ 

♦ * 
***************** 



***FH* ********** 
CLOSE 
♦REF-TEXT DATA ♦ 
SET. RESET 
♦ SWITCHES. ♦ 

**************** 

I •*** 



**** 
*****G4********** 



♦NO 



*****C5********** 

* * 

* POINT TO NEXT ♦ 
-♦ DATA RECORD ♦ 

* * 

* * 
***************** 



D5 ♦. 

.♦ ALL ♦. 

.♦ DEF-TEXT ♦. 
♦. NAMES .♦<- 
♦. PROCESSED. ♦ 



***P5*********4* 

♦ CLOSE ♦ 
DEF-TEXT DATA 
SET ♦ 



.♦REF FITS IN^. YES 

♦.LAST OVERFLOW. ♦ 

RECORD 



CHAINED « 

TO DATA 
RECORD 



I*. .♦ 
*. .* 
♦NO 



*****J1*********« 



***************** 



.♦ OVERFLOW ♦. NO 

SPACE . ♦ 

♦.AVAILABLE. ♦ 



***************** 

I**** 
->* . * 

♦ A3 ♦ 

* * 
**** 

*****H(f ********** 



***************** 

I**** 
->♦ ♦ 

♦ A3 ♦ 

* * 
**** 

*****j(t ********** 
♦ SPLITRTN ♦ 

♦ SPLIT HIGHEST ♦ 
->♦ SOURCE ORDER ♦ 

♦ DATA RECORD ♦ 

♦ • 
***************** 



**************** 



*************** 



*****K3********** 

♦ ADD NEW ♦ 
♦OVERFLOW RECORD^ 

♦ TO CHAIN AND ♦ 

♦ INSERT REF ♦ 

♦ * 
***************** 

*••* 

* 
A3 ♦ 

w * 

**** 



->• 
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Chart IE (Part 2 of 3). Phase 6 A: Overall Flow 



***** 




♦ 02 ♦ 




* Al* 




* * 


**•* 


* 


* * 


| 


♦ A2 * 


1 


* *— , 


READDF V 


***A1*********** 


*****A2********** 




* CHAINRTN * 


* • 


* CHAIN DATA/ ♦ 


r — > READ DEF-TEXT 


*PROC-NAME DATA * 


* * 


* RECORDS ♦ 




* • 


**************** 


***************** 



*****B2********** 
♦TURN ON BIT TO * 

* INDICATE ALL * 
>♦ DEP-TEXT * 

* PROCESSED * 

* * 
***************** 



CI *. 
.* NAME *. 
YES .* PROCESSED *. 
<— *. IN PREVIOUS .* 
*. CYCLE .* 



**** 

* * 

♦ A2 • 



.♦DEFINITION *. YES 

♦. FOR DATA- .♦ 

*. NAME .♦ 



*****E2**** ****** 

* FORMAT 1 DATA * 
->* RECORD FOR ♦ 

* DATA-NAME ♦ 



l_>* 



* FIRST 

PROCEDURE- 
♦. NAME 



*****Q^********** 

* * 

* FORMAT DATA * 

* RECORD FOR *< 
♦PROCEDURE-NAME ♦ 

* * 
***************** 

**** 



*****jl********** 

* * 
♦COMPARE NAMES; * 

* INITIALIZE * 

♦CONTROL RECORDS ♦ 

* * 
***************** 



***************** 

**** 

♦ 
HI • 
* * 
**** 

*****F2********** 

* * 
* CHAINRTN * 

->*CHAIN DATA-NAME+ 

* DATA RECORDS ♦ 

* * 
***************** 



***** G 2********** 

* INITRTN * 

♦INITIALIZE TREE* 

♦ STRUCTURE FOR * 

♦ SORT . * 

♦ * 
***************** 



*****H2********** 
* EXHAUST * 

♦ REMOVE DATA- ♦ 
♦NAMES FROM TREE^ 
♦IN ALPHA ORDER ♦ 

* * 
***************** 



*****j2********** 

* * 
* BUILDRTN * 

-* BUILD SEARCH ♦ 

* RECORD TABLES * 

* * 
***************** 



*****A3********** 

* INITRTN ♦ 

♦INITIALIZE TREE^ 
->♦ STRUCTURE FOR ♦- 

* SORT ♦ 

* * 
***************** 



*****&()* ********* 

* COMPLETE * 

•SELECT N LOWEST* 

>♦ ALPHABETIC *- 

♦UNPROC'D NAMES * 
♦ * 

***************** 



*****A5********** 
♦ EXHAUST * 

* REMIVE NAMES * 
->* FROM TREE IN * 

* REVERSE ORDER * 

* * 
***************** 



*****B5********** 

* * 
* — -BUILDRTN * 

♦ BUILD SEARCH ♦ 

♦ RECORD TABLES * 

* * 
***************** 

**** 



READ REF-TEXT 



*****D3********** 
* ALFASRCH ♦ 

* SEARCH FOR * 
♦MATCHING DATA- ♦<- 

* NAME DATA RCD ♦ 

* * 
***************** 



.*< *. END OF FILE .* 



♦YES 
I **** 
L->*03 * 
* Al * 



*****£!)*********: 

♦ ALFASRCH 

♦ SEARCH FOR 
-♦MATCHING PROC- 

♦ NAME DATA RCD ; 
* 
**************** 



.* MATCH IN ♦ .NO 

♦.STORAGE THIS .* i 

♦. CYCLE .♦ I 



.♦REF FITS IN+. YES 

.LAST OVERFLOW. ♦ 

♦. RECORD .♦ 



CHAINED 

TO DATA 
RECORD 



.♦ OVERFLOW ♦. 

SPACE . 

♦.AVAILABLE. ♦ 



*****GU* ********* 



***************** 



**** 
*****H0** ******** 



***************** 



* C5 * 

* * 
**** 

*****jtl**** ****** 
* ALFASPLT * 

* SPLIT HIGHEST ♦ 
-> ♦ALPHABETIC DATA* 

* CORD * 

* * 
***************** 



*****K3********** 

* ADD NEW ♦ 
♦OVERFLOW RECORD ♦ 

* TO CHAIN AND ♦ 

* INSERT REF ♦ 

* * 
***************** 

I**** 
->* ♦ 

♦ C5 ♦ 

* * 
**** 
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***** 

♦ 03 * 

* Al* 



*****&!********** 

* REVERSE * 

* ALPHABETIC * 

* ORDER OF DATA * 
♦RECORDS (LOW TO* 

* HIGH) * 
***************** 



EOFRF 

***B1********* 

PRINT NAME. 

*DEF CARD, AND 



REFS 6n 
SYSPRINT 



*********** 



CI *. 
.* NAME *. 
.♦HIGHEST ONE*. NO 

♦.PROCESSED IN .* 

♦ . CYCLE . ♦ 



*****C2*** ******* 



***************** 



. * ALL ♦ . 

DEF-TEXT ' 

NAMES 

•PROCESSED.' 



*************** 



*****£!********** 

* * 

♦ SAVE HIGHEST * 
♦NAME PROCESSED * 

♦ IN CYCLE ♦ 

* * 
***************** 



*****pi********** 

* * 
♦CLOSE DEF-TEXT ♦ 

♦ AND REF-TEXT ♦ 

♦ DATA SETS ♦ 

* * 
***************** 



*****Gi*** ******* 

* * 

* ' ■ * 
*RESET SWITCHES * 

* * 

* * 
***************** 



**** 
->*02 * 
♦ Al * 
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Chart JA. Phases 70 , 71, and 72: Overall Flow 



****A2 ********* 

* * 

* ERRLOD * 

* + 
*************** 

**** 

* * 

* B2 * 



*****B3** ******** 

* SET ERRTBL * 

* CONTAINING * 
->*MESSAGE TO LOOK* 

* LIKE BUFFER * 



**** 



************ 



********** 



**** 



***D3*****' 
CLOSE 
♦SYSUT3/SYSUT4 * 
-> IF IT WAS OPEN. ■ 
* RELEASE TABLE* 
IF PRESENT 
**************** 



****DU** ******* 

* * 
->* EXIT TO CLOSE * 

* * 
*************** 



**** 

* * 

* F3 
****. 

*****F3** ******** 



•*"J 



******************* 



MSG 



.* PHASE 72 *. YES 
*. LOADED .* 1 



**** 

* * 

* F3 * 



*****q(4* ********* 



***************** 



JA01A5 
*****H(I** ******** 

♦PHASE71 * 



***************** 
I **** 



****J2********** 

* 

LINK TO PHASE * 



****A5********* 

* * 

* PHASE71 * 

* * 
*************** 



*****B5******** 



**************** 



******** 



****£5* ******** 

* PHASE72 
* 
*************** 



*****F5* ********* 
*PASS ADDRESSES * 

* FOR PH3ERR, * 
*PH4ERR. PH5ERR,* 

* AND PH6ERR * 



****G5* ******** 
*RETURN TO PHASE* 
* 70 * 



*************** 



JA01E5 
*****K2*** ******* 

♦PHASE72 * 
*_*_*_*_*_*_*_*_* 

* GET PHXERR * 

* ADDRESSES * 

•■*'■'. ■-■ ■ * : 

***************** 



* F3 * 

* * 
**** 
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( 

61 


FROM A 
PHASE 00 J 


t 


' 




SAVE 

REGISTERS & 
INITIALIZE 


CI , 


' 




IDSCAN 
IKFCBL09 


Dl 


r 




ENVSCAN 
IKFCBL8A 


E1 


7 




DAT AS CAN 
IKFCBL8B 


«■ 


' 




PROCSCAN 
IKFCBL8C 


Gl 


7 




MSGWRITE 
IKFCBL8D 


HI , 


' 


RESTORE 
REGISTERS 


Jl 

( 


■ ^ 


' 


RETURN TO ^ 
PHASE 00 J 
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c 



ENTER FROM A 
IKFCBL80 J 



SAVE 

REGISTERS & 
INITIALIZE 



PROCESS 
PROGRAM 




AUTHOR 
PARA 



Sss S^YES 




PROCESS 


\ 




AUTHOR 


/ 




PARA 













S YES 




PROCESS 


INSTALLATION"" 


t> 


INSTALLATION 


,PARA >" 






PARA 


• 


N 








DATE- 
WRITTEN 



^v. YES 


PROCESS 

DATE-WRITTEN 

PARA 










PROCESS 
$\ DATE-COMPILED 
PARA 



6 



SECURITY 
PARA 



a 





REMARKS 
PARA 



PROCESS 

SECURITY 

PARA 



^YJS p 


PROCESS 
REMARKS 
PARA 


1 







F4 


^ 


7 


RESTORE 
REGISTERS 


G4 


' 


r 



(RETURN TO ^ 
IKFCBL80 J 
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CENTER FROM A 
IKFCBL80 J 



SAVE 

REGISTERS 

& INITIALIZE 



PILE >^YES_ 
SECTION 







REPORT ^ YES 
SECTION 



RESTORE 
REGISTERS 



RETURN TO 
IKFCBL80 



J 



LINK 
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| Chart Kk (Part H of 5). Phase 80: FIPS 



(ENTER FROM ^ 
IKFCBL80 J 
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1 " ' "1 ' ■ - - — - — 1 

I | Table and TIB Number | 

i i ...... - u , ... . , . ■ 


i i 9 r 
lPhase| Built or Changed by Phase | Referenced Only | 
i i 1 1 


| 10 | ALPHTBL(27), CKPTBL(8), ENVTBL (3) , | | 
| | FNTBL(10), HASH(30), INDTBL(4), | | 
| | INDXTB(34), KEYTAB(26), 0D2TBL(9), | | 
| | PI0TBL(7), P1BTBL(2), QLTABL(1), | | 
| | QNMTBL(2), RCDTBL(11), RWRTBL(13), | | 
| | SATBL(5), SPNTBL(21) f SRATBL (6) , | | 
| | T0TTBL(32), UPSTBL(29) | | 


| 12 | CTLTBL(14), DETTBL(17), GCNTBL (24) , | FNTBL(10), SPNTBL(21) | 
| | HASH (30), NPTTBL(18), PIOTBL (7) , | | 
| | P1BTBL(2), QALTBL(23) r QLTABL(1), | | 
| | RNMTBL(12), ROLTBL(15), ROUTBL(16), | | 
| | RWRTBL(13), SMSTBL(28), SNMTBL (35) , | I 
| | SRCTBL(22) , SUMTBL (19) | I 

L.I I J 


| 1B | BICOT(20), GVFNTBL(4), GVNMTBL(3), | ALPHTBL(27) , DETTBL (17) , FNTBL(10), | 
| | HASH (30) , PIOTBL(7) r PNQTBL(6), | PIBTBL(2), P1BTBL<2), RCDTBL(11) f | 
| | PNTABL(5), QLTABL(1), RNMTBL(12), | ROUTBL(16), RWRTBL(13), SPNTBL(21) | 
| | USETBL(26), VRDEFTBL(14) | | 


| 20 | VALGRP(6), VALTRU(33) r LABTBL(13) | OD2TBL (9) | 


| 22 | DICOT(20), FDTAB(28), GPLSTK(10), | OD2TBL(9), TOTTBL (32) , UPSTBL(29), | 
| | HASH (30) , INDKEY(31), MASTODO(13), | VALGRP(6), VALTRU (33) | 
I |-OBJSUB(5), OCCTBL(2) , QFILE(23), | | 
| I QITBL(22), QRTN(21), QSBL(25), QVAR(24),| | 
| | RDFSTK(11), RENAMTB(3), RNMTBL(12), | | 
| | SRCHKY(34), VARLTBL(15) | | 

LI . , -■ . . 1 , ,, . , „ ,- -, 9 


I 21 | CKPTBL(8), DATATAB(16), HASH (30) , | FDTAB(28) r DICOT(20), PIOTBL(7) | 
| | IND2TBL(17) P QFILE(23), RUNTBL (35) 9 | I 
| | SAMETB(19) r SMRCDTBL(5) | | 

J_ 1 ,,-,-„ l ,,,,., 1 , U . 1 . . 1 


| 25 | OCCTBL(2), ODOTBL(14) | DICOT(20), HASH(30), M ASTODO (1 3) , { 
| I i OD2TBL(9), QITBL(22), QRTN<21), I 
I | | RENAMTB(3), VARLTBL(15) | 


| 3 | DTAB(4), QFILE(23), QVAR (24) , | DICOT(20), HASH (30), INDKEY(31), { 
| | USNGTBL(28) | | 
| | | IND2TBL(17), VALTRU (33) , QSBL(25) | 


| 35 | DBGTXT(6), DTAB (4) , PITEXT(5) # VRBDN (7) | | 
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r ' ' t , " 1 ' i 

|| Table and TIB Number 1 


1 1 i 1 

|Phase| Built or Changed by Phase | Referenced Only | 

1 j 1 ' . , 4 


| 4 | DBGTBL(13), DEFSBS(18), KEYTBL (20) , | | 
| | PFMTBL(12), PNOUNT(14), PSHTBL(17), | | 
| | PSIGNT(15), PTRFLS(16), SETTBL (21) , | I 
| | STRING (9), VARYTB(1), VNTBL(11) | | 


| 45 | SSCIN(5), SSCOUT(11), SSDELIM(20), | | 
| | TXTOUT(19) | | 
i 1 i f 


| 50 | BLUSTBL(IC), XAVAL(2), XINTR(1), | I 
| | XSCRPT (3) , XSSN.T (4) J | 


| 51 | BLUSTBL(10), GNCALTBL (16) „ PNUTBL (6) , | ALPHTBL(27), RUNTBL (35) , USETBL(26) | 
| | SEGTBL(15) | | 
i.i i f 


1 1 1 i 

| 6 | CONDIS(14), CONTBL(9), CVIRTB(12), I PNUTBL (6) , SEGTBL(15) | 
I | ERRTBL(10), GNTBL(8), LTLTBL (4) ,. | | 
| | PNTBL(7), QTBL(3), RLDTBL (none) , | | 
| | TGTADTBL (1) , VIRPTR(13) , VNPTY(17) { | 


| 62 | BLASGTBL(16) 9 BLVNTBL(23), CONDIS(14) r | BLU'STBL (10) , PNUTBL (6) , SEGTBL(15.) | 
| | CONTBL(9), CVIRTB(12) # DRPLTBL(25) f | | 
I | DRPTBL(24) , GNATBL (8) , GNFWDBTB (21 ) , | j 
| | GNLABTBL(19) , LTLTBL (4) g PNATBL(7) # | | 
| j PNFWDBTB (20) , PNLABTBL (1 8) , TGTADTBL ( 1) , | \ 
I | VIRPTR(13), VNPNTBL(29) # VNPTY(17) | | 


| 63 | GNLBDTBL (27) , PNLBDTBL (26) , QGNTBL (24) , J BL ASGTBL (1 6) , BL VNTBL (23) , DRPLTBL (25) | 
j | RLDTBL(28) # TGTADTBL (1) f VNPTY (1 7) .| . GNATBL (8) # GNLABTBL (19 ) P PNATBL (7) , | 
|| | PNLABTBL (18) ff SEGTBL(15), ?NPNTBL(29) | 

II l a 


I 64 | ERRTBL(10), QTBL(3) f RLDTBL (28), | BL ASGTBL (1 6) , GNATBL (8) r GNLBDTBL (27) 9 \ 
\ | TGTADTBL (1) | LTLTBL (4)^ PNATBL (7), PNLBDTBL (26) , | 
I | | QGNTBL (24) ff VIRPTR(13) 9 VNPTY(17) | 


| 65 | CARDINDX (11) , PROCINDX (5) , SEGINDX(16) | TGTADTBL (1) | 


! 6A | CNTLTBL(none) , DATATBL (none) V | | 
\ I OFLOTBL(none) I I 

i j ',■,■., i » 


ii i i 
| 70 | | ERRTBL(10) | 

i — -x ..,-... - ; _„-.,__ ,. l -„ — ... - -.,-.,_ _. - -. - ...« , , j 
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*The QNMTBL table also uses TIB 2 during phase 10 processing. 

**The REPTAB table (TIB 29) is used only during Phase 02. 
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r - ■ ' — t "■ ■T— - T - - — — 1 - , 

I IC (Internal Compiler) | A (Assembler) | E (Error) |XREF-Text |Debug-Text J 
1 III 1 ' 


| Phase C4| I | E-text | I | 


| Phase 10 | Data IC-text | | E-text | I | 


IPhase 12|Data IC-text | | E-text | 1 I 
| | Procedure IC-text | | | 1 1 
1 | (PO-text for Report II j I 1 
| | Writer subprogram) | | | | | 


| Phase 1 B| Procedure IC-text | | E-text j | | 
| | (PO-text for | | | | | 
| | Procedure Division) | I | I j 
i i - , ■ i , i i i i 


i i i it i 'i 

IPhase 20|ATF-text |Data A-text \ E-text \ | | 
II 1 (incomplete) | | | | 


IPhase 22 IProcedure IC-text |Data A-text | E-text | DEF-text (for | | 
j | (PC-text for | | J data-names) | | 
I |Q- Routines) j | | | | 


IPhase- 2-1 1 IData A-text \. E-text | | | 


IPhase 3 | Procedure IC-text | | E-text |DEF-text (for | | 
J | (P1-form) j j | procedure-names) | | 

i ■ i i i„ ,- ■ , . ■ i i i 


i i I II l l 

IPhase 35 IProcedure IC-text | | E-text | I | 
| | (PIA-form) | | || | 


II I II 1 f 

J Phase 4 | Procedure IC-text | | E-text | | | 
| | (P 2- form) | II 1 1 
| | ATM-text | | | | | 


i I l l l li 

IPhase 45| Procedure IC-text | | E-text | | | 
I |(P2-text for UNSTRING | II 1 1 
| | verb) | || | | 


IPhase 50 | Procedure IC-text (Intermediate j E-text | | | 
| | (P2-form) IProcedure | Inter- | I | 
I | | A-text •■■■'' '■" | mediate | 1 1 
I | | Intermediate | E-text j | | 
| | | Optimization | | | | 
1 1 1 A-text | | | | 


IPhase 51 1 IFinal | E-text j 1 1 
j | IProcedure | | | | 
1 1 | A-text || | | 
1 1 j Final | 1 | | 
I I jOptimizat ion | | j | 
1 1 I A- text | | | | 


IPhase 6 | | | |REF-text |Debug-text | 

LI 1 i 1 1 f 


h i i li l r 

IPhase 63 | IProcedure | | | Debug- text | 
1 1 |A1-text | | | | 


IPhase 64 | I I |REF-text | | 



Figure 61. Types of Compiler Text Produced by Each Phase 
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MICROFICHE DIRECTORIES 



This section 
used in coni 
listings of 
are usually 
names shown 
associates 1 
order) with 
they contain 
appear, and 
publication 



contains tw 
unction with 
the compiler 
the same as 
in the direc 
oad modules 
object modul 
, the flowch 
the chapters 
in which the 



o directories to be 

microfiche 

Microfiche names 
the load module 
tories. Figure 62 
(listed in phase 
e names, the CSECTs 
arts in which they 

of this 
y are described. 



Figure 63 associates external symbols 
(listed in alphabetical order) with the 
load modules in which they appear. Those 
external symbols that are CSECT names are 
designated as "SD. " Those that are 
location definitions within a CSECT are 
designated as "LD. '■ 



r~ t r n- « - "~ "T "i 

| Load | Entry | CSECT |Flow- |Refer to| 1 
\ Module | Point | Names | charts j Chapter | Function | 

1 1 1 1 1 1 1! 


i 1 1 II 1 IT 

|IKFCBL00| START |IKFCBL00 | AA | Phase- CO | Provides an interface between | 
| | JPH0SECT2 || | the operating phases of the | 
j | | PH0TBST1 | | | compiler and between the system | 
| | |PH0TBST2 | | | and the compiler. Handles tables| 
| | |TBDATA | | | and the dictionary for the | 
| j j II 1 operating phases, as well as | 
|| | III reguests for system input/output | 
| | I || | operations. I 
i i iti i t 


III III I 

|IKFCBL01| IIKFCBL01 |BA |Phase 01| Contains installation default | 
| | | | | | values of compilation parameters. | 
i i i i i i j 


i t i ii i if 
|IKFCBLC2| IIKFCBL02 | BB |Phase 02| Initializes the compiler. | 
1 1 IIKF021 III I 

LI 1 1 1 1 J 


1 1 1 1 1 j ....,.., . j 

|IKFCBL03|PHC3 | IKFCBLC3 | BC |Phase 03 | Issues error messages and returns 1 
| | j | | j to phase CO to terminate a | 
| | | | | 1 compilation. I 
LI 1 111 I 


|IKFCBLC4| STRTPHOU | IKFCBL04 | |Phase 04| Performs COPY/BASIS functions. | 
t i i ill l 


t 1 i \ ,1 ....... j . .. i 

|IKFCBLC5| IIKF0501 | j Phase 05| Analyzes syntax of source program | 
| | | || | and inserts syntactic markers f or | 
| | | j| | Lister processing. | 

LI II II 1 


II 1 III * 

|IKFCBL06| IIKF0601 | | Phase 06| Inserts cross-reference information! 
| | | II I into source program based on | 
| | | III syntactic markers. | 


|IKFCBL08| JIKF0801 | |Phase 08 J Produces Lister output. | 


|IKFCBL10| PH1A |IKF101 | CA-CD |Phase 10| Reads the Identification, | 
| | | . Ill Environment, and Data Divisions | 
| | | . | | | of the source program and stores | 
| | I . • II I the information in tables, the | 
| | j . j j | COMMON communications area, and | 
| | JIKF118 | | | Data IC-text for phase 20. | 


|IKFCBL12|PHRW |IKF101 jCE-CJ |Phase.12| Processes Report Section of the \ 
| | | II I Data Division and generates | 
| j | III Report Writer Subprogram. | 
I I I* II I i 
| | |IKF114 | | | I 



Figure 62. Load Module Directory (Part 1 of 4) 
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r~ "■ -'i ~ — — t- 1 ■ T" 1 ■•'■-- — i ' " • i 

| Load f Entry | CSECT | Flow- | Refer tol 1 
| Module | Point | Names J charts [Chapter 1 Function 1 


|IKFCBL1B|PH1B \ SDDEF1 [ CK J Phase 1B| Reads the Procedure Division of I 
j | IIKF101 | j j the source program and stores | 
| | | . i l | its information in tables, the | 
| | | . J S i dictionary, and PO-text and J 
I | | ■ . ■ ' j | | Listing A-text. I 
I I IIKF10C | | | I 

1 1 1 5 1 1 ! 


k 1 1 it 1 S 

|IKFCBL2C|PH20 j SDDEF2 | DA-DD |Pfaase.20| Reads the Data IC-text from phase 1 
J | | (or IKF200) J | 1 10 and creates ATF-text for | 
| | JIKF201B | | I phase 22. Produces incomplete j 
| | JIKF202 J | | Data A-text for VALUE clauses. I 

I I IIKF209 | j | I 


|IKFCBL22|START22 JIKF202 |DE-DL JPhase 22j Reads Data IC-text and ATF-text | 
| | | | I I and generates dictionary J 
| j | . j j j entries. Also generates | 
| | | I J i Q-Routines and DEF-text, and com- | 
| [ j IKF209 } I | pletes Data A-text from phase 20. | 


IIKFCBL21JPH2 JIKF201 JDM^DN JPhase 211 Completes FD and SD dictionary | 
| | | IKF203 | j | entries and writes Data A-text 1 
| | IIKF2C5 | j j for DCBs, DECBs, and buffers. | 
1 1 1IKF207 11 i 1 
1 1 IIKF209 | j | | 
1 I IIKF211 111 I 
I I IIKF213 | J | I 
I I IIKF214 j | | | 
I I IIKF215 I j | | 


IIKFCBL25JPHASE25 IIKF251 |DO-DR JPhase 25| Produces the DATATAB and OBODOTAB | 
| | JIKF252 I J i tables on the Debug data set I 
| | IIKF25A J J I (SYSUT5) if the SYMDMP option is | 
I | I | { | in effect. I 


1IKFCBL3C|IKFCBL30 j IKFCBL30 I EA-EC |Phase 3 | Reads the PO-text from phase 1B, \ 
l | 1 j | j replaces the procedure-names with| 
| | | | | J their dictionary attributes, | 
j | | | j J expands SEARCH statements and | 
| | 11 1 1 CORRESPONDING clauses, and writesj 
| | | . II 1 the text as P1-text for phase 4. | 
| j | j j { Also produces a Data Division | 
| | j j I | glossary, if requested. Writes | 
| | | I | J procedure name DEF-text for phase | 
j J | | J | 6A, if a cross-reference listing J 
j | j f | { has been requested. I 

1 , I 1 ! , J 11 1 


|IKFCBL35|IKFCBL35 IIKFUOA | | Phase 35j Scans USE FOR DEBUGGING declara- | 
| 1 IIKF40B 11 ! tives. Inserts debug verbs into | 
| | j IKF40BL | j | procedure IC-text, if required. | 
1 1 IIKF40C J i | 1 

1 1 IIKF409 J | | | 
1 | 1 IK FU 0.1 | I | I 
I I IIKF406 | I | | 



Figure 62. Load Module Directory (Part 2 of 4) 
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r ' '■ , "" i - T — —i 1 i — *- ■- t 

| Load | Entry | CSECT | Flow- |Refer to| | 
| Module | Point | Names |charts|Chapter | Function { 


|IKFCBL40|PH4 |IKF40A | FA-FC |Phase4 | Performs syntax analysis on the | 
| | (or CBLIKF40 |IKF40B | | | Pi-text from phase 3, expands | 
| | or PHINIT) |IKF40B1 | | | each complex or implied verb | 
1 | | IKF40C | | | string into a series of simpler | 
I j 1IKF40D j j | strings, thus producing P2-text | 
I i |IKF40E | | | for phases 50 and 51. Produces | 
| | |IKF40F | | | ATM-text for the UNSTRING verb. | 
I I IIKF409 III I 
| | |IKF401 111 I 
I I IIKF406 111' I 
I | | | | 1 , ,., L J 


fIKFCBL45|PHASE45 | IKF450 | FD-FF |Phase 45| Translates ATM-text from phase 4 | 
| | (or PH45) | || | for the UNSTRING verb into | 
I 1 ! • 1 1 1 P2-text for phase 51. | 

I I IIKF453 l | | | 


|IKFCBL50| PHASE50 | IKF50 1 |GA-GE JPhase 50 | Begins to break down the P2-text | 
I J I I I I from phase 4 into assembler- | 
j j | I | | language- like statements that | 
| | I • I I l generally have a one-to-one | 
I | v IIKF503 | | | correspondence to machine | 
| | JIKF50A | | | instructions. These are written j 
I | | || | as Intermediate A-text, which | 
| | | . | | | consists of Intermediate | 
I | | . | I | Procedure A-text and Intermediate! 
|| |IKF50F | | | Optimization A-text for input to | 
| | 1IKF504 | | | phase 51. Phase 50 also | 
j | j IKF505 I | | produces Optimization A-text to J 
| | | II I help phase 6 or 62 to eliminate | 
I | III I storage duplication. | 


[IKFCBL51 |PHASE51 |IKF501 |GF-GJ |Phase 51 | Completes the breaking down of P2- | 
| | IIKF503 | j | text into assembler-language-like| 
I | |IKF502 | | | statements that generally have a | 
| || IKF50 A || | one-to-one correspondence to | 
| | | IKF50G | | | machine instructions. These are | 
| | I • 1 11 written as Final Procedure A-text | 
| | j j] | for phase 6 or phases 62 and 63. j 
| 1 1 - 1 1 | It also produces Optimization | 
\ 1 JIKF50M | | J A-text to help phase 6 or 62 to j 
I | IIKF504 | | | eliminate storage duplication. | 
1 1 IIKF505 111 1 


IIKFCBL60 |PHASE6 |IKF601 |HA-HF |Phase 6 | Combines all the information from I 
I | (or PH6) | || | Procedure A-text, Optimization | 
| j | | | | A-text, and Data A-text into an | 
| | | ll | object module. Produces an | 
| | | IKF609 | | | object program listing, if | 
| | |IKF610 | | | reguested. Writes FEF-text on | 
| | III I reference to data-names, file- l 
| | | | | | names, and procedure-names for | 
|| | | | | phase 6A, if a cross-reference | 
| | 1 II 1 listing has been reguested. | 
| | 1 | 1 1 Writes Debug-text if the STATE | 
j 1 | | | | option has been reguested. | 

L f 1 1 II,.., J 


1 1 1 II 1 1 

|IKFCBL62|PRASE62 |IKF62 |IA-ID |Phase 62| Reads Optimization A-text and | 
| | | IKF623 | | J optimizes literals and virtuals; | 
| | IIKF625 | j | reads Procedure A-text and I 
I | IIKF626 | | | calculates Procedure block I 
1 1 JIKF627 | | | numbers. Produces partial list- | 
1 | IIKF628 | | | ings for DMAP, CLIST, and PMAP. | 



Figure 62. 
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I" - " "T • 1 I " 1 i "" 1 

| Load | Entry | CSECT | Flow- |Refer to| I 
| Module | Point | Names | charts|Chapter | Function | 


|IKFCBL63|PHASE63 | IKF63 |IE-IJ |Phase 63 1 - Produces Procedure A1-text from | 
| | |IKF631 | | | Procedure A-text, generating all | 
| | | | I I remaining instructions for the | 
I | | II I object program with the exceptionl 
| | | || | of certain load instructions. | 
| | j | | | Writes Debug- text if the STATE or| 
| | | | | | SYMDMP option has been reguested. | 
i ' i nil t 


h i i ill r 
|IKFCBL64| PHASE64 | IKF64 |IK-IO |Phase 64| Processes Data A-text and Proce- | 
| | |IKF643 | 1 1 dure A1-text and completes the | 
| | | IKF644 | | | object text. Produces an object | 
| | |IKF6 45 | | | program listing, if reguested. | 
I | |IKF6455 | | | Writes REF-text for phase 6A. | 
| | |IKF646 | | | | 
I I |IKF647 III I 
| | |IKF6 48 | | | | 


IIKFCBL65 JPHASE65 JIKF651 |IP-IQ | Phase 6 5 J Produces debugging information for | 
| | (or PH65) | IKF652 | | | the SYMDMP, FLOW, and/or STATE | 
| | I-IKF653 | | | options in the TGT. Adds the | 
|| | III PROCTAB and SEGINDX tables | 
|| | | | | to the object module after INIT3 | 
| | | || | for STATE; completes the Debug | 
I | | | | | data set (SYSUT5) for SYMDMP. | 
I | | | | | Called only if SYMDMP, FLOW, | 
I I j j j | and/or STATE has been reguested. | 
i . . i , . i i i i * 


& i i i i i r 

|IKFCBL6A| IIKF6A01 | IR |Phase 6A | Writes a cross-reference listing | 
I | IIKF6A02 | | | from DEF-text and REF-text. | 
I | IIKF601A | | | listing has been reguested. | 
I | | | | | listing has been reguested. | 
i . . i I 111 f 


|IKFCBL70|PH7 |IKF701 |JA |Phase 70 | Writes error messages for phases 10 | 
| | (or IKFCBL70) |IKF702 | | | through 65, if a listing of error| 
I | I IKF703 | | | messages has been reguested. | 
I II II I Called only if program errors | 
I I I II I have been detected during | 
I I | I | | compilation. j 

1 1 1 1 1 1 9 


1 I 1 1 1 1 t 

IIKFCBL71 | IKFCBL71 |IKF711 |JA (Phase 71| Contains message text for error | 
I I I II I messages generated by phases 20, | 
! I I I 1 I 22, 21, or 25* I 


|IKFCBL72|IKFCBL72 |IKF721 | JA | Phase 72| Contains message text for error | 
I | | | || messages generated by phases 3, | 

I | | || | 4, 45, 50, 51, 6, 62, 63, 64, or | 

II I I I I 65. I 


|IKFCBL8C|IKFCBL80 | CHKCOPY | |Phase 80 | Scans the source program for | 
I | ICHKGLBLS I | | deviations from the Federal | 
I j JDATASCAN | | | Information Processing Standard | 
I | | ENVSCAN | I I (FIPS) and produces a listing. | 
I I IFIPSVT | | | | 
I I I GETLINE | | | | 
I | IGETWORD | | | | 
| | | IDSCAN | I I I 
I I |IKFCBL80 | || | 
I I | MSGHNDLR | | | | 
I | IMSGWRITE | I \ I 
I I I PROSCAN | I I I 
| I l-PDTLINE | II I 
I I | VERBCHK | | | | 



Figure 62. Load Module Directory (Part 4 of 4) 
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r ~i ■- r - -" - ■» - - "i 

j | jLoad/ ICSECT | 
lExternal | | Ob ject jwhere LD | 
j Symbol* |Type | Module | Appears | 
i III 1 


ICBLIKF40 |LD | IKFCBL40 |IKF408 | 
| (or PH4 III 1 
| or PHINIT) III 1 


ICHKCOPY |SD |IKFCBL80| | 
| CHKGLBLS 111 1 
| DATASCAN II | | 
IENVSCAN | 1 | | 
| FIPSVT III 1 
IGETLINE III 1 
JGETWORD III 1 
IIDSCAN III 1 


IIKFCBLOO |SD | IKFCBLOO | | 


IIKFCBL01 |SD |IKFCBL01| | 


IIKFCBL02 |SD |IKFCBL02| | 


IIKFCBL03 |SD | IKFCBL03 | | 
i l l 1 1 


I II 1 1 

IIKFCBLOO |SD |IKFCBL04| | 


IIKFCBL20 |SD | IKFCBL20 | | 
l tl 1 t 


1 1 1 i I 

IIKFCBL22 |SD | IKFCBL22 | | 


IIKFCBL30 |LD | IKFCBL30 | | 
I 1 1 1 1 


IIKFCBL60 |SD | IKFCBL60 | | 


IIKFCBL65 |SD | IKFCBL65 | | 
1 1 1 1 1 


IIKFCBL71 |SD |IKFCBL71| | 


IIKFCBL72 |SD | IKFCBL72 | | 
1 II 1 1 1 


1 \ II 1 

IIKFCBL80 |LD | IKFCBL80 1 IKFCBL80 | 


IIKF0501 JSD |IKFCBL05| | 
I ■ II I 1 


IIKF0601 |SD |IKFCBL06| | 


IIKF0801 |SD |IKFCBL08| | 
1 ll l 1 


^ ......... . | | j j 

IIKF021 |SD |IKFCBL02| | 


JIKF101 |SD |IKFCBL10| | 
I • I • 1 * I 1 
I* 1* 1 • 1 1 

IIKF118 |SD |IKFCBL10| | 
I ' ' * \ 


|*Use of "also" implies two separate CSECTI 
| cards, where one CSECT has a length of | 
| zero in storage; "or" applies to LDs | 
j which are equated. I 



r~ " 






— i 1 


- - ■ ■ —i - i 

Load/ |CSECT | 


lExternal 








Object Jwhere LD | 


| Symbol* 






|Type | 


Module | Appears | 
1 \ 


IIKF101 






ISD I 


IKFCBL12| | 


IIKF114 






|SD ! 


IKFCBL12| | 


IIKF101 






ISD | 


IKFCBL1B| | 


IIKF109 






ISD I 


IKFCBL1B| | 
1 | 


IIKF201 






|SD 


IKFCBL21| | 


IIKF203 










IIKF205 












IIKF207 












IIKF209 












JIKF211 












IIKF213 












IIKF214 












IIKF215 






|SD 


IKFCBL21 | | 


IIKF201B 






ISD I 


IKFCBL20| | 


IIKF202 










IIKF203 












IIKF204 












IIKF205 












IIKF206 












IIKF207 












IIKF208 












IIKF209 






|SD 


IKFCBL20| | 


IIKF202 






|SD 


IKFCBL22| | 


IIKF209 






|SD 


IKFCBL22| | 


IIKF251 






1SD I 


IKFCBL25|IKFI51 | 


IIKF252 






|SD 




IIKF25A 






|SD | 


| | 


IIKF40A 






|SD 


IKFCBL40| | 


IIKF40B 










IIKF40B1 












IIKF40C 












IIKF40D 












IIKF40E 












IIKF40F 












IIKF409 












IIKF401 












JIKF406 






ISD | 


IKFCBL40J | 
• | 


|*Use of « 


•al 


so* 


• implies 


1 I 

two separate CSECTI 


| cards , \ 


tfhe 


re 


one CSEC] 


P has a length of | 


| zero in 


storage; "or" 


applies to LDs | 


| which are 


equated. 
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— i 1 


Load/ jCSECT | 


{External 






Object | where LD | 


(Symbol* 




IType ! 


Module | Appears f 


IIKF450 




|SD 


IKFCBL45| | 


IIKF451 




1 • 1 


• 1 1 


IIKF452 




1 . 


• 1 t 


IIKF453 




|SD | 


IKFCBL45 | | 


(IKF501 




|SD 


IKFCBL50I f 


IIKF502 








IIKF503 












IIKF50A 












IIKF50B 












{IKF50C 












IIKF50D 












IIKF50E 












IIKF50F 












IIKF504 












(IKF505 




|SD 


IKFCBL50I | 


IIKF501 




|SD | 


IKFCBL51 | | 


(IKF502 








IIKF503 












IIKF50A 












(IKF50G 












IIKF50H 












IIKF50I 












[IKF50J 












IIKF50K 












IIKF50L 












IIKF50M 












IIKF504 












IIKF505 




|SD 


IKFCBL51 | f 


IIKF6A01 




|SD 


IKFCBL6A| | 


IIKF6A02 




|SD 


IKFCBL6AI | 


IILF601 




|SD 


IKFCBL60( | 


IIKF609 




|SD 


|IKFCBL60| | 


IIKF651 




|SD 


IKFCBL65| | 


IIKF656 




|SD 


|IKFCBL65| | 
\ ^ • 


|*Use of 


"also" implies 


two separate CSECTI 


I cards. 


where 


one CSEC 


r has a length of | 


I zero in 


stor< 


ige; "or" 


applies to LDs f 


I which are eqi 


iat 


ed. 







Figure 63 (Part 3 of 5) . 
Directory 



External Symbol 



External 
Symbol* 



IKF701 



IKF703 



IKF711 



IKF721 



MSGHNDLR 



HSG WRITE 



OPENEXIT 



PHASE45 



PHASE50 



PHASE51 
(or PH51) 



PHASE6 
(or PH6) 



PHASE65 
(or PH65) 



I 

IType 



1 j j 

Load/ |CSECT 
Object j where LD 
Module | Appears 



H 

|SD 

I- 
I- 
I. 

|SD 



H 

|SD 



|SD 



|SD 



|SD 



|LD 



|LD 



|LD 



|LD 
I 



|LD 
I 



|LD 

I 



PHINIT 
(or PH4 
or CBLIKF4 0) 



-I 

|LD 

I 

I 



PHRW 



H 

|LD 



PH0SECT2 



|SD 



PH0TBST1 



JSD 



PH0TBST2 



|SD 



PH03 



jLD 



PH1A 



|LD 



PH1B 



|LD 



- +- 

IKFCBL70 | 

I 
I 
I 

IKFCBL70 | 



IKFCBL71 | 



IKFCBL72| 



IKFCBL80I 



IKFCBL80| 



IKFCBL80JIKFCBL80 



+ 



IKFCBL45 |IKF450 



+ 



H 



IKFCBL50JIKF504 f 



+- 



IKFCBL51 |IKF504 
I 



H- 



IKFCBL60|IKF601 
I 



IKFCBL65 IIKF651 
I 



+- 



IKFCBL40|IKF408 
I 
I 



_l 

IKFCBL12 |IKF101 



IKFCBLOOI 



IKFCBLOO | 



IKFCBLOOj 



IKFCBL03 IIKFCBL03 



-4- 



IKFCBL10fIKF101 



4 

IKFCBL1B|IKF101 



*Use of "also" implies two separate CSECT 
cards , where one CSECT has a length of 
zero in storage; "or" applies to LDs 
which are equated. 

i 

Figure 63 (Part 4 of 5). External Symbol 
Directory 
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j External 
| Symbol* 


i 1 

Type | 


r- - — t — - 1 

Load/ ICSECT | 
Object | where LD j 
Module | Appears j 


|PH2 


LD 


IKFCBL21 |IKF201 


i 


IPH20 


LD 


IKFCBL20|IKFCBL20 | 


|PH4 

| (or CBLIKF40 

| or PHI NIT) 


LD I 


IKFCBL40|IKF408 | 


|PH45 


LD | 


IKFCBL45 |IKF450 


• 


|PH6 

| (or PHASE6) | 


LD 


IKFCBL60|IKF601 | 


IPH65 

| (or PHASE65) | 


LD 


IKFCBL65|IKF651 


i 


|PH7 


LD 


IKFCBL70|IKF701 | 


IPROCSCAN 


SD | 


IKFCBL80| 


i 


IPUTLINE 


SD 


IKFCBL80I | 


IRTRN85 | 


LD | 


IKFCBL80|IKFCBL80 


A 


ISDDEF1 

| (also IKF101) 


SD 


IKFCBL10I | 


ISDDEF1 


SD 


IKFCBL1B| 


T 


JSDDEF2 

| (also IKF200) 


SD | 


IKFCBL20| | 


I START 


LD | 


IKFCBL00|PH0SECT2 | 


ISTART22 


LD 


IKFCBL22|IKF202 | 


ITBDATA 


SD 1 


IKFCBLOO | 


1 


IVERBCHK 
1 


SD 
I 


IKFCBL80| 


1 
1 


|*Use of "also" : 
j cards, where oi 
| zero in storage 
| which are equal 


Lmplies 
le CSEC] 
■*; "or" 
:ed. 


two separate CSECT | 

P has a length of | 

applies to LDs | 
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COMM UNICATIONS AREA (COMMO N) 



The communications area (COMMON) is 
resident in storage throughout compilation 
at the beginning of phase 00. The format 
of COMMON is defined as DSECTs in the 
remainder of the phases and, therefore, 
each phase can refer to any cell in COMMON 
by its own name. 



Phase 00 passes a parameter list to each 
phase, the first word of which always 
contains the address of COMMON. The phases 
use this value to set up and maintain a 
register which points to COMMON, as shown 
in Figure 64. 



Much of the information saved in COMMON 
by phases 10 through 51 is used by phase 6 
or 6 2 to form the Task Global Table (TGT) 
and Program Global Table (PGT) of the 
object program. 



When the BATCH option has been 
specified, certain cells in COMMON are 
reset to their original values by routines 
in phase 02 for subseguent compilations 
after the first. These cells are indicated 
by an asterisk following the cell name. 



SECTION 5. DATA AREAS 



r i 


1 


| Phase | Register 




| 01 | ** 




I 02 | 10 




| 03 | 12 




| 04 | ** 




| 05 | 09 




| 06 | 12 




I 08 | 09 




I 10 | 1 




I 12 | 1 




I 1B | 1 




I 20 | 11* 




| 22 | 1 




1 21 | 1 




| 25 | 10 




| 3 | ** 




I 35 i ** 




I 4 | ** 




I 50 I 10 




j 51 | «- /I0 




I 6 | 9 




I 62 | 9 




I 63 | 9 




I 64 | 9 




I 65 | 9 




| 6A | 10 




| 70 | 9 




| 80 | ** 
1 1 




| *Except during ACCMET routine. 




|**No register maintained throughout 




| phase. 




i, — . _ - - 


j 



Figure 64. Registers Pointing to COMMON 
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Csll 
COS 



TIBO- 
TIB35* 



No, of Displacement 
Bv^es Hex, Decimal 
12 



8 each 00C 



12 



Purpose 
Executable instructions. This section of code is 
used as an entry point to phase 00 by other 
phases. See "Receiving Control from Another 
Phase" in the chapter "Phase 00," 

Table Information Blocks (TlBs) used by TAMER (see 
"Appendix A, Table and Dictionary Handling") . 
TIB20 is reserved for the DICOT table, and TIB30 
is reserved for the HASH table. The rest are 
assigned to various compiler tables throughout 
compilation; one TIB may be reassigned when the 
table for which it was used is released. 



APRIME 
AINSRT 
ADSTAT 
RELADD 
TAMNAD 


4 each 


12C 
130 
134 
138 
13C 


300 
3 04 
308 
312 
316 


ACCESW* 


1 


140 


320 


AMAINF 


3 


141 


321 


ALSTAM 


4 


144 


324 


LOCCTR* 


4 


148 


328 



PROG ID* 



GNCTR* 



VIRCTR* 



14C 



15A 



15C 



332 



LABELS* 


2 


154 


340 


PRBLDISP 


2 


156 


342 


PNCTR* 


2 


158 


344 



346 



348 



Address constants of TAMER routines used by the 
phases in table management requests. 



ACCESS initialization switch (see "Appendix A. 
Table and Dictionary Handling") . 

Pointer to the main free area for tables and the 
dictionary. 

Pointer to the -last entry in the TAMM table (see 
"Appendix A. Table and Dictionary Handling") . 

Relative address of the next location available in 
the object program. It is incremented by phases 
22 and 21 as they assign locations to data and 
then by phase 6 or phases 62, 63, and 64 as they 
assign locations to the Global Tables and 
procedure instructions, 

PROGRAM-ID from the Identification Division of the 
source program. It is saved to be used as the 
CSECT name of the object module. If the program 
is segmented, the name is the CSECT name of the 
root segment, and its first six characters are 
used with priority numbers to name the other 
segments. 

Label information. 

Displacement of PROCEDURE BLOCK cells in the PGT, 

Used in phase 1B as a counter for assigning unique 
PN numbers to source program procedure-names. In 
phase 6, it is set to the displacement of the PN 
field from the beginning of the PGT, 

Used in phases 10, 1B, 22, 4, 50, and 51 as a 
counter for assigning unique GN numbers to 
compiler-generated procedure-names. In phase 6 or 
62, it is set to the displacement of the GN field 
from the beginning of the PGT. 

Used in phases 50 and 51 as a counter for assigning 
unique identifying numbers to virtuals (names of 
external procedures) , In phase 6 or 62, it is set 
to the displacement of the VIRTUAL field from the 
beginning of the PGT. 
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Cell 
LTLCTR* 



WCMAX* 



No • of Displacement 
Bytes Hex. Decimal 
2 15E ~550 



160 352 



TSMAX* 2 



TS2MAX* 2 



ODOCTR* 2 



162 354 



164 356 



166 358 



CKPCTR* 2 



SBLCTR* 2 



168 360 



16A 362 



Purpose 
Used in phases 50 and 51 as a counter to save the 
number of literals. In phase 6 or 62, it is set 
to the displacement of the LITERAL field from the 
beginning of the PGT. 

Set by phases 5 and 51 to the size of the largest 
work area needed by any COBOL library subroutine. 
In phase 6 or 62, it is set to the displacement of 
the WORKING CELLS field from the beginning of the 
TGT. 

Set by phases 50 and 51 to the maximum number of 
doubleword cells needed for temporary storage at 
execution time by arithmetic verbs. In phase 6 or 
62, it is set to the displacement of the TEMP 
STORAGE field from the beginning of the TGT. 

Set by phases 50 and 51 to the number of bytes 
needed for temporary work areas by nonarithmetic 
statements. In phase 6 or 62, it is set to the 
displacement of the TEMP STORAGE- 2 field from the 
beginning of the TGT. 

Set in phase 22 to the number of Q-Routines 

generated to initialize a field which contains an 

, OCCURS... DEPENDING ON clause the object of which 
is an item in Working-Storage or Communication 
Section or is in a basic file. A Q-Routine is a 
subroutine which, at execution time, calculates 
the length of a variable-length field created by 
the OCCURS. . .DEPENDING ON option, and the location 
of the variably-located field which may follow it. 
It is used in phase 6 or 64 to set up table QTBL. 

Set in phase 21 to the number of checkpoint 

requests. It is used in phase 6 or 62 to allocate 
space for the CHECKPT CTR field of the TGT. Phase 
6 or 62 sets it to the displacement of the CHECKPT 
CTR field from the beginning of the TGT. 

Used in phase 22 as a counter for assigning unique 
identifying numbers for secondary base locators 
(SBLs) . In phase 6 or 62, it is set to the 
displacement of the SBL field from the beginning 
of the TGT. 



VLCCTR* 2 



16C 364 Used in phase 22 as a counter for assigning unique 
identifying numbers for variable length cells 
(?LCs) . In phase 6 or 62, it is set to the 
displacement of the VLC field from the beginning 
of the TGT. 



BLLCTR* 2 



SEQERR* 2 



DICND2* 4 



16E 366 Used in phase 22 to assign unique identifying 

numbers to Linkage Section base locators. In 
phase 6 or 62, it is set to the displacement of 
the BLL field from the beginning of the TGT. 

170 368 Count of source cards whose user-written card num- 
bers are out of sequence. Set by phases 10 and 
1B, and used by phase 70 in error message 
processing. 

174 372 Dictionary pointer for the last dictionary entry 
made in phase 22. 
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Cell 
DICND1* 



WSDEF* 



No . of Displacement 
Bytes Hex. D ecim al 
4 178 ~ 376 



17C 



380 



Purpose 
Dictionary pointer for the last dictionary entry 
made in phase IB. 

Set in phase 22 to the last seven bytes of the Data 
A-text element for Working-Storage Section address 
definition, which gives the first base locator 
number,, the starting address, and the length of 
the Working-Storage Section. When phase 6 or 62 
assigns permanent base registers for base 
locators, it uses this information because it 
assigns base registers to the Working-Storage 
Section first. 



ERRSEV 



183 



387 



DICADR* 


4 


184 


388 


DLSVAL* 


4 


188 


392 


DICPTR* 


1 


18C 


396 


DCPTR* 


3 


18D 


397 


RPTSAV* 


2 


190 


400 



SA2CTR* 



LCSECT* 
RGNCTR* 



192 



194 
198 



402 



404 
408 



Name 
WSSTRT 



WSBL 



HSS1ZE 



Bytes Meaning 

3 Starting address of 
Working- Storage 

1 BL number assigned to the 

beginning of Working-Storage 

3 Number of bytes occupied by 
[forking- Storage 



Set by phases 21 , 3, 4, 50, and 51 to the highest 
error severity level encountered in any phase. 
$hen phase 00 returns to the operating system, it 
passes a return code which indicates the highest 
error severity level encountered in the program, 

ACCESS communication cell (see "Table and Dictionary 
Handling") . 

ACCESS communication cell. 

ACCESS communication cell. 

ACCESS communication cell. 

Set by phase 10 if a Report Writer save area is 
needed at execution time. Used by phase 6 or 62 
to determine whether that area should be set in 
the TGT and then set to the displacement of the 
RPTSAV field from the beginning of the TGT. 

Set in phase 51 if a USE AFTER (BEFORE) STANDARD 
LABEL or USE AFTER STANDARD ERROR procedure is 
encountered. If this field is set, phase 6 or 62 
reserves an additional area (SAVE AREA-2) in the 
TGT and enters its displacement in this cell. 

Length of the object module CSECT. 

Set by phase 6 to the number of unique GNs or, under 
the optimizer version of the compiler, set by 
phase 51 to the number of GNs requiring an address 
constant cell in the PGT. 



ERF4SH* 1 19A 410 Switch used by phases 6 or 62 and 64 and 70. 

PTYNO* 1 19B 411 Set by phase 51 to current priority number, and used 

by phase 00. 
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COMMAD 



No • of Displacement 
Byte s Hex. Decimal 
2 " 19C 412 



AMOVDC* 
SDSIZ* 

SEGLMT* 



CURSGN* 



DATABDSP 2 



19E 


414 


1A0 


416 


1A4 


420 



1A8 



424 



1A9 425 



1AA 426 



INDEX1* 


2 


1AC 


428 


IOPTRCTR* 


2 


1AE 


430 


TS3MAX* 


2 


1B0 


432 


TS4MAX* 


2 


1B2 


434 


FLOWSZ* 


1 


1B4 


436 



SYSTX 


1 


135 


437 




1 


1B5 


437 


RPNCNTR 


2 


1B6 


438 



AGETALL 


4 


1B8 


440 


IDENTL* 


4 


1BC 


444 


BLCTR* 


2 


1C0 


446 



Purpose 
A comma followed by a decimal point. If the 

DECIMAL-POINT IS COMMA clause is specified, the 
order of the two is reversed; that is, a decimal 
point is followed by a comma. This cell is set by 
phase 10. This cell is used by phase 6 or 62 to 
set SWITCH in the TGT, or by phase 65 to set 
SWITCH with the STATE and/or FLOW options. 

Unused. 

Address constant for TAMER routines. 

Set by phase 22 to the size of the largest Sort File 
Description (SD) Entry in the program. 

Priority number of the highest-numbered Procedure 
Division section to be considered part of the root 
segment. Set in phase 10 to the value specified 
in the SEGMENT-LIMIT clause, or to 49. If phase 
1B finds that the program is not segmented, it is 
set to hexadecimal 'FF 1 as an indication to later 
phases. 

Set in phase 10 to contain the literal specified in 
the CURRENCY- SIGN clause, and used by phase 20 to 
recognize this literal. 

Contains displacement into SYSUT5 block of first 
entry in DATATAB table, set by phase 25 for use by 
phase 65. 

Number of index-names defined in INDEXED BY clause. 
Set in phase 6 or 62 to the displacement of the 
INDEX field from the beginning of the TGT. 

Number of input/output pointers for APPLY WRITE-ONLY 
clause. 

Set by phases 50 and 51 to the number of bytes 

needed for temporary storage for the SYNCHRONIZED 
option. 

Set by phase 50 to the number of bytes needed for 
temporary storage by table-handling verbs. 

Set by phase 02 to the number of traces requested 
for the flow trace option. The default is 99. 
Used by phase 65 to fill in the DEBUG TABLE in the 
TGT. 

To save SYSX from PARM field for a batch compile. 

Unused. 

Under the optimizer version of the compiler, set by 
phase 51 to the number of PNs requiring an address 
constant cell in the PGT. Used by phases 62, 63, 
and 6 4. 

Address constant for TAMER routines. 

Set in phase 6 or 64 to the relative location of the 
first executable instruction. 

Used in phase 22 as a counter for assigning unique 
identifying numbers to base locators for files and 
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Cell 



No. of Displaceme nt 
Bytes Hex. Decimal 



VNCTR* 2 



ONCTR* 



PFMCTR* 2 



PSVCTR* 2 



XSACTR* 2 



1C2 450 



1C4 452 



1C6 454 



1C8 456 



1CA 458 



XSWCTR* 



PH6ERR 



1CC 460 



1CE 462 



RELLOC* 



1D0 



464 



GTLNG* 


2 


1D4 


468 


VNILOC* 


2 


1D6 


470 


VNLOC* 


2 


1D8 


472 


SUBCTR* 


2 


1DA 


474 



Purpose 
Working-Storage Section. In phase 6 or 62, it is 
set to the displacement of the BL field from the 
beginning of the TGT. 

Used in phase 4 as a counter for assigning unigue 
identifying numbers to variable procedure-names. 
In phase 6 or 62, it is set to eight times the 
phase 4 value. 

Used in phase 51 as a counter to assign unigue 

identifying numbers to ON control cells. In phase 
6 or 62, it is set to the displacement of the 
ONCTL field from the beginning of the TGT. 

Used in phase 4 as a counter to assign unique 

identifying numbers to PERFORM control cells. In 
phase 6 or 62, it is set to the displacement of 
the PFMCTL field from the beginning of the TGT. 

Used in phase 4 as a counter to assign unique 
identifying numbers to PERFORM save cells. In 
phase 6 or 62, it is set to the displacement of 
field PFMSAV from the beginning of the TGT. 

Relative location within an EXHIBIT or SORT save 
area of the next area to be assigned. It is used 
by phase 51 in processing EXHIBIT or SORT 
statements and then is set to the total number of 
bytes needed for the save area. In phase 6 or 62, 
it is set to the displacement of field XSA from 
the beginning of the TGT. 

(Not e: this counter is used and then increment- 
ed, unlike other counters which are incremented 
and then used. The increment is equal to the 
number of bytes in the save area used.) 

Used by phase 51 as a counter to assign unique 

identifying numbers to EXHIBIT first-rtime switches 
and special ON switches. In phase 6 or 62, it is 
set to the displacement of field XSASH from the 
beginning of the TGT. 

Used by phases 6 or 62 and 64 and 65 to indicate 
that an error message is to be generated by phase 
70. Bits 0^9 are correlated to messages IKF6001I 
- IKF6010I. Phase 70 checks bits 0-9 and if a bit 
is set to 1, the corresponding message is 
generated. 

Set in phase 6 or 62 to the relative location, 
within the object module or root segment, of the 
beginning of the TGT. 

Set in phase 6 or 62 to the length of the TGT. 

Set in phase 6 or 62 to the relative location of the 
VN field from the beginning of the PGT. 

Set in phase 6 or 62 to the relative location of the 
VN field from the beginning of the TGT. 

Used in phase 4 as a counter to assign unique 

identifying numbers to subscripted references. In 
phase 6 or 62, it is set to the displacement of 
field SUBADR from the beginning of the TGT. 
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Cell 

PARMAX* 



PRBLNUM 



No. of Displacement 
Bytes Hex. Decimal 
2 1DC 476 



1DE 



478 



Purpos e 
Set in phase 50 to the size of the parameter area 
needed for parameter lists for macro instruction 
expansion of some of the source statements. In 
phase 6 or 62 , it is set to the displacement of 
the PARAM field from the beginning of the TGT. 

Set by phase 62 to the number of Procedure blocks in 
the program; used by phases 63 and 64. 



SPACING* 



CORESIZE 


4 


COMFLOW 


1 




3 


FIL5BUF 


4 


ADATAB 


4 


DATATBNM 


2 


OBODOTBN 


2 



| DBGLOC 
SWITV2 



1DF 



1E0 



479 



480 



1E4 484 

1E5 485 

1E8 488 

1EC 492 

1F0 496 

1F2 498 



NODECTR 


2 


1F4 


500 


PROCCTR 


2 


1F6 


502 


AMICTR 


2 


1F8 


504 



1FA 506 
1FC 508 



Set by phase 02 to the number of spaces between 
lines in the listing. Used by phase 6 or 64 for 
the statistics portion of the listing. 

Set by phase 02 to the total number of bytes 

available for this compilation. Used by phase 6 
or 64 for the statistics portion of the listing. 

Value for FLOW from EXEC card. 

Unused 

Used by phase 02 to store the address of the SYSUT5 
buffer. Phases 25 and 65 also use this cell. 

Note address for the first block of the DATATAB 
table of SYSUT5. 

Number of DATATAB blocks on SYSUT5. 

Total number of bytes used for OBODOTAB entries on 
SYSUT5 e including the slack bytes needed to align 
each OBODOTAB entry on a fullword boundary and 
unused bytes at the end of a block. 

Number of node counters. 

Procedure^ name counter. 

Used by phase 21 as a counter for assigning unigue 
identifying numbers for File Information Blocks. 
Phase 6 or 62 sets the field to the displacement 
of the FIB field from the beginning of the TGT. 

Displacement of TDBGTRA in the TGT. 

Switch 



Name Bit 
NODUMP 1 



CNTFDECL 

COBOL2 2 

LSTRETXT 3 

INFOMSG 4 



Meaning 

The compiler will not 
issue an abend for 
D-level message condition 
and will generate the 
message. (NODUMP option) 

Declaratives specified 
for COUNT. 

ANS 1974 interpretation. 

If E-text from phase 04. 

On if messages present 
that FIPS cannot process. 



1FD 509 



Unused 
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No. of D isplaceme nt 



Cell 
TMCNTBSZ 


Bytes 
4 


Hex. 
200 


Decimal 
512 


VTINITVN 


2 


204 


516 




2 


206 


5 18 


AMILOC 


2 


208 


520 


INTVIRT 


2 


20A 


522 


LOCTMCTT 


4 


20C 


524 


VIOVIRN 


2 


210 


528 


LISTERSH 


1 


212 


530 



Purpose 
Size of count table. 

Virtual number for VSAM. 

Reserved 

Set by phase 62 to the number of FIB cells. Tested 
by phase 64 , 

Virtual number for Initialization routines ILBOINT0, 
Used by phases 62-64, 

Start of count table. 

Virtual number for ILBOV2C0. Used by phases 62-64. 

Switch 



I 

f COLLOVAL 
I COLHIVAL 
l CDLCCTH 
C01LITN0 



| DICTNAHE 
| LNGDSP 
| LNGBL 
APLSCALL 

BUGSTCRD 



f INDEX 
DATE* 



CHDNUM 



BCDISP 



1 
1 

3 

2 
2 

4 

2 

2 

4 
1 

3 
14 

6 

15 



213 


531 


214 


532 


215 


533 


218 


5 36 


21 A 


538 


21C 


540 


220 


544 


222 


546 


224 


548 


228 


552 


229 


553 


22C 


556 


23A 


570 


240 


576 



24F 



252 



591 



594 



Name 


Bit 


Option 


LSTRDECK 





FDECK 


LSTRPCH 


1 


CDECK 


LSTRCOMP 


2 


LSTCOMP 


LSTRONLY 


3 


LSTONLY 


LSTRPRC2 


4 


LCOL2 


LSTR132 


5. 


L132 



Collating sequence LOW VALUE. 

Collating sequence HIGH VALUE. 

LOCCTR for CD INITIAL 

Literal number of PCS. 
Unused. 

Pointer to dictionary name from LATPTR. 

Displacement of first LINAGE-COUNTER. 

BL number of first LINAGE-COUNTER. 

Address of PLSCALL routine in phse DC. 
Unused, 

Card number of first PN following declaratives. 
Unused 

Index all 

Set by phase 02 to the date and time of compilation; 
reused as follows by phases 10 and 1B: 

B.2i^§ Meaning 

0-3 Number of data-names 

4-7 Number of verbs 

8-11 Number of source cards 

12-14 Unused 

Used to hold object deck card number during 
processing by phases 62 through 6 4. 

Set by phase 6 or 6 2 to the displacement of the 
EBCDIC NAME field in the PGT. ' 
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Cell 

BCDCTR 



LINECNTX 
COMPILES 
| CNTLINE 

J ERRNUK* 
DBGODISP 

SA3CTR* 



No. of Disp lacement 
Bytes H ex. Decimal 
2 254 596 



256 
258 

25C 



598 

600 
604 



25E 606 

260 608 

262 610 



VCONDISP 


2 


264 


612 




2 


26 6 


614 


SYNADR01 


8 


268 


616 



Purpose 
Set by phase 6 or 62 to the number of EBCDIC names 
to be placed in the PGT. This number is 
multiplied by 8 during phase 6 or 62 processing 

and the resulting amount of space is reserved in 

the PGT. 

To save LINECNT from PARM field for a batch compile. 

Number of compilations for the BATCH option. 

Set by phase 02 to the total number of lines per 
listing page. Used by phase 6 or 64 for the 
statistics portion of the listing. 

Number of errors for this compilation. 

Displacement of ILBODBG0 virtual cell from the 
beginning of the PGT. 

Set to four times the maximum number of files 
specified in any OPEN statement. Phase 6 or 62 
reserves an additional area (SAVE AREA-3) in the 
TGT and enters its displacement, in this cell. 

Displacement of VCON TBL field in TGT. 

Unused 

Used by phase 03 to store registers and 1 for the 
SYNADAF macro instruction. 



332 Section 5. Data Areas 



Licensed Material - Property of IBM 



Cell 
ADDRCARD 



DCBCTR* 



No » of Displacement 
Byte s Hex, Decimal 
4 270 624 



274 



628 



OPTINSW 1 


276 


630 


0PTINSW1 1 


277 


631 


0PTINSW2 1 


278 


632 


0PTINSW3 1 


279 


533 


OPTINSW4 1 


27A 


634 


NimiNCR 1 


27B 


634 


) DEFCNT 4 


27C 


636 


PHZSW 1 


280 


640 



Purpose 
Address of the CBL card saved by phase 02 or 10 for 
the BATCH option. 

Used in phase 21 as a counter for assigning unique 
identifying numbers for DCBs (data control 
blocks). In phase 6 or 62, it is set to the 
displacement of the DCBADR field from the 
beginning of the PGT. 

Used to hold PHZSW until PHZSW is reset for the 
BATCH option. 

Used to hold PHZSW1 until PHZSW1 is reset for the 
BATCH option. 

Used to hold PHZSW2 until PHZSW2 is reset for the 
BATCH option. 

Used to hold PHZSW3 until PHZSH3 is reset for the 
BATCH option. 

Used to hold PHZSW4 until PHZSW4 is reset for the 
BATCH option. 

SYMDMP card number increment. 

Number of definition text elements. 

Set by phase 02 from the compilation options. If 
the bit is on, the option was chosen. 



Equate 

Name 

LIST 

LISTX 

DECK 

LINK 

SEQ 

FLAGW 

LIBR 

ZWB 



3 it 


Option 





SOURCE 


1 


PflAP 


2 


DECK 


3 


LOAD 


4 


SEQ 


5 


FLAGW 


6 


LIB 


7 


ZWB 



SYMSK 



When SYNTAX is specified Phase 00 turns off all the 
bits to negate the options listed below. If 
CSYNTAX is specified and one or more error {*.) or 
disaster (D) level message is found, phase 21 , 30 , 
40, or 50 turns off all the bits to negate the 
options listed below. 



LISTX 

DECK 



LINK 



PHZSW1 



281 641 



Same as PHZSW for additional options. 



Eguate 






Naae 


Bit 


Option 


XRFF 





X*EF 


CLIST 


1 


CLIST 


SYM 


2 


D*AP 


FLOW 


3 


FLOW 


SXREP 


4 


SXRFF 


APOST 


5 


APOST 


MAPSP 


6 


SUP* A? 


TRUNC 


7 


TPHNC 
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No. of Displacement. 
Cell Bytes flex. Dec im al £u££ose 

SYMSK1 ~ Same as SYMSK for the following options: 



FLOH 


TRUNC 


CLIST 


SYM 


SXREF 


XREF 



PHZSW2 1 282 642 Same as PHZSW for additional options. 



Eq u at e 






Name 


Bit 


Option 


TERM 





TERM 


NUM 


1 


NUM 


DYNAM 


2 


DYNAM 


BATCH 


3 


BATCH 


NAME 


4 


NAME 


SYMCAN 


5 


SYMDMP canceled 


STATE 


6 


STATE 


SYMDMP 


7 


SYMDMP 



SYMSK2 Same as SYMSK for the following options: 

SYMDMP STATE 

NAME 

PHZSW3 1 233 643 Same as PHZSW for additional options. 

Equate 

Name 

opt"" 

RESEXEC 

SYNTAX 

CSYNTAX 

NOPRINT 

TEST 

COBDBG 

ENDJOB 

VERBR 

The remaining bits are unused. 
SYMSK3 Same as SYMSK for the following: 

TEST 
PHZSW4 1 284 644 Same as PHZSH for additional options. 



lit 


Option 





OPT 


1 


RESIDENT 


2 


SYNTAX 


3 


CSYNTAX 


4 


(TSO only) 


5 


TEST 


5 


TEST 


6 


END JOB 


7 


VERB 



Eq u at e 






Name 


Bit 


Option 


VSUM 





VBSUM 


VRBF 


1 


VBBEF 


COTTNTL 


2 


COUNT 


TIMERL 


3 




NEWADV 


4 


ADV. 



1 235 645 Unused 

SWITCH* 2 236 646 TRACE, DEBUG, SYMDMP, and Q-fioutine information. 

Equate 

Name Bit Meaning 

SWTRCE Set by phase 1B if TRACE statement 
is encountered so that phase 4 
will generate TRACE coding at 
each procedure-name definition. 
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Cell 



No . of Displacement 
B yt es Hex. Decimal 



N06A 

RPTWTR 

SPILL 
COLATON 

MQVAR 

MQFILE 
SYMIFP 



SYS5TD 
SORTRTN 

RERUN N 

DSOU 
NOFITSW 



Purpos e 
Set by phase 6 or 64 to indicate to 
phase 00 that the SXREF or XREF 
option has been canceled. 

Set by phase 10 to indicate whether 
to call phase 12. 

Set by phase 00 if dictionary spill 
occurs in phase 1B, 22, or 21. 

Switch indicating PROGRAM COLLATING 
SEQUENCE, not NATIVE, exists. 

Set by phase 22 if it builds a QVAR 
table. 



Unused. 

Set by phase 22 if 
QFILE table. 



Lt builds a 



8 Set by phase 25 r when SYMDMP or 

TEST is requested, there is a 
floating-point item in the 
program. Tested by phase 62 to 
determine whether a virtual for 
ILBOTEF3 is to be generated. 

9 Set on if the SYSUT5 data set is on 

tape; set off if SYSUT5 is on 
disk, 

10 Set by phase 3 if the SORT-RETURN 

special register for the Sort 
Feature is specified and used by 
phase 51 . 

11 Set by phase 10 if the RERUN clause 

for the Sort Feature is 
specified, and used by phases 21, 
51, and either 6 or 62 and 64. 

12 Source indicator for statistics. 

13 Indicates to phases 00 and 70 that 

phase 6 or 64 wrote E-text on 
SYSUT3. 



DOPH7 14 Tested by phase 6 or 62 or 64 to 
determine whether to call phase 
70. 



PH1BYTE* 



288 



648 



RDERRFIL 1 


5 Indi 


Lcates that ] 


phase 70 mu 




E- 


•text on SYSUT4. 


Switch. 








Equate 








Name 


Bit 


Set bv 


Used by 


F3TEXT 





3,51 


6 


QRTN1PBL 


1 


62 


63 


BASIS 


2 


02 


00 


F4TEXT 


3 


21,3,4,51 


6 or 64 


S370IN 


4 


02 


50,51 


INITBIT 


5 


10 


20 


EOPPH1 


6 


10 


1B 


UPSIBT 


7 


10 


20 
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gell 
STAESW 



NO, Of 

Bytes 

1 



Displacement 
Hex. D ecimal 
289 ~ 649 



BATCHSW 



28A 



650 



SPACEX 
DECBCT* 

DCBNOXX 
BUFSIZE 

CORCRD* 
SWITCH2 



1 

2 

2 

4 



28B 651 
28C 652 



28E 


654 


290 


656 


294 


660 


297 


663 



Purpos e 
STAE information for the BATCH option. 



Equate 
Name 
STAEON 
STAEFAIL 



Bit Meaning 
""0 STAE executed, 
1 STAE was not successful. 



The remaining bits are unused, 
BATCH option information. 



Equate 

Name 

EOFSYSIN 

ENDFOUND 

BOMBED 

ENDIN1A 

CARDHELD 



DONTSET 
NOTFIRST 

LINISOFF 



Bit Meaning 

End of file on SYSIN. 

1 Delimiter has been read, 

2 Compiler tried to 

terminate, 

3 End of file reached by 

phase 10, 

4 Card read by phase 02 is 

to be passed to 
phase 10. 

5 Bypass routine, 

6 Set after the first 

compile. 

7 SYSLIN is not open. 



To save SPACE from PARM field for a batch compile. 

Used in phase 21 as a counter for assigning 

identifying numbers to DECBs. In phase 6 or 62, 
it is set to the displacement of the DECBADR field 
from the beginning of the TGT. 

Passes the DCB number for the optimizer phases. 

Set by phase 02 to the total number of bytes to be 
used for buffers. Used by phase 6 or 64 for the 
statistics portion of the listing. 

The card number of the text item currently being 
processed. 

Switch, 



Equate 

Name 

OPTDISP 



PH63NOPR 



Bit Meaning 

Set to 1 by phase 50 if 

ILBODSP0 is to be 
called; set to if 
ILBODSS0 is to be 
called 

1 Set to 1 by phase 62 if 

phase 63 is to perform 
no processing but call 
pha se 64 
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No. of Displacement 
Cell B ytes Hex. Decimal 



EOJCALL 



Purpos e 
2 



Set to 1 by phase 00 if 
it receives a call for 
end-of-job processing. 



RERONBT 



SWITCH1 



298 



664 





3 


299 


665 


KTRMNATE 


4 


29C 


668 


RELSPACA 


4 


2A0 


672 


KALOOT 


4 


2A4 


676 


KKADS5 


4 


2A8 


680 


LINKCNT 


2 


2AC 


684 


KKPHOSW 


1 


2AD 


686 



If there is a RERUN 
clause, phase 10 sets 
this bit to 1 to 
indicate to phase 51 to 
move the address of the 
Checkpoint subroutine 
(ILBOCKP0) into the 
exit list. 



The remaining bits are unused. 
Used for SYMDMP and UNSTRING communication. 



Equate 

Name 

RENAMON 

OCCTBON 

PH45BIT 



CVBBIT 
NEDBIT 
APPHRO 

ANEBIT 
ADRSYM 



Bit Meaning 

Phase 22 built RENAMTB 

table. 

1 Phase 22 built OCCTBL 

table. 

2 Set by phase 4 to 

indicate that phase 45 
is to be called for the 
UNSTRING verb. 

3 Set if the ILBOCVB0 

subroutine is needed. 

4 Set if the ILBONED0 

subroutine is needed. 

5 APPLY WRITE ONLY 

specified in source 
program. 

6 Set if the ILBOANE0 

subroutine is needed. 

7 Set if the ILBOADR0 

subroutine is needed 



Unused 



Pointer to error code for phase 03. (See the 
chapter "Phase 03" for a list of the codes and 
their meanings.) 

Address of RELSPACE (TAMER address constant) . 

A (LOUT) — pointer to SYSOUT DCB address. 

A (DS5) — pointer to SYSUT5 DCB address. Phase 65 
uses this address in opening and closing SYSUT5. 

Set to the phase in main storage; used by phases 00 
and 03. 

Switch 



Equate 

Name 

KKPH0RT 



Bit Meaning 
7 Phase 00 has issued a 
RETURN macro 
instruction 



The remaining bits are unused. 
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No, of Displacement 
Cell Bytes Hex. Decimal 
PHZERR 1 2AE 687 



Purpose 
Switch for error message. 



PRIflTBUF 1 



2AF 688 



Printer carriage control character. 



PROGSW 



2B0 689 



Switch for progress message. 



KKPGR70 



2B2 690 X'FeFAOO 1 — phase 70 purge constant; reset by phase 

03. 





1 


2B5 


693 


INITSIZE 


2 


2B6 


694 


DICND3 


4 


2B8 


696 



Unused. 



Size of INIT1 as it is always generated. 



Set by phase 22 to the dictionary pointer for the 
last dictionary entry in the File Section. 



PH25SW 2 
| SYSTDD 1 



2BC 
2BE 



700 
702 



Number of blocks written on SYSUT5 by phase 25. 



Used by phases 02, 60 and 62 to determine the final 
alphanumeric character for DISPLAY SYSOUx DD name. 



FIPLVL 1 



2BF 703 Set by phase 02 to indicate use level of FIPS 
flagging that is to be done by phase 80. 



12 
AHEADER 4 
ESDID 2 

| BGALLPN 2 
| BGALLPSI 1 
| V2BUGSW 1 



2C0 


704 


2CC 


716 


2D0 


720 


2D2 


722 


2D4 


724 


2D5 


725 



Reserved 



ADCON for header routine in phase 00. 



Used by phase 62 to pass last ESD ID number to phase 
64. 



PN for USE-DEBUG all procedures. 



Priority for USE-DEBUG QALL procedure* 



DEBUG switch. 



Eguate 

Nam e 

V2BUGON 

V2BUGDCL 

BGALLPRC 



Bit Meaning 

With debugging mode 

1 Debugging sections 

2 USE-DEBUG all procedures 



| BUGBLLNO 2 



2D6 726 



BLL for DEBUG 



| BUGVLCNO 2 
| MAXBGITM 2 



2D8 728 VLC for DEBUG 

2DA 730 Maximum size for DEBUG-ITEM, 
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| IDBYTES 



IDPHOO 
IDPH01 
IDPH02 
IDPH03 
IDPH04 
IDPH05 
IDPH06 
IDPH08 
IDPH10 
IDPH12 
IDPH1B 
IDPH20 
IDPH22 
IDPH21 
IDPH25 
IDPH30 
IDPH35 
IDPH40 
IDPH45 
IDPH50. 
IDPH51 
IDPH60 
IDPH62 
IDPH63 
IDPH64 
IDPH65 
IDPH6A 
IDPH70 
IDPH71 
IDPH72 
IDPH80 



I 

\ OUTLRECL 

8 OPTLVL 

8 OPTSOT2 

\ OPTLSTR 

| PHOSE 



28 



2DC 



732 



One byte for each phase of the compiler. Each phase 
dynamically stores its change level number in its 
corresponding byte. 



2DC 


732 


2DD 


733 


2DE 


734 


2DF 


735 


2E0 


736 


2E1 


737 


2E2 


738 


2E3 


739 


2E4 


740 


2E5 


741 


2E6 


742 


2E7 


743 


2E8 


744 


2E6 


745 


2EA 


746 


2EB 


747 


2EC 


748 


2ED 


7 49 


2EE 


750 


2EF 


751 


2F0 


752 


2F1 


753 


2F2 


754 


2F3 


755 


2F4 


756 


2F5 


7 57 


2F6 


758 


2F7 


759 


2F8 


760 


2F6 


761 


2FA 


762 


2FB 


763 


307 


775 


308 


776 


30A 


778 


30B 


779 


30C 


780 


30D 


781 



\ 2 

S ALIBEOD 4 

| ALIBSYNA 4 

I LIBBUF 4 



30E 


782 


310 


784 


314 


788 


318 


792 



Unused 

Unused 

121 or 131 set by phase 02 for LISTER. 

LVL option saved for batch 

Option in SWITV2 saved for batch 

Option in LISTERSH saved for batch 

Switch byte used in phase 0's. 



Equate 

Name 

SYSLIBNO 



Bit Meaning 
8 Switch for SYSLIB not 
available. 



Unused 

Address of EOD exit for library 

Address of SYNAD exit for library. 

Address of library input area (phase 04 to phase 
00) . 
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COMPILER TABLE FORMATS 



This chapter contains the formats of all 
the tables that are handled through the 
TAMER routines (see "Appendix A: Table and 
Dictionary Handling") . These tables are 
distinguishable from others in that (1) 
additional storage can be obtained for 
them, and (2) they can be left in TAMER 
table space by one phase to be used by 
another. 



NOTES ON COMPILER TABLE FORMATS 



• The top row of figures shows the number 
of bytes in the field. 



W0&MWSS^SfHSHK define optional 
fields or a series of similar fields. 



All other tables occupy fixed amounts of 
storage in the phases that use them. They 
are described in the chapters on the 
individual phases. 



• c = the number of bytes in the field 
that follows. 

• n = the total number of bytes that 
follow in the remainder of the entry . 

• 1b = this field is one byte long. 
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ALPHTBL 
(TIB 27) 



Purpose r 

Phase 10 builds this tablej 
from scan of alphabets in fr 
SPECIAL-NAMES paragraph. | 



| Variable | 
H h 



256 



© 



i® 
© 



phases Involved 

Phase 10 checks the table 

for alphabet-names found 

in CODE-SET clause. At 

end Of SPECIAL- NAMES, 

phase 10 scans the table 

for alphabet-names found 

in PROGRAM COLLATING 

SEQUENCE. 

Phase 1 B checks the table 

for alphabet-names found 

in SORT or MERGE statements. 

Phase 5 1 deletes this table 

at termination of processing. 

The count of the number of bytes in the 
name that follows. 



I 
H 

I alphabet- 4 S witchl 256-byte | 
I name | _^ | Translation! 

| | (2) | Table | 



Code 

01 

04 

08 

80 



Meaning 

PROGRAM COLLATING SEQUENCE 

STANDARD-1 (ASCII), no 256-byte 

translation table needed. 
NATIVE (EBCDIC), no 256-byte 

translation table needed. 
Literal already defined. 



If none of the above switches are on, the 
table entry is for a user-defined alphabet 
which is not the Program Collating 
Sequence. If the Literal Already Defined 
bit is on, the next two bytes contain the 
literal number (if not ASCII or EBCDIC). 



BLASGTBL 
(TIB 16) 



© 



Purpose 

Assign object-time 

permanently loaded 

registers. 

Entry Frequency 
One entry for each 
register: 6-10. 



Type cell | BL, BLL, | 

0J or OVERFLOW { 

I number | 

4 i 



Phases Involved 
Phase 6 2 builds this table 
using the BLUSTBL table. 
Phases 63 and 6 U use the 
information to determine 
which BL or BLL or OVERFLOW 
cell is in a permanent register. 

The type cell contains one of the 
following values: 



Code 


Meanina 


FF 


TGT OVERFLOW 


F0 


PGT OVERFLOW 


00 


data BL 


01 


data BLL 
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OVERFLOW coils for the TGT and PGT are 
assigned registers first./ since the 
number Of PROCEDURE BLOCK ADDRESS 
cells has not yet been determined, it 
is impossible to. know if another 
OVERFLOW cell will be required for the 
PGT. Therefore, phase 6 2 assigns 
registers 6-9 to the known OVERFLOW 
cells and to the most used data BLs 
and BLLs and reserves register 10 for 
the possible PGT OVERFLOW cell. If no 
OVERFLOW cell is needed, register 10 
is assigned to the next most used data 
BL or BLL. 

BLUSTBL 
(TIB 10) Purpose , •, 

Contains a count of J 3 | 

the references to J — : -f 

each BL and BLL. | Usage J 

j counter | 

Entry Frequen cy • J 

One entry for each 

BL and BLL assigned 

to the Data Division. 

Phases Invo lved 

Phases 50 and 5j build this 

table during the scan of P2-text. 

Pha se_6 2 uses this table to 

assign registers to the 

most used data BLs/BLLs. 

BLs 1 through n are followed 

by BLLs 1 through m. 

BLVNTBL 

(TIB 23) PurjDose 

Optimize generation of 

instructions to return 

control from a performed 

procedure to the GN 

return point. 

3niiy_£££3iL§ncy. 

One entry for each FXIT 
statement in the range 
of a PERFORM statement. 

£ll§se^ Involved 

Phase__62 builds this table 

during Optimization A-text 

processing upon reading a 

GN element for a PERFORM 

verb (24). It fills in the 

block number during Procedure 

A-text processing upon reading 

the VN reference element which 

follows the COO** element at 

the PEP FORM statement exit. 

£iL3j£SL.&l uses this table to 

d e t er mi n e whether t he G N 

return point (COOS element) is 

in the same block as the EXIT 

statement ami thus which 

Procedure Block number is 

contained in register 11 upon return 

from the performed procedure. 



3U2 Section r . Data Areas 



r- 


T T 


- 1 - " - — 1 


l 


2 1 


2 1 1 1 


i 


1 


1 1 


1 


1 


1 1 


1 


GN number j 


VN number | Block } 


1 


1 


| number | 


i_ 


-. JL. 


... L .- 1 
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>INDX 
} 11) 



Purpose r- 

Store information about | 

the first card number for |- 

each program fragment 

and user-written 

discontinuity within a 

segment for use by the j ^^^ 

COBOL library subroutines j m) 

when SYHDMP is specified. « 



1 



I Card/verb number J 

| for first card 

| in this group 
I 



Priority! Relative 
I fragment 
| number 
l within this 
I priority 
i 



Jilt rj_ Frequency 

One entry for each program 

fragment and one entry 

for each noncontiguous section 

other than the first within 

a segment. 

Phase s_ Involved 

Phase_6 5 builds this table 

while reading Debug-text on 

SYSUTU on building the 

PROCTAB table. 

Phase 6 5 writes this table 

on SYSUT5 and COBOL 

library subroutines use 

this table to relate card 

numbers to entries in 

the PROCTAB table. 



Iii§ £°.Hterij:s 
)-19 Card number 
?0-23 Verb number 

(verb number is always or 1) 



FB.L 
* 8) 



Bit 

1 

2-7 



Pur p ose 

Save RERUN statement 
information from source 
program scan. 

Ent ry Frequen cy 
One entry for each 
RERUN statement. 

P hase I nvol ved 
Phase_10 builds this 
table from RERUN 
statement in the 
source program. 
Phase 2 1 adds DCB number 
and uses this table to 
build RUNTBL and BSAM 
checkpoint file DCB. 

Meaning , if on 
Rerun every N record 
Rerun on END of REEL/UNIT 
Unused 



| External- 

jnarae of 

j checkpoint 

I file 

I 

I 




1 



Unused I DCB number] "Integer"! Chain 

jof check- |f or RERUN} poin tar 
Jpoint file) file J (contains 
| | (contains} zeros if no 

| {zeros for J other entry 

\ I SORT I for file) 

| I RERUN) | 

i j i 
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CNTLTBL 

© 



© 



Purpose 

Sorts data-names and 
procedure-names for the 
SXFEF option. 



There 
Phase 
GETALL 
data i 



Entry Frequen cy 
One entry (CONTROL record) | 
for each DEF-text element. «• 
Phases, Involved 
Phase_6A builds and uses 
this table to reorder 
data-names and procedure- 
names alphabetically for 
the SXBEF option. 



is no TIB for this table 

6A uses the phase 00 routine 

to get space, but moves 
n and out of the table by itself. 



I Pointer to 
} associated 
| DATA record 



T : 1 : 

I 2 | 2 

-+ — : r 

J Pointer to CONTROL | Pointer to 
1 record for lower J CONTROL record 
fname on first |for lower name 
] compare | on next, compare 
-j i 



CONDIS 
(TIB 14) 



I 



I 



Pur pose 

Store DISPLAY literals 

during literal 

optimization. 

En try_ Frequency 
One entry for each 
unique DISPLAY literal. 



Pha s es Involv ed 

Phase 6 or, under the optimizer 

version of the compiler, 

phase 62 builds this table 

while processing Optimization 

A-text. 

Pha se 6 or Phase 62 uses this 

table with CONTBL and LTLTBL 

to eliminate duplicate 

DISPLAY literals. 



J Variable | 



I 



| Literal | 



I 



CONTBL 
(TIB 9) 



Purpose 

Store each non-DISPLAY 
literal value during 
optimization of literals. 

Entry Frequency 
one entry for each 
unique non-DISPLAY 
literal. 



| Variable | 

I I 

J Literal J 

! I 

i __j 



Phases Involved 

Phase 6 or, under the optimizer 

version of the compiler, 

phase 62 builds this table 

while processing optimization 

A-text. 

£il§se_6_of_£hase_62 uses this 

table"" wit h~CONDIS and LTLTBL 

to eliminate duplicate 

non-DISPLAY literals. 
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?BL (Report Writer) 

> 14) Purpose 

Store information on 
control-names to check 
validity and build 
routines using them. 

E ntry Frequency 

One for each control-name. 






|n | Duplicate | Save name 

I | name (-nnnn) | (-nnnn) 

| |in EBCDIC | in EBCDIC 

« I ® ' I 



1 



Flagl Level |GN number 
bytejof thisjfor control 
|control| heading 

®! ! 



Phases Involved 
phase 12 routine RDSCAN 
builds this table. 
Phase 1 2 routine GNSPRT 
and most other routines 
use this table to create 
CTB-ROUT, SAV-ROUT, 
RET-ROUT routines. 



Variable 



|GN number | Unused | Size of | Control-name including 
jfor control j J previousi qualifiers, and subscripts 
| footing | jentry Cty (if any) in PO-text form. 



ITB 
I 12) 



I 

J Virtual 

I 

t. 



Purpose 

Store virtual definition 

elements during virtual 

optimization. 

Entry Frequency 
One entry for each 
unique virtual. 



Phases Involved 

Phase 6 or* under the optimizer 

version of the compiler, 

phase 62 makes an entry 

when it finds a virtual 

definition during 

Optimization A-text processing. 

Phflse 6 or phase § Z uses this table 

with VIRPTR table to eliminate 

duplicate references to virtuals. 



In PO-text form: 



B ytes 



1 

2 
3-6 



Contents 
23 
05 
• (hyphen) 
nnnn 



© 



® 



Bit Meaning, if op 

0*2 Unused 

3 Control footing specified 

4-6 Unused 

7 Control heading specified 

Size of previous entry * x'OOOl 1 for 
first entry in the table. 



Compiler Table Formats 345 



Licensed Material - Property of IBM 



DATATBL 









Purpose 

Store information for 

XREF or SXREF processing 

Entry Frequency 

One entry (DATA record) 

for each DEF-text element. 



Phases Involved 
Phase 6 A builds and uses 
this table in producing 
an XREF or SXREF listing. 



r-" ' 




-- -j— 




■ T 




"" "8 


1 


3 


1 


33 


1 


2 


\ 


1 




1 




J 




1 



| Pointer to | External name in EBCDIC, (Ascending | 
I dictioharyl defining card number, and (source orderj 
J entry for J a variable number of refer- (pointer ( 
(data name Jencing card numbers | (SXREF only) ( 
(or PN | I ( 

(number J t I 

I — 1 : 1 I 



Type will be 38 or 3C code 
for DATA A-text. 



■ n 8 1 i i — a 

I 2 ( 1 ( 3 ( 1 J 3 | 
| — 1 _j 1 1 _j 

| Descending | Offset in bytes! Pointer j Lengthj Pointer ( 
(source or- J from start of 8 to cur- (of ex- (to first j 
|der point- (record to loca-frent ( ternalj OVERFLOW! 
Jer (SXREF jtion for the j (last) (name jrecord ( 
(only) (next referenc- (OVERFLOW! J J 
( ling card number (record | ( ( 



DATATBL 



© 



1 ! 



Purpose ( 

38 or 3C data A-text, I 1— 

Save elements until end of J fi address where 
phase, when all DCBs have j type |BL or BLL 



been generated and all 
addresses are known. 

E ntry Frequency 

One entry for each BL or 

BLL address elemented 

created. 



(address will be( 
(stored J 

© I • 

-_ri — i u 



(BL or BLL 
| number 



|© 



Phases Involved 
Phase 21 builds this table 
for each 38 or 3C element 
it will be generating. 
Phase 21 uses this table 
to generate all 38 or 3C 
elements at end of phases. 

Type will be 38 or 3C code 
for DATA A-text. 



DBGTBL 
(TIB 13) 



Purpose 

Store information on 
procedure-names referred 
to in DEBUG statements. 

Entry Frequency 
One entry for each 
procedure-name referred 
to by DEBUG. 



Phases Involved 
Phase 4 builds this table 
from PNs in P1-text 
referred to in DEBUG 
statements and from GNs 
from GNCTR in COMMON. 
Phase 4 uses this table 
to issue P2-text CALL state- 
ments to debug procedures. 



(■•PN number for 
j procedure-name 



i 



-S~- ■ 

I GN number for debug 
( procedure associated 
(with procedure-name 
( 
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There is no TIB for this table. 
Phase 6A uses the phase 00 routine 
GETALL to get space, but moves data 
in and out of the table by itself. 



:t 
06) 



Purpose 

Save neuly created 

Debug-text elements. 

Phases Involved 
Phase 35 builds this 
table and uses it to 
accumulate DEBUG verb text 
while processing an input 
verb string. 
Phase 35 deletes this 
table upon completion 
of processing. 



I 



J Variable 



H 



H- 



| Number of J DEBUG 

J bytes J verb string 

| following | element 

i 1 



JS 
18) 



jFirst element||J|||| 
Jin string ^IS^fl 



Pur pose , 

Store subscript-defining | Variable 

string until all J- 
subscripts in statement 
are collected. 

Entry Fre q uen cy 

One entry for current 

string being built. 

Phases Involved 

Phase 4 builds this table 

from P1-text of subscripted 

data-name. 

Phase 4 uses this table 

uith STRING table to issue 

P2-text subscript strings. 



fillip 

Jilts 



| Variable 



I 



I Last element J 
| in string | 
j 



3L (Report Writer) 
1 7 ) Purp ose 

Store information on 
detail report group for 
processing SUM. ..UPON 
clauses and generating 
detail- names. 

Entry Frequen cy 
One entry for each 
detail report group. 



30 



1 I 



I 1 I 



Detail report | 
group data-namel 



-f 



4- 



H~ 







| GN number | J Displacement of 
| for: this 1 Jentryin RWRTBL for 
| J detail | | report-name associated 
| ^^^ | report | -^ jwith this detail group 
|(2)lgroup i(3)| 



Phases Involved 
Phase 1 2 builds this 
table from scan of 
01-level statements. 
Phase_12 uses this table 
to process SUM... UPON 
clauses, and to generate 
USH-R0UT routine. 
Phase 1 B uses this table 
to generate detail-names. 



1 

I 
J— 

|GN 
1 



number for HSM-ROUTi 
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(T\ Left-justif led, padded with binary 

^^ zeros in low- order bytes. 

(z) Length of preceding detail report 

^ > ^ group data-name. 



DICOT 

(TIB 20) Purpose 

Store starting address 
of each section in the 
dictionary. 

Entry Freque ncy 
One entry for each 
dictionary Section. 






© 



Code for correlating SOURCE and 
SUM... UPON clauses. 

Code .Meaning 

00 This entry was made as the result of 
a detail report group encountered. 

FF This entry was made when an UPON 
clause was encountered. (This 
code is changed to 00 when a 
detail report group is 
encountered for the data-name.) 

@ First entry in the table is a dummy. 



J 8 | 



J (?) | Displacement I @ I 
J | of section in| \ 
| J dictionary j | 



.0 



Bits 





Phases Invol ved 

Phases 1B and 22 build this 

table as they build the 

dictionary. 

Phase s IB, 22 . 21, 25, and 30 

use this table to find 

dictionary sections. 



4-7 



Meaning, If O N 

Section is not in storage. 

Section is now in storage 

In interlude before 

phase 30 (21 or 25) if 

both bits 1 and 2 are on, 

the 3 bit is set on. 

Section has been spilled 

(note: or 1 bit is on) 

This bit is set on and used 

only during phase 30 processing. 

A section , which has been 

spilled and read back into 

storage, has been modified and 

the copy on the external device 

is obsolete. 

Not used. 



(2) Address on external device where section 
has been spilled. 



DRPLTBL 
(TIB 25) 



Purpose 

Store information for 
addressing BL, BLL, SBL, 
SBS, or BDISP address 
increment items. 

Entry Frequen cy 

One entry for each of *■ 

the above items if it is 

not assigned a permanent 

register. 

Phases Involv ed 

P hase 6 2 builds this table 

during Procedure A-text 

processing. 

Phase 6 3 uses this table. 



1 bit 



= Load instruction 

reguired 

1 ■ - No load instruction 

reguired 



1 bit 



= Register 14| 

1 = Register 15| 
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If a load instruction is 
to be generated, it generates 
the instruction and inserts 
the proper temporary 
register to address the 
item. If no load instruction 
is to be generated, it uses 
the proper temporary register 
as the base in the instruction. 
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DRPTBL 
(TIB 24) 



Pur p ose 

Optimize the use of 
temporary registers 
14 and 15. 

Entry Frequency 
One entry for each BL, 
BLL f SBL, SBS, or BDISP 
address increment if it 
is not assigned a 
permanent register and 
if a temporary register 
is unavailable. 



r — 




-~T 




j 


1 


1 


! 


1. 


I 


1 




— «— 




* 



j Item type! Item number! 



© 



Phases Involv e d 

Phase 6 2 builds this table 

and keeps the entries until 

a decision is made as to 

which temporary register, 14 or 

15, should be used. 



1) Code 

^ 80 


Heanina 
BL 


40 


BIL 


20 


SBL 


10 


SBS 


08 


BDISP address increment 


(code 


values are in hexadeciraa 


DTAB 




(TIB 04) 


Purpose 

Each entry describes a 




USE FOB DEBUGGING (UFD) 




operand . 




Phases Involved 




Phase 30 builds this 



table and makes entries 
for all the PN 
definitions in the 
program after the debug 
declaratives if the 
BGALLPPC switch is on. 
Phase 3 5 deletes this 
table upon completion 
of processing. 



Sit 
^ 

1 

2 

3 

4 



r 




i ' 




-T 




T . 




i 


I 


1 


I 


1 


I 


1 


I 


2 


1 


H- 




— \— 




1— 




1— 




i 



Switch | PN | Priority! PN number! 

■ >v IReference jnuinber l f or USE \ 

(i) jelement | f or PN J f 

: 1 I I 1 



i "' r 

IVariablej 



--h 



-H 



DICTPRT or I Alpha J 
PN number ! Literal J 

© ! 1 



Meaning 

File name 

Procedure name 

CD name 

Identifier 

All references of identifier 



'0D Tlie PN nufn ^ er * s preceeded by FF ♦ 
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EHVTBL 
(TIB 3) 



Purpose 

Store file information 
from Environment Division 
to be merged with Data 
Division information to 
form Data IOtext. 



Entry Frequenc y 

One entry for each file. 

Phases Involved 

Phase 1 builds this 

table from Environm-ent 

Division. 

Phase 1 usas this table 

to merge with Data 

Division information. 



8 



I 1 



Source cardj ddname portion of I Flag I Flag 

number | system-name of file | field | field 

jpaddad with blanks , | ^Ifor 

I if necessary J Cf)\ 

I I' I 

l. ~ ; ; j 



MVSfiM 



I 11 

H 4 

jBuffer 1 
loffset} 
! 1 

! I 

I ] 

_j j 



r ~ 




— i 




■■"'■ "-% ■'■""" ■ 


i 




2 


1 

-f 


1 


1 1 
1 


1 

-f 



Pointer tof" Integer" from RESERVE I Unused | 
entry in J A SEA clause J | 

PIOTBL | (contains zeros if no | j 
2) \ reserve area specified) J J 

J ; 1 I 



* .1 UU 

© 



Number of 
TRACK LIMIT 
tracks 



I 2 



Unusedl Pointer tofNumber IFlag 



{entry in 
JCKPTBL 

! © 



|assigned| field 
{to SAHE I 
I AREA 1-. 
{clause J (**) 



1 I 



1 



I 1 
H 



(5) \ Number assigned! UnusedJCi of fDisp. of{ 

{to SAKE RECORD | {IDs for {IDs in {Onused{ 
{AREA clause { {file JINDTBL { 

1 j i j x. 



1 



t 1 



I 11 



+ , 1 

Reserved I Ct of i Unused |Ct| 
{Password) | J 
{for ALT J II 
8) II I I 

J l -1 8 



31 



h 



I 



\ 



-h 



| File-name J TRACKJ NOMINAL ! ACTUAL | RECORD 

Jin FD entry! AREA {KEY and J KEY and {KEY and 
J \ size | qualifiers J qualifiers! qualifiers 

I 1 (6) I (S) | f£) ■ | (6) 

I I J^fL » JS-L. __J S=?l 1 V -- y © 



J Pointer to data-name 

j qualifiers from APPLY 

Joption(5) 

! (REORG-tfRITERIA) (s) 



FILE-STATUS JPASSHORD | RELATI 
and qualifiers! and qualifiers! KEY an 

r\ l Vv iq«aii- 

(6) ! (&) I fiers 
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oo Bit 

W 
1-3 



4-6 
7 



9 
10 
11 
12 
13 



14 



15 



M eaning 

1 = RANDOM ACCESS 

Organization 



000 = Not s 

001 = INDEX 

010 = DIREC 

011 = DIREC 
100 = RELAT 

Unused 

1 = Integer s 
RESERVE A 
AREA fiel 

= No clause 
"OPTIONAL' qu 

in SELECT 

1 = SAME AREA 
Unused 

SAME RECORD A 
Unused 

1 = CKPTBL po 

in this e 

1 = PIOTBL po 

in this e 

Word # ALTERNA 

in RESERVE 



pecif ied 
ED 

T ■»• 
T «D' 
IV E 

pecified in 

LTERNATE 

d 

specified 
alifier specified 

specified 

REA specified 

inter appears 

ntry 

inter appears 

ntry 

TF* specified 

clause 



7 FILE STATUS clause specified 

8 1 = WRITE VERIFY 

9-14 Unused (10=RFSFRVF integer 

invalid) (12 multiple files) 
15 1 = RECORD OVERFLOW 



00 Bit s 
w 0-3 







Displacement for the first of two 
allowable entries for a file- name in 
table. 



J 00 lit 



0-1 



Meaning 
TRACK-AREA 

00 = Not specified 

01 = Data-name 

10 = Integer 

= RELATIVE KEY 

= NOMINAL KEY 

= ACTUAL KEY 

= RECORD KEY 

= WRITE ONLY 



00 iJ&es 
W 0-1 



fi±t 



Conte nts 

Temporary storage for 

phases 10 and 1B 
CORE-INDEX 

1 = REORG-CRITERIA (APPLY) 
ASCII 
Unused 

Contents 

Length of nanie(s) in bytes 
(or literal if TRACK AREA 
size is an integer) 
2-3 Displacement of name in QNMTBL 

Meaning 

1 = ADDRESSED SEQUENTIAL 

1 1 = Organization parameter 

omitted in system-name 

2-4 ORGANIZATION clause 

2 1 = RELATIVE 

3 1 = INDEXED 

4 1 = SEQUENTIAL 

5 1 = Access Mode is Dynamic 

6 ALTERNATE RECORD FEY specified 

7 1 = Password data name with 

RECORD KEY clause. 

(a^This field is moved to FSTFXT set-up area 
and is used there to contain -LIN AGE 
information. It will not contain LINAGE 
information in the ENVTBL, and if used 
for any other purpose will be overlaid by 
FSTEXT. 
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ERRTBL 
(TIB 10) 



Purpose 

Store E-text to separate 
it from Data A-text for 
phase 7. 

Entry Frequen cy 
One entry for each 
message to be 
generated. 



j , j , 

J 8 J 1 I 1 ^Variable 
I j j 1 



| 1 | 1 IVariable | 



+- 



H — -h 



IE-text |00 |c- | First 100 |c 

| for basic | I j message J | 
Jmessage | \ Jparameter { \ 

i i t i i 1 — 



| La st 
j message 
J parameter 



Phases Involved 

Phas e 6 or, under the optimizer 

version of the compiler, 

phase 64 builds this table 

from E-text interspersed 

with Data A-text. 

Phase 70 uses this table 

to generate error 

messages. 



FDTAB 
(TIB 28) 



Pur pose 

Pass record description 
information from phase 
22 to 21. 

Ent r y Frequen cy 

One entry for each FD in 

source program. 



1 




■-I — 




-T 


r 




y— 




T 


- i ■• 




T 


1 


2 


1 


2 


1 


1 | 


1 


1 


2 


1 


1 I 


3 


! 


f— 




H— 




H — 






H — 




-4~ 


h- 




-H 



J Maximum! Minimum! First 
| record J record J base 
I length | length {locator 
I J | number 

1 ; L- 1 



Flag 
byte 

© 



1 Maximum! Buff er J Dictionary} 
J label | offset j pointer j 
J record 1 | ^.^ ] 
Isize | J 00 I 



P has es Involved 
Phase 22 builds from record 
descriptions in ATF-text. Phase 21 
uses to generate DCBs, DECBs, 
and buffers 



(T) Bits Use 



1) Bits 
0-3 
4 



Use 

Number of base locators 

OD02 switch: ON, if any 

record descriptions 

contained more than one 

ODO clause. 

ODO snitch: ON, if any record 

description contained an ODO 

clause. 



© 



ODO object switch: ON, if any 
record description contained 
the object of an ODO clause. 
SAME RECORE AREA for this SD 



Used by phase 21 to get dictionary 
attributes when LATFNM returns a 
duplicate code. 



FNTBL 
(TIB 10) 



Purpose f 

Store Environment Division] 
information about a file \ 
for Procedure Division 
processing. 



Entry F requency 

One entry for each file. 

Phase s Invo lved 

Phase 10 builds this 

table from ENVTBL and 

Data Division. 

Phas e I B uses this table 

in Procedure Division 

processing. 



j Pointer to j Pointer to 
| PIOT BL JGVNMTBL 
| entry J 

J I 

i .j 



UnusedJGN number! GN number 1 GN numb 
|for |for header! for tra 
J STANDARD | labels J labels 
1 ERROR ! I 

I I L 



I 



2 \ 1 invariable J 
I j j J-+ j 

IGN number J GN number) Switch! c\ File-name! 
|for EOV | for BOV Jbyie ! Jin EBCDIC! 
Jlabels Uabels ! (T) J ! j 

L 1 1 -TL. 4 i J 
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CO Bi£s Meaning, if on 

^-^ ACCESS RANDOM 

1 Mass storage file 

2 LABEL RECORDS ARE STANDARD 

3 LABEL RECORDS ARE OMITTED 

4 BEFORE (in USE statement) 

5 AFTER (in USE statement) 
6-7 Unused 
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GCHTBL 
(TIB 24) 



Purpose 

Store card numbers for 
statements that contain 
NEXT GROUP or LINE 
clauses that may be in 
error; also, store card 
numbers for TYPE IS PAGE 
HEADING or TYPE IS PAGE 
FOOTING groups that may 
be in error. 



I 3 I 



I (T) I Card Number J 



© 



Entry Freque ncy 

One entry for each clause 

in error. 

Phases Involved 
Pha se 12 builds and uses. 
It makes an entry for 
each clause that con- 
flicts with the PAGE 
LIMIT clause. Entries 
are saved until the end 
of the report, when it 
can be established whether 
these statements are ac- 
tually in error, as sig- 
nalled by the presence of 
at least one relative LINE 
or relative next group 
clause. 

These three bytes will contain 
the address of one of the follow- 
ing messages: 

MSG9U, for a NEXT GROUP clause error 
MSG119, for a LINE clause error 
MSG165, for an illegal PAGE HEADING 
MSG166, for an illegal PAGE FOOTING 



GNTABL 
(TIB 8) 



Purpose 

Determine which GNs 
require an address 
constant cell in the PGT. 

Entry Frequency 
One entry for each GN 
requiring an address 
constant cell in the PGT. 

Phases Involved 
Phase 6 2 builds this table 
from GNUREF elements in 
Optimization A-text. 



1 GN number 

L- 
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Phase 6 3 uses this table to 
determine whether a GN 
requires an address 
constant cell • 

PhasejSjjk uses this table when 
determining the address in 
the PGT of the GN cell to be 
used in an instruction. 



GNCALTBL 

(TIB 16) Purpose 

Store GN numbers 
for Q-Boutines. 

Entry Frequency 
One entry for each 
GN number. 



f 




"T ' ~ 




i 


1 


1 


J 


2 


J 


*• — 




—" I 




4 



I Count-1 of 1 First GN J 

| Q-Foutines J number for | 

J to call | Q- Routine call | 

i i ; ; . —j 



Phases Involved 
Pha se 51 builds this table 
and uses it to generate 
calls to the Q-routines 
after return from the 
CALL statement. 



GNFWDBTB 
(TIB 21) 



Purp ose 

Optimize size of a 

procedure block. 

Entry Frequency L — 

One entry for each 

forward reference to a 

GN within a Procedure Block. 



| GN number | Counter j 

I 4 J 



Phases Invol ved 
Phase 6 2 builds this table 
from Procedure A-text. 
Pha se 6 2 uses this table 
to keep count of the 
number of fc-byte load 
instructions of the 
Procedure Block which 
might be needed if a new 
block is begun before the 
GN is defined. 



GNLABTBL 

(TIB 19) Purpose 

Determine inter -block 
and intra-block 
references. 

Entry Frequency 

One entry for each GN, 



I 



1 ! 

f A 

J Block J 

| number for | 
I GN | 

i ; ; ; — —j 



Phases Inv olved 
Pha se.,.6 2 enters in this 
table the block number 
for each GN as it reads 
Procedure A-text. 
Phase,. 6 3 extracts the block 
number in which a GN is 
defined each time a GN is 
referred to. 
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iTBL 

27) Purpose 

Determine displacements 
from the beginning of 
the block for GN 
definitions. 

Entry Frequency 

One entry for each GN. 



12 bits 



I Displacement 
( from beginning 
| of block for GN 



Phases Involved 

Phase 63 builds this table 

during Procedure A-text 

processing. 

Phase 64 uses this table to 

insert the displacement 

in generated instructions 

which address the GN* 



8) Purpose 

Create and store a list 
of optimized GN numbers. 

Entry Frequency 

One entry for each GN 

number. 



I Number relative! 
| to beginning of| 
|PN cells | 

i , ■ , ... . i 



Phases Involved 

Phase 6 builds this table 

from GNCTR and PN and GN 

equate strings. 

Phase 6 uses this table 

to optimize procedure-names 

and process Procedure 

A-text and Listing A-text. 



FK 
10) Purpose 

Count length of group 
item while subordinate 
items are being 
processed. 

Entry Frequency 

One entry for each group 

item being currently 

processed. 

Phases Involved 
Phase 2 2 builds this 
table from dictionary. 
Phase 22 uses this table 
to determine group item 
length. 



Flag IOD2TBL displacement of | Maximum 
bytesj entry for OCCURS 

J DEPENDING ON object 

j within group item 
(7) | (0, if none) 



(Source 
| number of (card 
(occurrences (number 
| (0, if none) | 

I I 

II n m 



J Pointer to dictionary | Pointer to| Maximum length 
(entry for REDEFINES (dictionary | of variable 
(object within group (entry for (group 
(item (0, if none) (item ( 

•i , 1 1 , — 



1 



t I ( J 

(Level (Address (Number of index-names( Number of keys 
( number! parameters (idk) J (0, if none) | (0, if none) 
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Displacement of entry! Displacement of entry {Displacement 



for item in INDKEY 
table (0, if none) 



I for item in SRCHKY 
| table (0/ if none) 
I 
I 



I entry for VAL 
j clause litera 
| in VALGRP tab 
| if used 
| (0, if not) 



I 



1 I 
HI 



I h 

(Displacement of (Flag 
J entry for VALUE jbyte 
| clause literal in|^-^ 
IVALTRU table , if 1(2) 
lused (0, if not) | 



(7) Bits Meaning 



6 

7 



8-11 
12-13 



14 
15-31 



= Group occurs more than once; 

alignment required. 

Group contains object of 

OCCURS DEPENDING ON 

SYNC clause in item under 

group item 

SYNC clause in group item 

VALUE clause in group 

item 

Condition-name under group 

item 

Group is or is in a label record 

Item itself contains an 

OCCURS.. .DEPENDING ON clause 
Minor code (see »LD ENTRY" in 
"Section 5. Data Areas) 
Dictionary Entry Formats") 
Number of subscripts required 

00 = none 

01 = 1 
10 = 2 

10 = 2 

11 = 3 

1 = Item contains an OCCURS or 

OCCURS.. .DEPENDING ON clause 
Length of group or VLC 



© 



B its Contents 

7 = Master of an OCCURS... 

DEPENDING ON clause 
1-3 Unused 
H-l Cod e Meani ng 

1000 Justified 

1111 Usage other than disp] 
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GVFNTBL 
(TIB 4) 



Purpose 

Store displacement to 



I 



entries in FNTBL for VSAM f- 



files referred to in OSE 
AFTER STANDARD 
ERROR/EXCEPTION with 
GIVING option* 



| Displacement in FNTBL| 

I ; . ; J 



Entry Frequen cy 

One entry for each file-name 

mentioned in USE Declarative. 

Phases Involve d 
Phase I B builds the table 
using the FNTBL. 
Phase 1 B uses the table to 
locate the correct FNTBL 
for each fileneme mentioned 
in the Declarative and 
insert into FNTBL the 
displacement into the 
GVNMTBL of the fully 
qualified dataname in the 
GIVING option. 



GVNMTBL 
(TIB 3) 



Purpose 

Store the data-^name 

specified in the GIVING 

option of the STANDARD 

ERROR/EXCEPTION PROCEDURE 

Declarative for VSAM 

files. 

Entry Frequency 
One entry for each 
Declarative. If the 
data-name is qualified 
the entry contains all of 
its qualifiers. 



1) Variable 
4- 



H 



1 00 j data-name \ Number of bytes in preceding field! 

I 1 J . ; J 

For qualified data-names the following 
fields are added. 



|Ji^^^; : : 



tp fffSlJ i l^f^ti^ijI 



7-wm 

w 



ji i f i ifi i i i ru^ 






Phases Involv ed 
Phase I B builds the table 
from the entries in the 
CORBCD and CORN data areas 
and for qualified data names 
from the QLTABL table. 
Phase 1 B uses the table. 



SfsSpf 
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HASH 
(TIB 30) 



Par pose r- 

Store dictionary pointer J 
for latest hash value. J-- 



Entry Frequen cy 
One entry for each hash 
value. The table is 521 
bytes long, allowing for 177 
possible hash values. 

Phases Involved 
Phase 1 builds this table. 
Phas e s 1B, 22, 21 , 25 f and_3 
use this table. 



| Dictionary! 
| pointer or| 
J zeros f 

l_ ; i 



INDTBL 
(TIB 4) 



i© 



© 



Purpose 

Store information about 
ALTERNATE KEYS and their 
passwords and/or 
duplicate status; used 
to construct IC-text 
elements for alternate 
keys. 

Entry Frequency 
One entry for each 
ALTERNATE KEY clause. 
Phases Involved 
Phase 10 builds INDTBL, 
then deletes it after 
Data IC-text is passed. 



! 



i 

i ' 

j. , 

|EECOED|PASSWORD 
I © 10 



"I 

1 1 

FLAG j 
I 



© 



1 



3 1 

I- -! 

j Generated SourceJ 
| card number \ 
i i 



RECORD KEY is a two-byte length 
of the name, followed by a 
two-byte displacement of the name 
in QNMTBL. PASSWORD is a 
two-byte length of the name, 
followed by a two-byte 
displacement of the name in 
QNMTBL. The PASSWORD field is 
filled with zeros if no PASSWORD 
is specified. 



Flag 
Bite 



Meanin g 

= 1 if another entry for the 

same file follows. 
= 1 if PASSWORD is specified 

for this key. 
= 1 if WITH DUPLICATES is 

specified. 



INDKEY 

(TIB 31) Purpose 

Store OCCURS DEPENDING 
ON information for use 
in table handling. 

Entry Freque ncy 
One entry for each item 
that has an OCCURS 
clause and an INDEXED 
BY clause. 



II 



I 1 I 



-h 



~h 



n | Dictionary! Flag j Dictionary pointer | Number of 
| pointer to|byte|to object of OCCURS | index-names 
jsubjectof j ^^ |or maximum number__ | 
J table (T) |(T) |of occurrences Q?) 1 
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Phases Involv ed 
Phase 22 builds this 
table from Data IC-text 
data-names with OCCURS 
and INDEXED BY clauses. 
Phase 3 uses this table 
to process SEARCH and 
SEARCH ALL verbs. 






I D ict io na r y P^^^^p|mPEH^p| Number! 
J pointer to |l||i|8^ 1 

| first index- |^K||nttlfiS8ii|^pHl keys I 
| name M) ^^^^^K^mj^M I 









| .. i — - » "■ > ! I ». |' . » . . ■ ■ ».. ^ ^ * ; ■■■ * V »^ .i ^y ■ ^ i SYM .^H ^^^ i awW . i ». ; .. *■ — » ^r — vg .. ^ . w io^^i J 

t points to i| „ ^{C-i^i»^rct^;J 

| first tey - i -.V 4 * -I l^t^i 7 '< 1 

» ■:■■ V^ f r„..Y : ----,-f v. , ,„;\rrf ,..; ;;• ;,a 



Contents of dictionary pointer: 



Bits Conte nts 

0-1 Zeros 

2-14 Dictionary section 

15-23 Displacement in section 



(5) Bit 
W 0-2 

3 



© 



Meani ng 

Unused 

1 = Next three bytes contain 

dictionary pointer 
= Next three bytes contain 

maximum number of occurrences 
Onused 

= Object of OCCURS. ♦ .DEPENDING ON 

undefined 
1 . = No error found in OCCURS... 

DEPENDING ON object 
Unused 

1 = Error detected in key processing 
= No error found 



Field contains zeros if bit 5 in preceding 
field is set to 1. 



2TBL 
B 17) 



Purpose 

Store information on VSAM 
files for ORGANIZATION 
IS INDEXED. 

Entry F reque ncy 
One entry for each FD 
entry for VSAM files with 
ORGANIZATION IS INDEXED. 

Phases Involv ed 

Phase 21 builds this table 

from Data IC-text. 

Phase 30 uses the table to 

build P1-text. 



1 



-h 



1 Dictionary 
| f or key 



pointer! idk parameters] Level number) 

I 



ry pointer J ldK parameters] 
(T) ifor key (?) | 



RECORD KEY, ALTERNATE RECORD KEY 
or RELATIVE KEY. 



34) 


Purpose 

Save all index-names 

associated with a data 

item. 

Entry Frequency 



in 

■+H- 



Variable 



104 (hex) JcJ Index-name in EBCDIC 

1 1 1 



One entry for each 
index-name associated with 
the data item currently 
being processed. 
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Phases Involved 

Phase 1 builds this table 

from level number entries 

in the source program Data 

Division, 

Phase 10 uses this table 

to append index-names 

to the Data IC-text LD 

entry for the data item. 



KEY TAB 
(TIB 26) 



Purpose 

Save all key-names 

associated with a data 

item. 

Entry Frequency 
One entry for each 
key-name associated 
with the data-item 
currently being 
processed. 



« 1 — i 

J 1 |1| Variable 



~f—f- 



|Flag IcJKey-name in EBCDIC 
J byte I 



I byte] \ 
I© I 1 



Phases Involve d 
Phas e 1 builds from 
level-number entries 
in source program Data 
Division. 

Phase 10 uses this table 
to append key-name to 
Data IC-text LD entry 
for data item. 

(j) li£§ Meaning , if on 

0-5 None; contains zeros 

6 Descending key 

7 Ascending key 



KEYTBL 
(TIB 20) 



Pu rpo se 

Used in SEABCH verb pro- 
cessing to check whether 
keys in WHEN clause are 
valid for table in which 
binary search is being 
made. 



I 1 I 



I Addressing parameters foritem (TDK) J (2^\ 
J from dictionary entry (l) T^i 



Entry Frequenc y 
One entry for each key 
in SEAFCH ALL statement 
currently being processed. 

Phases Involve d 

Phas e_4 builds this table 

while processing a SEARCH 

ALL statement. 

Phase 4 uses this table 

to make sure SEARCH ALL 

statement has correct 

keys for table and that 

all preceding keys are 

tested if the key is 

tested. 
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(jj liis Field Meanin g 

0-3 i Type of EL containing base 
address of area 

0000 = BL 

0001 = BLL 
0100 = SBL 



^2j Initially 0, but set to 1 whenever a 
^"^ WHEN condition for KEY is found during 
processing of this SEAFCH ALL statement. 



u-15 d Displacement from base address 

16-23 k BL number 



LABTBL 
(TIB 13) 



I 2 



P urpose 

Save label-record data- 
names referred to in a 
Data IC-text FD entry. 

Entry Fre q uen cy 
One entry for each LABEL 
RECORD data-name referred 
to in the Data IC-text FD 
entry currently being 
processed . 



Ph ases Involv ed 
P hase 2 builds this table 
from Data IC-text FD entries. 
Phase_20 uses this table 
to differentiate label 
records from nonlabel 
records in processing 
Data IC-text LD entries. 



~i — r- 

Ml 

■+-+■ 



V ariable 



|Unused|c|LABEL RECORD data-name in EBCDIC | 

I L_J I 



LTLTBL 
(TIB 4) 



Purpose 

Contains pointers to 

CONTBL and CONDIS tables 

during optimization of 

literals. 

Entry ...Frequency 
One entry for each 
reference to a literal. 



I 



H 



I 

{Displacement from start of appropriate table of entryl 
| for literal | 

i j 



Phase s Involv ed 

P hase 6 or, under the optimizer 

version of the compiler, 

phase 6 2 builds this table 

while building CONDIS and CONTBL. 

Phase__6 or, under the optimizer 

version of the compiler, 

phase 64 uses this table 

with CONDIS and CONTBL 

to eliminate duplicate 

DISPLAY and non-DISPLAY 

literals. 



MASTODO 
(TIB 13) 



Purpose 

Identify masters of 
OCCURS. . .DEPENDING ON 
clause if SYMDMP or TEST 
is specified. 



| Dictionary pointer f or | 
| master of an ODO | 
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lJ}±JI_Fr^£uency 

One entry for each master of an 

OCCURS. .. DEPENDING ON clause. 

P hases In v olv ed 

Phase 22 builds this table 

as it encounters OCCURS.., 

DEPENDING ON clauses. 

P hase 2 5 uses this table 

to identify master of 

OCCURS. .. DEPENDING ON clauses 

for the DATATA3 table. 



NPTTBL (Report Writer) 

f^IB 18) Purpose 

Store N.nnnn names that 
contain number of lines 
a particular report 
group occupies. 



| 23 



•T T" 

I 1| 

H h 



(hex) |07|Name in EBCDIC! 

1 L 1 



Jl*£ 2I2_ F r ea u en cy 
One entry for each report 
group that contains PLUS 
clause. This table is cleared 
at the end of each RD. 

Phases Involved 
P hase 1 2 builds from 
relative line clauses. 
Phase__12 uses this table 
to generate Data IC-text 
LD entries at the end 
of the RD. 



OBJSUB 
(TIB 5) 



Purpose 

Relate files and CD 
entries, to objects and 
subjects of OCCURS... 
DEPFNDING ON clauses. 
It is used to build the 
QFILE table. 



I 2 
■+- 



I DCB or |(T) 
I CD | W 

| Number | 

i i 




Entry Frequency 
One entry for each file or CD 
entry whose record descriptions 
contain at least one object 
and/or subject of an OCCURS... 
DEPENDING ON clause. 

Phase s In v olv ed 

Phase 2 2 builds and uses this 

table to build the QFILE table. 

.1J When present, this field contains the 
0D2TBL table displacement if the field 
refers to the object of an 0D0 clause, 
or the GN number of the subject if the 
field refers to the subject of an 0D0 
clause. If the field contains a GN 
number, the high-order bit is ON. 
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CTBL 
IB 2) 



Purpose r 1 1 

Store information about I 3 | 2 | 

items in OCCURS and \- \- i 

OCCURS. . . DEPENDING ON j Dictionary pointer J Maximum number ^^ \ 

clauses if SYMDMP or TEST J for subject of clause|of occurrences (jj\ 

is specified and program * * J 

contains an OCCURS or 

OCCURS. ..DEPENDING ON , r , 

clause. 1 2 



Entry Frequency 
One entry for each 
subject of an OCCURS 
or of an OCCURS. . . 
DEPENDING ON clause. 



] Number of bytes 
J to next ^^^ 
| occurrence (T) 



0D0 J Reserved for 
, Switch|0B0D0TAB pointerfor| 
J (T) Jobject of 0D0 (V) 



P hases Involved 
Phase 2 2 builds this 
table as it encounters 
an OCCURS or an OCCURS... 
DEPENDING ON clause. 
Phase 25 uses this table 
and the QRTN and QITBL 
tables to build the 
0D0TBL table. The 0D0TBL 
table is then used 
to fill in the 0B0D0TAB 
pointers in this table. 



© 

© 
© 



The field contains either the number of 
occurrences for an OCCURS clause or the 
maximum number of occurrences for an 
OCCURS.. .DEPENDING ON clause. 



If the subject of the clause is a 
variable-length group, the field 
contains its VLC number. 

If this byte contains 0, the entry is 
for an OCCURS clause; if it contains 1, 
the entry is for an OCCURS. .. DEPENDING 
ON clause. 



© 



The field is present only when the 
entry is for an OCCURS .. .DEPENDING ON 
clause. Phasa 22 fills the field with 
zeros. Phase 25 enters the OBODOTAB 
pointer; then the contents of the field 
are as follows: 



Bits Cont ents 

0-8 Relative block number within the 

OBODOTAB table 
9-15 Displacement in fullwords within 

the block 



)0TBL 
?IB 14) 



Purpose 

Determine which entries 
in the dictionary are 
objects of OCCURS... 
DEPENDING ON clauses and 



| Dictionary J Displacement | OBODOTAB 

1 pointer for | within OCCTBL | pointer for 

therefore must be entered Jobject of 0D0 |for OBODOTAB Jobject of 

in the OBODOTAB table if J | pointer JODO 

SYMDMP or TEST is speci- « « l 

fied and the program contains 
an OCCURS... DEPENDING ON 
clause. 



E ntry Frequen cy 
One entry for each 
OCCURS. . . DEPENDING ON 
clause. 
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Phases Involved 

Phase 2 5 builds this table 

using the 0CCTBL, QHTN, 

and QITBL tables. 

P hase 2 5 uses this table 

to build the OBODOTAB 

table and to fill in the 

OBODOTAB pointers for objects 

Of OCCURS... DEPENDING 0N~ 

clauses in the OCCTBL table. 



0D2TBL 
(TIB 9) 



Purpose 

Store objects of OCCURS 
DEPENDING ON clauses and 
their qualifiers for 
Q-Routine generation. 

Entry Frequen cy 

One entry for each OCCURS 

DEPENDING ON clause. 

Phas es Invol ved 
Phase 1 enters EBCDIC 
names from OCCURS 
DEPENDING ON clauses. 
Phase 2 2 uses this table 
to generate Q-Routines. 



|2 |t| :faitl^l4#^-;; : |/ f 



in 
I 



MS I 

Hit 



iiiilllttii^ 



^,*:mk.€:mt "■ 

m^mmmmmmmm 1 1 variable 




r- — i 

II I 
1 1 

c| EBCDIC qualified | CO J 
I name | j 

I I J 

j i i 



0FL0TBL 



© 



r ■ 




T 




i — 




1 — 




T 


— r- 




™i 


1 


3 


1 


3 


1 


3 


I 


3 


1 1 


l 


3 


i 


1 




1 




— 1 — 




1— 




-+ 


-+- 




— i 



Purpose 

Store referencing card 

numbers when the DATATBL 

table entry is full. UsedJ Referenc-J Feferenc-| Referenc- |Refer^nc-| Off - J Point- J 

in processing for the ling card Jing card ling card ling card | sgt |er to | 

SXREF or the XREF option | number | number J number | number | 



J 
Entry Frequenc y J 

One entry for each refer- | 
encing card number which J 
cannot be stored in the *~ 
DATATBL table entry for 
the data-name or the 
procedure-name. 



set 

d) 



I 



Ipre- ! 
| ceding | 
| OVER- \ 
I FLOW 1 
I record | 
j . j 



Phases Involv ed 

Phase 6 A builds and uses 

this table to store 

referencing card numbers 

for the SXREF or the XREF 

option. 



PFMTBL 
(TIB 12) 



Purpose 

Store procedure-names and | 

VNs to be eguated in 

PERFORM statements. J PN number of next 



Entry Frequency 
One entry for each 
delimiting 
procedure- name. 



r _„, -„, 




!"■ '" 




". i 


I 
f — 


2 


I 

H 


2 


1 



|VN number corraspondin'g | 
J procedure-name after|to PN that is the J 

I end-of-range | end-of-range | 

i , j .*- -._^_ .—.j 
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© 



© 



Phases Involve d 

Phas e 4 builds this table 

from Pi-text procedure-names 

and VNCTR in COMMON. 

Phase 4 uses this table to keep track of 

delimiters of performed procedures 

to set up return VNs. 

There is no TIB for this table. Phase 6A 
uses the phase 00 routine GETALL to get 
space, but moves data in and out of the 
table by itself. 

This byte contains binary values 3, 6, 9, 
12 as the OVERFLOW record contains 1, 2, 
3, 4 referencing card numbers. 



PIOTBL 

(TIB 7) Purpose i % 

Store input/output I 4 \ 

information for a file J -I 

from Procedure Division. {Switch J 

ibytes | 

Entry Freque ncy | Mj | 

One entry for each file. L J 

P hases Invol ved 

Phase 1 reserves space 

for one entry for each file. 

Phases 1B and 1 2 complete entries 

from Procedure Division. 

Phase 2 1 uses this table to 

generate Data A-text. 



© 



Statement referring to 

Bit f ile„ if bit i s on 

OPEN INPUT 

1 OPEU OUTPUT 

2 OPEN 1-0 

3 CLOSE UNIT NO REWIND (OS) 

4 WRITE AFTER ADVANCING 

5 CLOSE WITH LOCK 

6 CLOSE 

7 REWRITE 

8 RERUN 

9 OPEN INPUT REVERSED 

10 READ (SEEK IN DOS) 

11 WRITE BEFORE ADVANCING 

12 USING 

13 GIVING 

14 USE 

15 WRITE AFTER POSITIONING 

16 BEFORE in USE 

17 OPEN NO REWIND 

18 WRITE 

19 USE ON file-name 

20 START 

21 INVALID KEY 

22 REVERSED 

23 RESERVED 

24 KEY OF REFERENCE (READ and START) 

25 DELETE 

<■• 26 GIVING data-name for USE procedures 

27 OPEN EXTEND 

28 SEQUENTIAL ACCESS (DYNAMIC mode) 

29 RESERVED 

30 UNUSED 

3 1 RESERVED 
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PNATBL 
(TIB 7) 



Purpose r _ , 

Determine which PNs j 3 j 

require an address J \ 

constant cell in the PGT. |PN number) 

Entry Frequen cy 
One entry for eacn PN 
requiring an address constant 
cell in the PGT. 

Phases Involv ed 

Phase 62 builds this table from 

PNUREF elements in Optimization 

A-text. 

Pha ses 63 uses this table to 

determine which PNs require 

address constant cells. 

Phase 6 U uses this table 

when determining the address 

in the PGT of the PN cell 

to be used in an instruction. 



PNFWDBTB 
(TIB 20) 



Purpose 

Optimize size of a 

Procedure Block, 

Entry Frequency 

One entry for each 

forward reference to a 

PN within a Procedure Block. 



1 1 

2 I " 1 I 

1 1 

PN number | Counter | 

i j 



Phases Involved 
P has e 6 2 builds this table 
from Procedure A-text. 
Phase 6 2 uses this table to 
keep count of the number 
of 4-byte load instructions 
of the Procedure Block 
which might be needed if a 
new block is begun before 
the PN is defined. 



PNLABTBL 
(TIB 18) 



Purp ose 

Determine interblock 

and intrablock references. 



Ent ry Frequen cy 
One entry for eacn 



PN. 



1 



I 



| Block number! 
I for PN J 
i j 



Pha ses Invol ved 

Phase 62 enters in this 

table the block number for 

each PN as it reads Procedure 

A-text. 

Phase 6 3 extracts the block number 

in which a PN is defined 

each time a PN is referred to. 
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PNLBDTBL 
(TIB 26) 



Purpos e 

Determine displacements 

from the beginning 

of the block for PN 

definitions. 

E ntry Frequenc y 

One entry for each PN. 



12 bits 



| Displacement from 
1 beginning of block 
Jfor PN 



Phases Invol ved 

Phase 6 3 builds this table 

during Procedure A- text 

processing. 

Phase S U uses this table to insert 

the displacement in generated 

instructions which address the PN. 



PNOUNT 
(TIB 14) 



Purpose 

Stack operands of 

COMPUTE and IF 

statements. 

Entry Frequen cy 
One entry for each 
operand in statement. 



I 



Variable 



T 1 

I 1 1 



+ 



JSaae operand as in | MJj 
JPl-text, including | | 
| byte identification! \ 
i i j 



© 



Phases Involve d 

Phase 4 builds this table 

from Pi-text scan. 

Phase 4 uses this table 

with PSIGNT table 

to stack operands until 

the string is ready to 

be created. 

Number of preceding bytes in this entry. 



PNQTBL 
(TIB 6) 



Purpose 

Store information on 
references to gualified 
PNs for completion of 
dictionary entry. 

Entry Frequency 
One entry for each 
gualified PN. 

Phases Involved 
Phase 1 B builds this 
table from Procedure 
Division. 

Phase 1 B uses this table 
to complete procedure- 
name dictionary entries. 



i 1 — i 

I 1| 11 Variable 

j. — ^-i— _ 

\ n\c\ Procedure-name 
1 I I in EBCDIC 
I 1 1 

L 1 1 



I 1 



11 

— I 

Flag | Unused J221 
bytesj I I 



i '© i 

4 ><- I 



Ml 



Variable 



1 cj Procedure- name qualifier inj 
1 J EBCDIC J 
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PNTABL 
(TIB 5) 



Purpose 

Store information on 
references to each 
unqualified PN for later 
completion of PN*s 
dictionary entry. 

Entry Frequenc y 

One entry for each PN 

that, is not qualified. 

Phases In volve d 
Pha s e 1 B builds this table 
from Procedure Division. 
Phase 1 B uses this table 
to complete procedure- 
name dictionary entries. 



| 1 1 1 J Variable | 2 \ 
f — hH h f~ 



|n | cJProcedure-j Flag JDictionary | 
| | {name in | by£es| search code | 
| J | EBCDIC I CO 1 (2) J 

L 1 1 1 2T1.-J 2z=£ J 



(0 lit 

^ o 

i 

2 



7 

8 

9 

10 

11 



12 
13 
14 
15 



Meaning, if on 
Procedure- name 
Sect ion- name 
Either name 
THRU in PE 
PERFORM wi 
Referred to 
Procedure-na 
Procedure-na 
Procedure-na 
TO PROCEED 
ALTER stat 
Unused 
Referred to 
Defined in D 
Dummy sectio 
Defined in D 
in DEBUG s 
section) . 
type of se 
USE. ..ERROR 
USE... LABELS 
Unused 
USE... REPORT 



follows 

RFORM...THRU, or follow 

thout THRU 

by ALTER 

me of GO TO 

me of EXIT 

me following 

TO in an 
ement 

in DEBUG 

EBUG 

n name 

eclaratives Section (or 

tatement referring to such 

Bits 12-15 describe the 
ction. 
section-name 

sect ion -name 

ING section- name 



(2) Bit Meaning, if o n 

Dictionary was search for 

this PN before this section. 
1-7 Unused. 



PNTBL 
(TIB 7) 



Purpose 

Create and store list of 

optimized PN numbers. 



Entry Frequency 
One entry for each 
optimized PN number. 



| Displacement of PN from start of PN cells in| 
j object module { 

i. ; 1 



Phases Involv ed 

Phase 6 builds this table 

from PNCTR in COMMON and PN 

equate strings. 

P hase 6 uses this table 

to optimize PNs and 

process Procedure A-text. 
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BL 

6) 



Purpose 

Optimize procedure-names 
by eliminating those not 
referred to or, under 
the optimizer version 
of the compiler, 
determine entry points. 

Entry Frequen cy 

One entry for each source 

program procedure-name. 



I 



1 bit 



|1 = Name is referred to | 
10 = Name is not referred to J 
i 1 



Phases Invol ved 

Phase 5 1 reserves space 

for as many entries as 

there have been PNs 

counted in PNCTR. These 

entries are initially 

set to 0. In later 

processing, phase 51 

turns on a bit each 

time the PN associated 

with the bit is 

referred to. 

Phase 6 uses this table 

to eliminate names not 

referred to or, under the 

optimizer version of the 

compiler, phase 62 uses this 

table to determine which PNs 

are entry points. 



:indx 

B 5) 



Purpose 

Store information about 

the PROCTAB table which 

is written on SYSUT5 if 

the SYMDMP option is in 

effect. 

Entry Frequenc y 

One entry for each block 

of PROCTAB entries. 



i 




" T 




T — 




i 


! 


3 


I 


3 


I 


a 


1 


1— 




] 




\ 




-1 



I Card/verb | Relative address! Device address 

j number jof code for jof PROCTAB 

1 f or first Jthis entry J block 

1 entry in | within | 

| PROCTAB ^segment | 

IblockMj | I 

l J^rl i i 



Phases Involved 

Phase 6 5 builds this table 

while reading Debug-text on 

SYSUT4 and building the 

PROCTAB table. 

Phase 65 writes this table on 

SYSUT5 and COBOL library 

subroutines use this table to 

address entries in the PROCTAB 

table. 



Bits 

0-19 
20-23 



Con tent s 
Card number 
Verb number 



Compiler Table Formats 369 



Licensed Material - Property of IBM 



PSHTBL 
(TIB 17) 



Purpose 

Store GN numbers of 
«ELSE» branches in nested 
and compound IF state- 
ments. 

Ent ry F regue ncy 

One entry for each false 

branch. 

Phases Involved 

Phas e 4 builds this table 

from P1-text and GNCTR 

in COMMON, 

Phase U uses this table 

to generate branches. 



J ■ 

J 16 = Master GN 
I - Otherwise 

t ; - 



J GN number | 

r i 



PSIGNT 
(tfIB 15) 



Purpose 

Store operators in 

COMPUTE and IF 

statements. 

Entry Frequen cy 
One entry for each 
operator in " the state- 
ment being processed. 

Phases Involved 

Phase 4 builds this table 

from P1~text. 

Phase 4 stacks operators 

until strings are ready 

to generate. This table 

is used with PNOUNT. 



|P1-text code for sign | 

i ; i 



PTRFLS 
(TIB 16) 



Purpose 

Store branches in an IF 

statement. 

Entry Frequency 
One entry for each 
decision in statement. 

4 

Phases Involve d 

Phase 4 builds this table 

from P1-text compound IF 

statements and GNCTR in 

COMMON. 

Phase 4 uses this table 

with PSHTBL to select true 

and false branches for 

Pi-text. 



1 



1 = •NOT" is |GN number for JGN number for 

active j fall-through bypass! branch 

|0 = "NOT 1 is J j 

not active | | 

a . '. . , 1 : — 
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BTBL 






IB 2) 


Purpose 






Pass information 


from 




phases 10 and 12 


to 




phase 1B. 






Entry Frequency 





One entry made at end 
of phase 10 processing 
and, optionally , at the 
of phase 12 processing* 

Phases Involv ed 

Phases 10 and 1 2 buil d 

this table from stored 

information. 

Phase 1B and/ or 12 moves 

data into its own data 

areas. 



r "i"' 




., , 1 .- 




i 


■"i ■ ■■ ■ 


™i 


12 | 


8 


1 


8 


' ! 3 


| 80 


I 


1 h— 




1 




— 1 


-H 


■H 



|n |Card nuaberJCard numberJUnusedJ Last | 
J J for last J for last | 1 record J 
| ! record read J record read| fread | 
j j (packed) | (unpacked) f | j 

i 1 1 I 1 j j ' 



1 




i ■■ 


T " ■""I 


" ■ 


Tl 


— i 


1 


18 


J 6 


| 82 


6 


1 2 


1 


I — 




+ 


-+ H 


I 


H 


— ! 



J Error J Sequence | INSERT [Sequence | Phase J 
| information! number of 1 card work| number | switches} 
Jon record | last record! area from|from BASIS | -^ | 
| | read | BASIS | | (Y) | 

I 1 I 4 1 -tTL. 1 



24 



82 



■+■ 



8 



! 



8 



| Sequence numbers J Work areaj Latest 
f specified on | f or BASIS JCOPY 
j BASIS card J card Jlibrary- 
| | | name 

i ; 4 ; 1 



H 

I BASIS 
j library- 
• | name 
! 



| Phase 
J switches 



© 



80 



S 



I 



1 



1 .j 1 -j 

Phase jDouble ] Library-name| Contents jPhase 
switches! buffer forjfor double- | of Jswitches 
_ > ^ JCOPY... i buffer COPY jcolumns | 
(7) JREPLACING ! |72 and 73 f (V) 



J Current 

I card 

J number 

J 

i 



) iits 



its 


S*tS_l 


Byte 2 





Unused 


INDLSW 


1 


COPYSW 


INSTS5? 


2 


BASISW 


INDERR 


3 


Unused 


INOWSW 


a 


Unused 


DELSW1 


5 


Unused 


DELSW2 


6 


Unused 


DELSM 


7 


CPYXSW 


CPYCSH 



(3) Bits 



Bits 


By.te_l 


Byte 2 


By.l£_3 


Byte 4 





Unused 


CDSURP 


CON2SW 


Unused 


1 


Unused 


BUF2SW 


NWCDSW 


SURPSW 


2 


Unused 


BUF3SH 


SKCDSW 


BUF5SH 


3 


Unused 


BUF4SW 


Unused 


Unused 


4 


REPSW 


CONTSW 


Unused 


Unused 


5 


U n u se d 


Unused 


Unused 


Unused 


6 


Unused 


Unused 


Unused 


Unused 


7 


Unused 


Unused 


DBRDSW 


Unused 



[) Bits 



Bits 


Byte 1 


Byte 2 





Unused 


TOTUSD 


1 


Unused 


Unused 


2 


Unused 


Unused 


3 


Unused 


USEPDL 


4 


Unused 


USEPDE 


5 


Unused 


SRTSW 


6 


Unused 


Unused 


7 


RPTWSW 


Unused 



© 



Bits 

0-6 

7 



Switches 

Unused 

FRGHSR 
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P1TEXT 
(TIB 05) 



Purpose 
Save in 
element 
created 
element 



put Pi-text 
s and newly 
Debug-text 
s. 



1 



1 



Phases Involved 
Phase 3 5 builds this 
table and makes entries 
in this table as it is 
processing its input 
once the determination 
has been made that no 
more debug declaratives 
exist. Phase 3 5 uses this 
table to accumulate verb 
strings until all debug 
processing is complete. 
Phase 35 deletes this 
table when processing is 
complete. 



| Variable! 

J I I 

JNumber JP1A-text| 
| of bytes j element | 
jfollowingl j 

L 1 1 



QALTBL (Report Writer) 

(TIB 23) Purpose 

Work table, for example, 
to store gualified names 



Variable 



and qualifiers in reverse J Name (s) in EBCDIC, each | 
order of appearance J preceded by 1-byte count | 

in ED. «- ' 

Entry Frequen cy 
One for each name in the 
current string of a name 
and its qualifiers. 

Phases Involv ed 

Phase 1 2 builds this table 

as it scans a name and 

its qualifiers. 

Phase 12 uses this table 

to reverse the order of a 

name and its qualifiers. 



QFILE 
(TIB 23) 



• 


■ T 




■ — "i 


I 


2 I 


2 


1 


J — 


H 




— ! 



Purpose 

Store Q-Routine GN 

numbers connected with 

CD entries or with QSAM, J DCB number forJGN number for sinqle Q-Routine forj 

QISAM, or BISAM files in J first file or Jfile or for all Q-Routines for CD | 

which at least one of the fCD number |entry # or for chain of GNs, where! 

records contains an OCCURS! ^. j there is more than one Q-Routine | 

DEPENDING ON clause. | (Y) J associated with a file. | 



© 
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ftntrv Frequency 

One entry for each CD entry 

file or of this type. 



D 

D 



P hases Involved 

Phase 2 2 builds this table 

from Q- Routines for files or CD entries, 

Phase 2 1 increments the DCB 

number for DCBs for checkpoint 

files. 

Ph ase 3 adds Q- Routine GN 

numbers to dictionary 

attributes for corresponding 

files or CD entries. 

for SD 
byte 1 = 09 
byte 2 = BLL# 

Table ends with a word of zeros. 



QGNTBL 
(TIB 24) 



Purp ose 

Pass Q-Routine GN numbers 



and their Procedure block \- 



numbers from phase 63 to 
phase 64. This table is 
built only if there is a 
Q-BEGIN macro element 
passed in Procedure A-text 



1 



1 GN numberl Procedure | 
| | block numberl 
i 1 1 



Entry Frequency 

One for each Q- Routine GN. 

Phase s Involved 

P hase 6 3 builds this table 

from the GNLABTBL. 

Phase 6 4 uses the data to 

initialize Q-Roiitines 

during processing for INIT3. 



QITBL 
(TIB 22) 



Purpose 

Contains a pointer to 
the dictionary attributes 
Of each OCCURS DEPENDING 
ON object entered in the 
OD2TBL table. 

Entry Frequency 

One entry for each OD2TBL 

entry. 



I 



I ^ 

I 1 

| Pointer to entry | Displacement of 
I in dictionary for | entry in 0D2TBL for 
j OCCURS DEPENDING ON | OCCURS DEPENDING ON 
| variable | variable 

j , \ i 



© 



Phases Involved 
Phase 22 builds this table 
from dictionary and OD2TBL. 
Phase 2 2 combines this table 
with OD2TBL and QRTN 
tables to form QVAR table. 
P hase 2 5 uses this table with 
QRTN and OCCTBL tables to 
build the ODOTBL table. 



© 



Table ends with a word of zeros. 
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QLTABL 



Purpose 

Store qualified names in 
reverse order of receipt 
(which was previously 
reversed) . 

Entry Frequency 
One-entry table con- 
taining name currently 
being processed and 
its qualifiers. 



i « |»li§P«^ 

I 1 tllltfl^^ 



j 3 5 1 o o fSi^nMp Wi^^^MMy||^^i 









Phases involved 
Phase 1 builds this 
table when qualified 
EBCDIC name is inserted 
in QNMTBL or OD2TBL. 
Phases 12 and IB build this 
table when qualified 
EBCDIC name is written 
on PO-text. 






Variable 



m^m^ 



p|^jPi|ftLast qualifier-l Number of bytesf 
M||^MSMPii»name in EBCDIC |in preceding | 
ftUUtt" ---- *'| | field I 



QNMTBL 
(TIB 2) 



© 



Purpose ^^ 

Store EBCDIC names Q\J 
froift Data and Environment 
divisions until Data 
IC-text is written. 

Entry Frequency 

One entry for each name 

of this type. 

Phases Involved 

Phase 1 builds this 

table from clauses in 

FD, SELECT, and APPLY 

statements. 

Phase 1 uses this table 

to write out Data IC-text. 



i — i — i 

J 11 1 1 Variable 
I 1 I 



i - 1 

1 1| Variable 



InjcJLast qualifier- J c| Second from last J 

I i | name in EBCDIC | j qualifier-name j 

III I I in EBCDIC ( 

I I I ; 1 « & 



Wffl^Sli 






1) For REPORT, LABEL RECORD, ACTUAL KEY, NOMINAL KEY, 
RECORD KEY, TOTALING -A RE A, TRACK AREA, and APPLY 
REORG-CRITERIA clauses. 



Ml 
Pi 

m 



QRTN 
(TIB 21) 



Purpose 

Store GN numbers of 
Q-Routines and OD2TBL 
pointers for each OCCURS 
DEPENDING ON clause in 
a record. 

Entry Frequency 
One entry for each 
record containing an 
OCCURS DEPENDING ON 
clause. 

Phases Involved 
Phase 22 builds this 
table from GNCTR in 
COMMON and OD2TBL. 



jam 



| GN number | Number of fields | Displacement of Mi^B 
| of first | that follow IOD2TBL entry for 1,4' I 
|Q-Routine \ |the first Q-RoutineB i 
t- _«. a. — \ » — BmHB 



i 



la^t ^RoQti^# j 
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► SBL 
[TIB 25) 



P hase 2 2 combines this 
table with 0D2TBL and 
QITBL tables to form the 
QVAR table. 

Phase 2 5 uses this table 
with QITBL and OCCTBL tables 
to build the ODOTBL table. 



Purpose 

Hold and transmit data 
on secondary base 
locators (SBLs) . 

Entry Frequency 

One entry for each INCRA 

verb generated. 



J First SBL number associated with| 
| an INCRA verb | 

i i 



P hases Involved 
Phase 2 2 creates and passes 
this table to phase 3. 
Phase 3 uses this table to 
generate for each INCRA 
verb a P1-text literal 
the value of which eguals 
the number of SBLs 
associated with the verb. 



2TBL 
(TIB 3) 



Purpose 

Store GN numbers for 
Q-Routines during Data 
A-text processing. 

Entry Frequency 
One entry for each 
Q-Routine definition 
in Data A-text. 



I 1 

| GN number of Q-Routine | 



Phases Involved 

Phase 6 or, under the optimizer 
version of the compiler , 
phase 6 4 makes an entry in 
this table when it finds a 
Q-Routine identification 
element in Data A-text. 
Phase 6 or phase 64 uses 
this table to initialize 
Q-Routines when 
generating INIT3 code 
for object module. 



QVAR 
(TIB 24) 



Purpose 

Store Q-Routine GN 
numbers connected with 
items containing OCCURS 
DEPENDING ON clauses. 

Entry Frequency 

One entry for each item. 



I 



\r 



I 



-h 



| Pointer to dictionary | GN number for| 
| entry for object of | Q-Routine f or | 
IOCCURS DEPENDING ON | first item 
i for first item (V) | 



I _ 

i Dictionary 
| pointer fori 
(last item 
I 
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Phase s In volved , 1 — i 

Phase 2 builds this table I 2 | *H 

from QRTN, QITBL, and f { — f 

OD2TBL tables. J GN number for last itemJOJ 

Phase 3 adds Q- Routine *- *— * 

GN numbers to 
dictionary attributes of 
items that are objects of 
OCCURS DEPENDING ON clauses. 







Bits Contents 

0-9 Zeros 

10-22 Dictionary section number 

23-31 Displacement in section 



RCDTBL 

(TIB 11) Purpose , 1 — r- 



Store each 01-level | 2 |1| Variable | 

record -name in PD Section | +— f* •— | 

until input/output verb I Displacement of entry! c\ Record-name in EBCDIC! 
processing. | f or file in FNTBL j | | 

i i I , , J 

Entry Frequency 
One entry for each 
01-level entry in FD 
section. 

Ph ases Involved 

Phase 10 builds this table 

from 01-level statements. 

P hase 1B uses this table 

in processing input /out put 

statements. 



RDFSTK 

(TIB 11) Purpose 



1 




"1 




T— 


T * 




i 


1 


1 


1 


3 


1 4 


1 


4 




h — 




4 




+ 


— 4_ 







Store information 
about subject and 

object of REDEFINES | Level number J Contents of address! Unused | Length of 
clauses. Jof REDEFINES \ parameter field | | REDEFINES 

{subject | (idk) | {object 

Entr y Fre quency *- : J •*- — J 

One entry for each 
REDEFINES clause. 

Phases I nvolv ed 
Phase, 22 builds this 
table from dictionary. 
Phase 22 uses this table 
to assign address 
parameter to items 
after REDEFINES clause. 



© 



(Y) First entry is a dummy 



RENA8TB 

(TIB 3) Purpo se r 1 — » 

Store information for | 3 \ 3 | 

associating a renamed J H-- ^ 

item with all of its J Dictionary pointer JDictionary pointerl 

renaming items if the j f or renamed item Jfor renaming item } 

SYMDMP or TEST option is *- J -» 

specified. 
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Entry Frequency 

On entry for each RENAMES item. 

Phases I nvol ved 

Phase 2 2 builds this table 

while processing RENAMES clauses. 

Phas e 25 uses this table to 

associate renamed items with 

renaming items. 



REPTAB 
(TIB 29) 



Purpose 
Store COPY... 
REPLACING data-names 
to be used during 
read from library. 



1 1| Variable 
H-f- 



m 



Variable 



; J-.J 

JcJWord being replaced |c|Feplacing word, literal, or 
| \ | | identifier. 

i i i j 



© 



RLDTBt 



© 



Entry Frequency 
One entry for each pair 
specified in the REPLACING 
clause of the COPY 
statement currently 
being executed. 

Phases Involved 

Phase 2 builds this 

table from COPY. . .REPLACING 

clause in source program. 

Phase 2 uses this 

table to replace data-names 

while source statements 

are being read from 

a library. 

(Phase 6) 
Purpose 

Store information 
on items to be 
inserted in 
data area or a 
Global Table in the 
object module. 

Entry Frequency 
One entry for each PN 
definition, VN 
definition, and adcon 
in Data A- text. 



r """ ■ '-■'- ■ ' t 


i — i 


i 


! 1 

L 


| 3 


1 1 

i 


1 3 I 

9 


t 




l 


f ■ ■■ I 


| 84 = DCB address or 


ITarget 


J Priority 


Value } 


| other Data 


laddressj (0, if no 


of adcon | 


I A -text element 




J segmentation) 




J 94 = GN or PN 




1 




| definition 




1 




I A4 = VN definition 




I 




J CO = TGT adcon 




1 





Phases Involv ed 

Phase 6 builds this table 

during Data A-text 

processing. 

Phase 6 uses this table to 

write RLD and text 

cards for object module. 
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PLDTBI (Phases 63 and 64) 

(TIB 28) Purpose 

Store information on 

items to be inserted in 

the data area or a Global J Code 

Table in the object 

module. 



1 — 




" T 




i 




i 




i 


I 


1 


I 


3 


I 


1 


I 


3 


I 


1— 




«— 




— 1 




1_ 




— 1 



JTarget J Priority 



IValue of | 
|defininq|address| (0, if no JADCON 1 
jitem (3) I J segmentation) | | 
i ^-^ i 1 j i 



Entry Frequency 

One entry for each PN 

and GN definition, 

VN definition, and each 

address constant in 

Data A-text. 

Phases Involv ed 
Phases 63 and 6 4 build 
this table during Procedure 
A-text and Data A-text 
processing. 

Phase 6 4 uses this table to 
write FLD and text cards for 
the object module and to 
resolve VN EQUATE PN and 
VN EQDATE GN addresses. 



Mj Last entry in the table is followed 
by a byte of zeros. 

(Y) There is no TIB for this table. Phase 6 
uses the phase 00 routine GETALL to get 
space, but moves data in and out of 
the table by itself. When it receives 
control back from phase 00, phase 6 stores 
the first address in the table space in 
location ARLDTB and the length in bytes in 
location RLDSIZ. During processing, it 
uses location RLDINDEX as a counter of the 
bytes used so far. 



(3J Code Meaning 

^-^ 10 RPT-OBIGIN GN 

84 DCB address or other Data A-text 
element 

94 GN or PN definition 

A4 VN definition 

C4 INIT1 ADCON address in TGT 



RNHTBL (Phase 22) 
(TIB 12) Purpose 



Store information 
on objects of 
REDEFINES clauses. 

Entry Frequency 
One entry for each 
REDEFINES clause. 

Phases Involved 

Phase 2 2 builds this table 

from dictionary. 

Phase 2 2 uses this table 

to check whether the 

REDEFINES clause is valid. 



1 -— 




, y .,.,„.. 




T 




'""1 


1 


1 


l 


3 


I 


1 


i 


f— 




"I 




1— 




.J 



J Level number J Pointer tol Dictionary | 

J of REDEFINES Jdictionaryl minor code | 

I subject | entry for \ for object | 

I {REDEFINES | J 

J I object 1 I 

L 4 1 J 
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RNMTBL (Report Writer) 
(TIB 12) Purpose 

Store data-names 

of report groups. 

Entry Frequenc y 
One for each REPORT 
GROUP that has a 
data-name and is not a 
detail report group. 

Phases Involve d 
Phase 12 builds this table 
from scan of report groups. 
Phase 1B uses this table 
to generate coding in 
response to USE BEFORE 
REPORTING statements. 

(Y) Left- justified, padded with 

binary zeros in low-order bytes. 

\2J First entry is a dummy. 



32 



I 



I 1 

IData-name | GN number for 
|for report| report-group 
| group in^J 
| EBCDIC (j)| 



h 

this I NOP cod€ 



| 00 = 
| 01 = 



NOP 
NOP 



PLUS 
ZERO 



© 



ROLTBL (Report Writer) 

(TIB 15) Purpose 

Store the SUM 
clause data-names 
and operand-names 
that are needed to 
create ROL-ROUT 
and RST-ROUT. 

Entry Frequenc y 

One entry for eash sum 

rolled forward . 



2 | 1 



■+- 



n |SUM 
, i level 

I 
I 



I 



I 



H 1 

Unused |Displaceraent of | Displacement of ^^ 
| SUM name entry | SUM name SNMTBL (2) 
|in SNMTBL (this|or nnnn portion of 
lis the item to |S.-name (this is 
jbe rolled | the item into which 

Iforward) | the sum is to be 

| | rolled) 



Phases Inv o lve d 
Phase 12 DOROL routine 
builds this table. 
Phase 12 GNSPRT routine 
uses this table to create 
ROL-ROUT and RST-ROUT. 



+— : . — ; ■■ ■ . . ^a 

^Displacement ^^' ! Still , bm»?^$ Contains zeros 
(in Snmnt (2) ^r^^K^to indicate 
Jor rnrnn poxtzm of .S>3iJw« r lend of entry 

nt : :(tkis::is:: t^ 



MJ Contains zeros if this is the last 
entry in the table 



(2) Bytes 

^ 
1 
2-3 



Conten ts 

FF 

00 

Displacement 
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ROUTBL (Report Writer) 

(TIB 16) Purpose 

Store GNs for 
routines in each 
Report Writer 
generated program. 

Entry Frequenc y 
One entry for each 
report in Report 
Section, 



Phases Involve d 
Phase 12 builds and 
uses this table. 
Phase 1B uses this 
table in Report Writer 
verb processing. 



|GN number|GN number 
I for jfor 
|RPH-ROUT |RPF-ROUT 
i 1 



|GN number | GN number 
| for | for 
ILST-ROUT | WRT-ROUT 
i -i- 



| GN number | GN number 



I for 

| ROL-ROUT 

I 

I 



I for 
IRST-ROUT 



|GN number |GN number 
I for jfor 
ICHF-ROUT |CFF-ROUT 
i i 



|GN number | GN number 
| for | for 

IALS-ROUT IRLS-ROUT 

i ; — i 



GN number | GN number | GN number 
for | for jfor 
PGH-ROUT |PGF-ROUT | 1ST-R0UT 

1 1 



GN number | GN number |GN number 
for | for | for 
WRT-1 | WRT-2 |CTB-ROUT 



GN number | Unused 



for 
RST-1 



~T 

I 2 

H 

| GN number for deta 
| now being processe 
|it is moved to 
IDETTBL at end of 
I processing for the 
| detail 



GN numberf GN number|GN number | 
for PH-1 | for R0L-1|for 

| | INT -ROUT 

1 _j 



GN number|GN number | 
for | for | 

SAV-ROUT JRET-ROUT | 



RUNTBL 
(TIB 35) 



Purpose 

Collect and condense 

information about 

checkpoints. 

Entry Frequenc y 
One entry for each 
valid RERUN statement 
specified with the 
"integer -1 RECORDS" 
option. 



|DCB number JDCB number |"Integer" for 

|of RERUN | of checkpoint | RERUN file 
| file | file | 

I — __ __ — I . . 1 ; 
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Phases Involve d 

Phase 21 builds this 

table from the CKPTBL 

table. 

Phase 51 uses this 

table to generate 

coding to count and 

test "integer", 

for READS and WHITES 

for RERUN files. 

RWRTBL (Report Writer) 

(TIB 13) Purpose 

Store information 
about a report -name. 

Ent ry Frequenc y 
One entry for each 
report-name. 



1 — 




■ 




T - 


i ■ - - 1 


1 


30 


1 


5 


1 2 


1 2 I 


1— 




H 




H 


H H 



J Report-name! -nnnn portion IPomter to |Size in 
|in EBCDIC |of record-name | f ile-name-1 | binary 
| | for f ile-name-1 | entry in | of larger 

| (V) | IFNTBL | record 







Pha ses Involve d 
Phases 10 and 12 build 



nr 



I _ ~5 T 2 | 2 | 

this table from scan of FD| 1 1 -| 

and RD entries. |-nnnn portion of {Pointer to entryl Displacement in | 

Phase 1B uses this table 

during scan of Report 

Writer verbs. « ^=£-i :r: i_ 



| record-name for | for file-name- 2 IROUTBL of entryl 
|file-name-2 (?) I in FNTBL (2) |for this report| 



1) Left- justified, padded with binary zeros 
in low-order bytes. 



© 



2) Contains zeros, if report is to be 
written on only one file. 



SAMETB 
(TIB 19) 



Purpos e 

Save information on SAME 
AREA files until buffer 
allocation and Data 
A-text generation of DCB 
and DECB elements. 

Entry Frequenc y 

One entry for each file 

named in a SAME AREA 

clause. 



1 



I 



I 



,. 

SAME | Relative location 
AREA | in object module 
numberjof DCB, DECB, or 
| FIB (V) 



I 



-+ 1 1 

| Number of | Block size | 
Ibuffers forjrounded up | 
| queued file | to multiple! 
| (2) | of eight | 
I W I (2a) | 



Ph ases Involve d 
Phase 21 builds this 
table from Data IC-text. 
Phase 21 uses this table 
to allocate buffers 
and fill in fields for 
DCBs and DECBs. 



^BL numberj Key 
J for this llenath 
I file | (2b) 

I L. 




4 bits| 1 | 



h 

Access! 
method | 



&. 
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SATBL 
(TIB 5) 



Purpos e 

Store file-names 

associated with SAME AREA 

clauses until all SAME 

clauses have been 

processed. 



Entry Frequenc y 

One entry for each file 

in a SAME AREA clause. 



I 



h 



I 



-+- 



ICount of|Card 
| files in | number of 
| entry | entry 
I I 

1 i 

i i 



1 I 



30 



I File-name 
| in EBCDIC 
I 
I 

I 

-j — 




iiBpiilil 



© 



© 



Ph a ses Involve d 

Phase 10 builds this table 

from SAME AREA clauses 

in source program. 

Phase 10 uses this table 

to check SAME AREA 

clause syntax. 

Contains the relative location of 
the DECB for BASIC files except for 
BASIC files containing spanned 
records. For BASIC files containing 
spanned records and all other files, 
this field contains the relative 
location of the DCB. For VSAM files, 
the field contains the relative 
location of the FIB. 

Field = 1 if this is a BASIC file. 
= 1 if this is a VSAM file. 



(2a) Maximum record size rounded to a 
multiple of 8 for VSAM file. 



Field is set to zero for VSAM file. 



I(2 
© 



Bit 

1 



Meaning 

Format V 

Spanned records , ADVANCING or 

SAME RECORD AREA specified 
Direct BDAM file when REWRITE 

is used 
Direct BDAM or direct BSAM 

file with key 



SEGINDX 
(TIB 16) 



Purpose 

Store information about 
program fragments if the 
SYMDMP or STATE option 
is specified 

Entry Frequenc y 
One entry for each 
program fragment. 



© 



Bit 



Code Ac cess Method 

0000 QSAM 

0001 QISAM 
0010 BISAM 
0100 BSAM 

Meaning, if o n 
QSAM file containing 
spanned records 

1 BASIC file containing 

spanned records 

2 VSAM file 
3-7 Unused 



I 



4- 



H- 



Priority | Address of this | Table-locator f or | Table-locator i 
number | fragment rela- | PROCTAB entry for|PROCTAB entry J 
jtive to the | first card/verb jlast card/verb 

Ibeginning of |in this fragment | this fragment 
I the segment | MJ | (T\ 



Phases Involve d 
Phase 65 builds this table 
while reading De bug-text and 
building the PROCTAB table. 
COBOL library subroutines use 
this table. 

(T\ For the SYMDMP option, the field contents are: 
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Bits Content s 

0-14 Relative block number in PROCTAB 
15-23 Displacement within block 

For the STATE option, the field contents are: 

. Bits Content s 
0-23 Displacement from the beginning of the 
PROCTAB entries in the object module 

SEGTBL 

(TIB 15) Purpose , T 



© 



1 

Store disk addresses of | 1 | 4 J 

sections of Procedure | 1 1 

A-text. | Priority number J Device address (jh 

I 1 _T_J 

Entry Frequency 
One entry for each 
segment control break 
encountered in P2-text. 

Phases Involved 

Phase 51 creates an entry when 
it finds a segment control 
break. Gets priority from 
PNOUT + 1 in phase 5, and 
device address from cell 
SEGSAV in phase 00. Phase 6 
or, under the optimizer 
version of the compiler, 
phases 62 and 63 use this 
table to combine sections 
into a segment. 



B yte Contents 

0-1 Relative track number 

2 Block number 

3 Zeros 



SETTBL 

(TIB 21) Purpose 



Store operands before {Variable I 

TO, UP, or DOWN in SET J— 1 

statement; store (Element as encountered in Pl-text| 

receiving fields « ■ 

before ON SIZE ERROR 
or next verb in ADD or 
SUBTRACT statements with 
multiple receiving fields. 

Entry Frequenc y 
One entry for each element 
of P1-text encountered 
before desired element 
is found in input buffer. 

Phases Involve d 
Phase 4 builds this table 
while processing SET 
statements, or ADD or 
SUBTRACT statements with 
more than one storage field. 
Phase 4 uses this table 
to temporarily bypass 
operands in SETTBL 
table while it scans 
input buffer for desired 
element following 
these operands. 
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SMRCDTBL 
(TIB 5) 



Purpose 

Save information on SAME 
RECORD AREA files until 
buffer allocation and 
Data A-text generation. 



r- 


— — r -. 




—T " 




— i — 


— ■'-""i 


i ■— — 


— i 


1 


1 I 

h- 


3 


I 
—h- 


2 


1 

-H — 


1 I 
1 


I 1 

I 


1 



Entry Frequenc y 
One entry for each file 
named in a SAME RECORD 
AREA clause. 

Phases Involve d 

Phase 21 builds this 

table from Data IOtext 

and PIOTBL. 

Phase 21 uses this table 

to allocate record 

areas, to generate 

block address definitions, 

and to fill in DCB or DECB 

fields. 



ISame | Relative locationl Maximum! First BL|Flag 
| RECORD | in object module | record j number jbyte 
| AREA | of DCB or DECB |size (for file| 
|number|for BASIC FILES | | | (2) 

I lor FIB J | | ^ 

I I (1) II I 



1 I 



1 



| Flag | Key length (if bit 3 is on in preceding field) | 
IbYiel | 

I 



I Q)l 

1 ^-r I, 



SMSTBL (Report Writer) 

(TIB 28) Purpose 

Store SUM clause 
operand-names for 
correlation of SUM 
and SOURCE clauses. 



I 2 | 



| c | SUM clause operand-name in EBCDIC! (7) 



Entry Frequenc y 
One for each 
operand- name in a 
SUM clause. 



© 



© 



Phas e s Involve d 
Phase 12 builds this 
table from SUM clauses. 
Phase 12 uses this table 
with SRCTBL and SUMTBL 
to generate USM-ROUT 
routine for each detail 
report group and to 
build ROLTBL. 

Contains the relative 
location of the DCB for BSAM 
files containing spanned 
records. For all other BASIC 
files, this field contains 
the relative location of the 
DECB. For VSAM files, this 
field contains the relative 
location of FIB. 



Bit 


Mean in q 







QSAM file 


containing 




spanned 


records 


1 


BSAM file 


containing 




spanned 


records 


2 


VSAM file 




3-7 


Unused 





li 



Bits 


Meaning* if on 





Format V 


1 


QSAM with spanned records 




and/or ADVANCING option 


2 


Unused 


3 


File is direct BSAM or 




direct BDAM 


4-7 


Access method 



0000 = QSAM 

0001 = QISAM 



0010 



BISAM 



010 = BSAM 



1000 



BDAM 



Qn First entry is a dummy. 
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5NMTBL (Report Writer) 
(TIB 35) Purpose 

Store all data-names of 

SUM clauses. 

Entry Frequenc y 

One entry for each SUM 

clause. 



32 



|Data-name for sum bucket (T)| Unused| (T) 



Phases Involve d 

Phase 12 builds this table 

from SUM clause. 

Phase 12 uses this table 

to correlate SOURCE and 

SUM clauses, build 

ROLTBL, and generate 

USM-ROUT routine. 



SPNTBL 
(TIB 21) 



Purpose 

Store function-name 
information from 
SPECIAL-NAMES paragraph 
in Environment Division. 



| 3 1 1 |Variable(3j 



-f-4 



| 3 | c| Mnemonic-name in EBCDIC 
i 1 — i 



Entry Frequenc y 
One entry for each 
function-name. 

Phases Involve d 
Phase 10 builds this table 
from SPECIAL-NAMES 
paragraph. 

Phases 12 and 1B use this table 
to substitute function- 
name for mnemonic-name 
in Procedure Division. 



T) Left- justified, padded with binary 
zeros in low-order bytes. 

2) First entry in the table is a dummy. 
(3) Three possible configurations: 



Byte,, Q 
1 -character 
literal in 
EBCDIC 



B yte 1 
Unused 



B yte 2 
Unused 



b. 54 



55 



Code for COBOL Unused 

word used (see note 7 
under PO-text in 
Appendix C) . 



Code for carriage 
control word 
(see note 5 under 
PO-text in 
Appendix C) . 



Unused 
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SRATBL 
(TIB 6) 



Purpose 

Store file-names 
associated with SAME 
RECORD AREA clauses 
until all SAME clauses 
have been processed. 

Entry Frequenc y 
One entry for each file 
named in a SAME RECORD 
AREA clause. 



1 



+ 



ICount of |Card 
J files in j number 
I entry | entry 

I I 

i i 



I 1 I 

+ 



30 



'■■3t- 



| c | File-name f (ftepsat file~JNiti 

of J | in ebcdic( and j 

I I 

I ! 

1 L 



f one® for **<* 



s> *Y>i 



SRCHKY 
(TIB 34) 



Phases Involve d 
Phase 10 builds this table 
from SAME RECORD AREA 
clauses in source program. 
Phase 10 uses this table 
to check SAME RECORD 
AREA clause syntax. 



Purp ose 

Save names of keys cited 

in KEY clause for group 

item until group item is 

processed, 

i 

Entry Frequenc y 
one entry for each key 
named in KEY clause in 
current group item. 

Phases Involve d 

Phase 22 builds this table 

from group items in 

Data IC-text. 

Phase 2 uses this table 

to make sure keys named 

are defined in group. 

If not, sets error bit 

in INDKEY table for 

phase 3 reference. 



SRCTBL (Report Writer) 

(TIB 22) Purpose 

Store SOURCE clause 
operand names to 
correlate SOURCE and 
SUM clauses. 



-T — 1 

| 1 | Variable 



1 1 = ASCENDING JcjName of key in EBCDIC! 
|02 = DESCENDING | | | 

i -i i i 



| Variable 
H 



Entry Frequenc y 
One entry for each 
SOURCE clause in each 
detail report group. 

Phase s Inv olved 
Ph as e 12 builds this 
table while scanning 
detail report groups. 
Phase 12 uses this table 
in conjunction with SMSTBL 
and SUMTBL to generate 
SUM-ROUT routine for each 
detail report group. 



ILength of |Displacement| SOURCE operand with 

| SOURCE clause | into DETTBL | all qualifiers, indexes, 
loperand-name |of detail |and subscripts (if any) 
| jreport groupjin PO-text format. 

| | data-name | 

I 1 ; 1 ; 
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CN 

3 5) 



Purpose 

Save all subscript 
strings preceding an 
UNSTRING verb string. 

Entry Frequenc y 
One entry for each 
subscripted data-name 
in an UNSTRING statement 

Phases Involve d 
Phase 45 builds and 
uses this table. 



I 



| Variable 



| Variable 



H 



-h 



1 8439 (hex) followed |Data-name |Data-name reference (30) 

| by count of elements | reference (30)|or alphanumeric literal 
| that follow | element 1(34) element for first 
1 I | subscript string 

I L_ 1 






Variable 



I 



^^^^^^^^^^^S^^^^^^^ Subscripted data- | 
~ * * "30) or aiphaauaerifclname reference (31) | 




OUT 
B 11) 



Purpos e 

Store subscript strings 
in the order in which 
they are to be^written 
as P2-text. (Y) 

Entry Frequenc y 

The table is divided 

into sections which 

contain the subscript 

strings for any 

subscripted data 

items that are 

referred to by the 

text in the corresponding 

section of the TXTOUT 

table. 

Phases Involve d 
Phase 45 builds and 
uses this table with 
the TXTOUT table. 



I 



Variable 



Variable 



Variable 



'i. 



Variable 



Variable 



I 1 1 1 

18439 (hex) followed | Data-name | Data-name reference (30) | 
| by count of elements! reference (30) |or alphanumeric literal | 
| that follow | element | (34) element for first | 
| | | subscript string | 
i 1 1 1 



|i&t*^*ite X€f#reutC0 t&ata^mame jre£«re&a& | subscripted data- i 
f <3#) ox alpk«aw«rl£l (30) or, alphanumeric! name reference (31) | 
iXltesral (-34) element! literal (34) eXfctKB&Cj element with sub- | 
fcfw #«fecm& subscript J for , third subscript 1 script string id i 
I'striaf > jstriaf \ number in place of | 

I ■ - I iidk field | 



|FFFF (hex) | 

| to indicate | 

lend of subscriptl 
| information | 

L 1 



If the corresponding data item in 
the TXTOUT table is not subscripted, 
the entry consists of a halfword 
containing hex 'FFFF 1 . 
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SSDELIM 
(TIB 20) 



Purpose 

Save delimiters from an 
UNSTRING statement that 
have to be repeated. 

Entry Frequency 
One entry for each 
delimiter that is 
either subscripted or 
follows a variable- 
length group. 

Phases Involved 

Phase 45 builds and uses 

this table. 



1 ■ ' ' ■ . 

1 2 

t 


" T~ — — 

1 
1 


2 


I 2 
i 




j|||§ 14 


| Pointer to 


I541D 


(hex)- 


-15479 (hex)- 




■I Data-name 


lentry in 


| code 


for 


|code for 




pj inf ormatic 


ISSCIN for 


| "DELIMITED 


|»ALL« if 




ffijfor DNSTR] 


| subscript 


| BY" 




| specified 




H (2A) elem< 


\ string (if 


I 




1 






(none contain 


s\ 




1 






J zeros) 


I 
—J.. ... 




1 
_,i- .... 


tsJK 





STRING 
(TIB 9) 



Purpose 

Store verb strings 

while they are being 

built for output as 

P2-text. 

Entry Frequency 
One entry for each 
operand in current 
string. 

Phases Involv ed 

Phase 4 builds this table 

as strings are processed. 

Phase 4 uses this table to 

collect output before 

generating. 




SUMTBL (Report Writer) 

(TIB 19) Purpose 

Store data-names and 
operand-names from SUM 
clauses that are used 
to create USM-R0UT, 
INT-ROUT, RST-ROUT, and 
R0L-R0UT routines. 



' © 



I 



1 



I 



I 



+ 



-H 



H- 



|SUM level | Card number for | Reset level | 
I . |this SUM clause! ; I 

I . . ' I ■ v- : jv:/ : -V | 
_j 1 — ; 1 1 



Entry Frequency 

One for each SUM clause. 

Phas e s Involved 
Phase 1 2 builds this 
table from scan of 
SUM clauses. 

Phase 1 2 uses this table 
to build USM-ROUT, 
INT-ROUT, RST-ROUT, and 
R0L-R0UT routines. 



t 1 1 i 

| Displacement of entry | Code for | Pointer to SUM | 
|in DETTBL for detail |next field|name in SNMTBL | 
J name in SUM. . .UPON | ^-^ | or nnnn portion | 
| clause | \3j J of S.-name J 



I 



h 



I 



-h 



24 



I 



+ 



| E. -name J PICTURE for | Displacement of entry 

| (REDEFINES) | name in |in SMSTBL for first 

Jin PO-text | EBCDIC J operand-name in SUM clause 

| format (4)| | 
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; 1 

Displacement of entry | Zeros 
in SMSTBL for last | 
operand-name in SUM clause! 



Number of bytes in preceding field. 



Contains zeros if this is last 
entry in table. 

Code Meaning 
00 Next two bytes contain 

displacement into SNMTBL. 
10 Next four bytes contain nnnn 

portion of S.-name. 
FF Next field contains nnnn 

portion of S.-name. 



© 



Bits 



1 

2 
3-6 




CADTBL 
CB 1) 



Purpose 

Store information needed 
by phase 65 for pro- 
cessing the SYMDMP, TEST, 
STATE, and FLOW options. 
Also used to pass infor- 
mation between phases 6 2, 
63, and 64. 

Entry Frequency 
Information entered 
depends upon options in 
effect. Only the first 
five fields are filled 
in if phase 60 builds the 
table. 

Phases Involved 
Phases 60 or 62 - 63, and 
64 build this table. 
Phase 6 5 uses this table 
in processing the SYMDMP, 
STATE, and FLOW options. 



Displace- 
ment of 
DEBUG 
TABLE in 
TGT^ 

O 



Relative 
address 
of byte 
after 
INIT3_ 

©0 



Relative 
address of 
first in- 
struction in 
Procedure 
Division (in 
root segment 
when program 
is segmented) 

0© 



I 



1 j 

Relative | Address | Note add- 
address | of START |r ess of 
of^S£ART|of Q- | first 
C^OO I Boutines| block of 
^ w |or INIT2|code gen- 
| if no Q-|erated for 
I Routines j indepen- 
| (IWj | dent seg- 
| | ments on 



I 



I 



+ 



+ 



Displacement of | Displacement of | Displacement of 
ILBOFLW0 virtual | ILBOTEF3 virtual |ILBOSGM0 virtual 
from beginning | from beginning |from beginning of 
of PGT if | of PGT if SYMDMP |PGT if TEST option 
FLOW and land DYNAM/RESIDENT| is specified for a 
DYNAM/RESIDENT (and program | segmented program 
used by phase 64 | contains floating- | (?) 

J point item used | 

lonlybv phase 64 | 

i ■.© i 

; 1 ^=1 1 



1 by 

c5 



Length of transient 
area if program is 
segmented-used by 
phase 64 to fill in 
TALENGTH field in 
TGT 
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MJ Filled in by phase 62. 

(7) Filled in by phase 63. 

(?) Filled in by phase 64. 

QT) Filled in only if the SYMDMP or the STATE option is in effect. 

(V) Contains zeros if the program is not segmented. 

TIBP (Alternate name for RNMTBL) 

TIBR (Alternate name for RDFSTK) 



TOTTBL 
(TIB 32) 



Purpose 

Store TOTALED option 
information from Data 
Division for use in 
Procedure Division 
processing and by 
phase 22. 

i 
Entry Frequency 
One entry for each 
TOTALED option specified. 

Phases Involved 

Phase 1 builds this table 

from source program FD 

entries. 

Phase 2 2 uses this table 

to assign BLLs to a 

TOTALED AREA data-name 

and items subordinate 

to it. 



1 I 



-1 — T" 
Hl 



30 



1 i-H 

02 | Displacement of | c| Data-name-3 froD 
jentry for associated! | TOTALED option 
| file in FNTBL table | | in EBCDIC form 
I I I. © 



(T) Padding starts from low-order bytes. 



TXTOUT 
(TIB 19) 



Purpose 

Save UNSTRING verb 

strings. 

Entry Frequency 
One entry for each 
UNSTRING verb string. 
The table is organ- 
ized in sections which 
contain all the strings, 
except subscript 
strings, for an UNSTRING 
statement. 



Variable 



i'8465 (hex) J5496 | Verb information (24) {Text string elemen 



| followed | (hex) -| element containing 
| by count | code J the seguence number 
| of elements! for | of this string and 
| that follow! "FIRST"! the total number of 
! ! j strings 

I I— I ; _ . 



(for DELIMITER, 

! RECEIVING FIELD, 

| DELIMITER IN, COUN 

|IN, POINTER, or 

! TALLYING 

i — 



» 



\ 

|54A1 
! (hex) 
| code 
!for 

l"END» 
I 



I 2 

H 

| FFFF (hex) - 
-J to indicate 

| end of 

| string 

I 

! 




Numeric literal |GN reference (AA) 



(BB) element 
which contains 
the number of 
Q-routines_^ 
needed MJ 



| element which 
| contains the GN 
| number of the 
! first ^-routine 

I 



: O-i 

© 
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IFFFF (hex) - | 
| to indicate Qyi 
Jend of string | 



(j^) The field is present only if the text 
string is for a data item which is 
the object of an OCCURS. . . DEPENDING ON 
clause. 
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UPSTBL 
(TIB 29) 



© 
© 
© 



Bit 
0-1 



2-7 



Purpose , — 

Build during scan by phase|1 
10 from SPECIAL-NAMES (if ] — 
not. used, must be | 

released) . |n 

I 
L 



Phases Involved 
Phase 2 2 deletes this 
table after use. 

Count of bytes in UPSTBL 

entry. 

Card number of UPSI 

definition 

Type of entry and count. 



| card 

I number 

fof UPSI-X 

I 

I 



© © 



M 
I— 



jc 



06 



UPSI- 

name 



| Variable | 



&. 



| Mnemonic 
j name 
I 
I 



J Variable 



+ 



Meanin g 

Type of entry 

11 = Mnemonic name 

10 = ON condition name 

01 = OFF condition name 

Count of name which follows 



| condition- j 
I | name 

!©! 



1 1 Variable 
■+- 



C \ condition- I 
| n .am e 

0» 



USETBL 
(TIB 26) 



© 



Purpose 

Associate USE DECLARATIVE 
information with 
procedure name. 



|PN number J Attributes! 
« I r ^ ! 

I i © i 



Entry Frequenc y * — * — 

One entry for each USE sentence 
specified in DECLARATIVES Section. 

Phases Involve d 

Phase 1B builds this table from 

source program USE DECLARATIVE entries. 

Phase 51 uses this table to generate 

variable entry code in DECLARATIVES. 



Bits 


Meaninq* if on 





Unused 


1 


MULTIPLE FILE 


2 


AFTER 


3 


BEFORE 


4 


REEL/UNIT 


5 


FILE 


6 


BEGINNING 


7 


ENDING 
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USNGTBL 
(TIB 2) 



|0-3 



Purpose 

Store dictionary pointer 
and PNs for Error or 
Label Declarative 
associated with the 
USING clause of SORT 
or MERGE verb until all 
file-names in clause have 
been processed. 



Entry Frequenc y 
One entry for each file-name 
in SORT,. •USING clause. One 
entry for each file-name in 
MERGE. ••USING clause. 

Phase Involved 

Phase 30 builds and uses this 

table during USING processing. 



r i 

I1U-15 | 

| . ( i , 

(Dictionary pointerl PNs for Error or j Unused! 
f | Label Declarative! | 

i ; 1 , 1 j 



|4-13 
-4~ 



VALGRP 
(TIB 6) 



Purpose 

Save Data A-text address 
constant definitions for 
group items containing 
VALUE clauses. 

Entry Frequenc y 

One entry for each group 

item with a VALUE clause 

that is current by being 

processed. 



t 1 — 8 r- 

I 1111 11 
I l-H h 



-t — r- 



| 10|c|28|Relative address in object modulej |Size of| 
I i@j Inhere address constant is located @ item j 



j 1 | Variable 
* H 



Phases Involve d 

Phases 20 builds this table 

from Data IC-text LD entries. 

Phase 22 adds the length of 

the group item and, if it is not 

an ALL constant, deletes the 

literal byte count. 



I c (Alphanumeric constant itself | 

l©®l I 
t i i 



VALTRU 
(TIB33) 



Purpose 

Store literals for 
VALUE... THRU clause in 
level-88 group item. 

Entry Frequenc y 

One entry for each VALUE 

clause of this type. 

Phases Involve d 

Phase 20 builds this 

table from Data IC-text 

LD entries. 

Phase 22 uses for syntax 

checking of the VALUE IS 

SERIES clause. 

Phase 3 uses this table 

to fill in Pi-text 

literals with the actual 

values. 



r— l 

invariable 

|c|P1-text element i |^#^^li^^3^ifi|^S FF | 
©I for literal ® | ^f«^^ 

' ' ■ *->■-* AyL :,..*.,.. V.^.,?., '.■■>. ^.,...Sm i 



^ f' : - ''' -"- f i ' . ' .... 

i (iii^ipiSi^ 11 

l i nrti i f4iMM»i l i l r : i | i i n ii iii ^y ! §jiV-> . 7 ilii iMV^ j g|ji lii iC:>J i jl I 

a - ...-■-* *m.-.j». .-■■»■■ ■■■..■ ..i;^.- ....... .... »»■ ■-.■ m^,..^ -- m . a. ...» nn I 
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(T) Data A-text prefix 

(2) Number of bytes to follow, 

(3) Type of constant as follows: 

01 = Alphanumeric 
FF = ALL constant 

(V) If not ALL constant this byte is 
deleted by phase 22. 

(5) In the high- order four bits: 

= Value is not followed by THRU 
8 = Value is followed by THRO 

The low-order bits contain the count 
of bytes in the next two fields. 



© 



© 



First byte contains the following 
code: 

Code Type of Literal 

32 Numeric 

33 Floating-point 

34 Alphanumeric 
3 9 ALL constant 

75 ALL constant (one byte only) 

Signifies the end of a series. 



VARLTBL 

(TIB 15) Purpose 

Store information about 
variable-length items 
needed for the DATATAB 
table if the SYMDMP or 
TEST option is specified. 



IDictionary pointer fori Maximum size (includingl 
| variable-length items | slack bytes) in bytes | 



Entry Frequenc y 
One entry for each 
variable-length item. 

Phases Involve d 
Phase 22 builds this table 
using information in the 
GPLSTK table. 
Phase 25 uses this table 
while processing variable- 
length items for the 
DATATAB table. 



VARYTB 
(TIB 1) 



Purpose 

Control GN numbers 

branched to in 

PERFORM.. .VARYING 

statement. 

Entry Frequenc y 
One entry for each 
PERFORM... VARYING 
statement. 

Phases Involved 
Phase 4 builds this table 
from PERFORM.. .VARYING 
strings in P1-text. 
Phase 4 uses this table 
to issue P2-text strings 
with correct branches 
for different steps. 



| GN number for|VN number |GN number for | GN number 
| condition | f or varied | ADD verb string (for MOVE GN 
I branch | branches jthat increments! 

I 1- t ; a 
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VIRPTR 
(TIB 13) 



Purpose 

Store pointers to 

CVIRTB during virtual 

optimization. 

Entry Frequenc y 

One entry for each virtual 

definition element. 



J Displacement from start of PGT in the object module to 
| virtual 



VNPNTBL 
(TIB 29) 



© 



Phases involve d 

Phase 6 or, under the optimizer 
version of the compiler, 
phase 62 builds this table 
when it builds CVIRTB. 
Phase 6 or phase 6 2 uses this 
table with CVIRTB to eliminate 
duplicate virtuals. After PGT 
allocation, each entry points 
to entry in PGT virtual field. 
Phase 64 uses this table to 
locate the constant (EBCDIC 
name) to be inserted in the 
object program listing, if the 
listing is requested. 



Purpose 

Establish addressability 
at PN definition 
location . 

Entry Frequenc y 

One entry for each VN 

EQUATE PN or VN EQUATE GN 

element encounterd during 

Optimization A-text 

processing. 



Phases Involve d 

Phase 62 builds this table 

during Optimization A- text 

processing. 

Phase 62 uses this table 

to update the ACCUMCTR 

counter by 4 for each load 

instruction to be generated 

by phase 63 for each PN or 

GN associated with an ALTER 

statement. 

Phase 63 creates, for every 

entry in this table, RLD 

entries for the VNI cells in 

the PGT. The phase 

generates a load instruction 

of the current Procedure Block 

into register 11 at the point of 

definition of the PN or GN 

associated with an ALTER statement, 



IType (T)jPN or GN number Jvn number J 



Code 


Meaning 


00 


PN, ALTER 


OF 


PN, PERFORM 


F0 


GN, ALTER 


FF 


GN, PERFORM 



(code values are in hexadecimal) 
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VNPTY 
(TIB 17) 



Purpose 

Store VN numbers and 

associated priority 

numbers to later compute 

the position of VNI 

cells in the object 

module. 



Priority number |VN number | 

. L , , I 



VNTBL 
(TIB 11) 



Entry Frequenc y 

One entry for each VN 

number. 

Phases Involve d 

Phase 6 or, under the optimizer 

version of the compiler 

phase 62 builds this table 

from segmentation elements in 

Optimization A-text. 

Phase 6 or, under the optimizer 

version of the compiler, 

phase 64 sorts entries by 

priority numbers and uses 

the resulting order to 

compute the position of 

VNI cells in the object module. 



Purpose 

Store information on 
procedure-" names that 
have been altered by an 
ALTER statement or are 
ends-of-range of 
PERFORM statements. 



|PN number! VN number corresponding to PN 

i ; — a. , — , 



Entry Frequenc y 
One entry for each 
procedure-name . 

Phases Involve d 

Phase 4 builds this table 

from Pi-text PNs and 

VNCTR in COMMON. 

Phase 4 uses this table 

to modify addresses 

and set up return VNs. 



VRBDN 
(TIB 07) 



Purpose 

Describes each data item 

encountered by the phase 

in the P1-text for a 

specific verb for 

debugging. 

Phases Involve d 
Phase 35 builds this 
table and uses it to 
describe each data item 
encountered by the phase 
in the Pi-text for a 
specific verb which may 
be considered for 
debugging. Phase 35 
deletes this table 
upon completion of 
processing. 



+ 



Switchl Dictionary | Displace- 

I pointer jment in 
| |DBGTXT 

i ■ 



Displacement} 
in P1TEXT | 
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Bit Meaning 

Valid entry 

1 Data item in DTAB table 

2 Generate data item debug text if statistics 
is on and duplicates is off 

3 Generate debug text twice 

4 Data item may change 

5 Duplicate Data item 

6 Data item in DTAB, subscripted 



VRDEFTBL 
(TIB 14) 



Purpose 

Store information about 

the occurrences of COBOL 

verbs. 

Entry Frequenc y 

One entry for each COBOL 

verb used. 

Phases Involve d 

Phase 1B builds this 

table when VBREF or VBSOM 

is specified. 

Phase 22 uses this table 

to generate verb DEF-text. 



— T 

112 
-4— 



— , — 

1M 



I 11 
H 1 



I 11 
I K 

|48|00|Number of |E0| Alphabetic verb|C0| 
| | (occurrences! |sequence number! | 
i ii 1 1 1 1 



M 



— i r 

1| Variable | 
H h 



11 



JLength|FB|Verb-text|FF| 
i 1 1 1 1 



XAVAL 
(TIB 2) 



Purpose 

Optimize use of 
arithmetic temporary 
storage by object module. 

Entry Frequency 
One entry for each 
8-byte slot. 

Phases Involved 

Phase 5 creates an entry 

for each slot as it is 

released. 

Pha se 50 uses this table 

to obtain temporary 

storage that has been 

used and released in the 

object module. 



| ID number of 8-byte slot available in Working-Storage | 

i i 1 



XINTR 
(TIB 1) 



Purpose 

Store and analyze 
intermediate results in 
compile-time arithmetic. 

Entry F req uen cy 
One entry for each 
intermediate result. 

Phases Involved 
Phase 50 builds this 
table from ID number of 
intermediate result 
passed from phase 4 
and its own analysis of 
operands in arithmetic 
statements. 



I 



h 



16 



I 



I 



-+- 



+ 



| Compile-time | Length after {Length after 
lvalue in internal| scaling in | scaling in 
| decimal | internal decimal J binary 

l- 1 i ; 



I 



I -t 1 1 

| Number of | Number of | Length | Relative 
| digits after | decimal places {occupied | pointer in 
j scaling | after scaling | in Working- | Working- 
| | | Storage {Storage 

I 4 1 1 
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Phase 50 uses this table 
to process com pile -time 
arithmetic verbs. 



I 1 I 1 I 2 | 
I *- 1 —4 

|Register| Characteristics! Intermediate! 
I number |of operand I result | 
I | (?) I number \ 



Bit Meaning, if on 

Register used in double-precision 

mode 

1 Overflow could occur 

2 Double- precision floating-point 

3 Operand is in register 

4 Operand is a literal 

5 Operand is floating-point 

6 Operand is generated constant 

7 Operand is literal ZERO 



:rpt 

CB 3) 



Purpos e 

Store subscript and 

index information for 

optimization. 

Entry Frequenc y 
One entry for each sub- 
scripted or indexed item. 

Phases Involve d 
Phase 50 builds this 
table from subscript verb 
strings passed by 
phase 4. 

Phase 50 uses this table 
to calculate address of 
subscripted or indexed 
item, or to generate 
object code for the 
calculation. 



2 ! 



-t — r 

Hl 



1 

n+1 | Number of |0|New addressing | Dictionary pointer 

(subscripts | | parameter of |to unique identifier 

I or indexes! | subscripted orlof subscripted or 

! | | indexed item M) indexed item (?) 

■ i i — * — * 



I 1 I 



h 



~h 



| Flag! Dictionary pointer | 
| byte ! to unique identifier 
I ^^|of first subscrip 
I (j)ior index- name 



% 
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© 



Bits Meanin g 

0-3 3 = Byte 2 contains number of 
register which contains 
new address at object time. 
6 = Bytes 2 and 3 contain the 
number of a SUBSCRIPT CELL 
which contains the new 
address at object time. 

If bits 0-3 contain any other value, then 
the configuration is as follows: 

Bit s Field M eani ng 

0-3 i Type of BL containing base 

address of area: 

0000 = BL 

0001 = BLL 
0100 = SBL 

4-15 d Displacement from base address 
16-23 k BL number 



© 

© 
© 



Bits Con ten ts 

0-9 Zeros 

10-22 Dictionary section numb 

23-31 Displacement in section 

lA£s Meaning, if on 

Literal 

1-7 Unused 

Bits Con tents 

0-1 Zeros 

2-14 Dictionary section numb 

15-23 Displacement in section 



XSSNT 
(TIB 4) 



Purpose 

Store pointers to 
XSCRPT table during 
calculation of sub- 
scripted or indexed 
addresses. 

Entry Freguenc y 

One entry for each entry 

in XSCRPT table. 



I I 

| ID number | Displacement in XSCRPT 
jof subscript! table of new address 
lor index | parameter of subscripted 
Icomputation | or indexed item 
i i 



Phases Involve d 
Phase 50 builds this table 
while building XSCRPT table. 
Phase 50 uses this table 
to locate entries in 
XSCRPT table. 
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INTERNAL TEXT FORMATS 



The types of compiler text produced by each 
phase are given in Figure 61. In this 
appendix , there is a separate section 
describing each type of text. The sections 
are in the following order: 

| © IPTEXT 

o Data I C- text 

o AT F- text 

o Data A-text 

o Procedure IC-text (PO Form) 

© Procedure IC-text (P1 Form) 

| o procedure IC-text (P1A Form) 

• Procedure IC-text (P2 Form) 

o ATM- text 

o Procedure A-text 

© Optimization A-text 

o Procedure A1-text 

o E-text 

© XREF-text 



© Debug-text 



With 
element 
source e 
punctuat 
a re la ti 
literal. 
IC-text 
item des 
the word 
headers. 



some excep 

represents 

lenient is 

ion symbol 

onal symbo 

The majo 

element re 

cription. 

DIVISION 

the word 



tions, one IC-text 

one. source element, A 
a COBOL reserved word, a 
, an arithmetic operator, 
1, an EBCDIC name, or a 
r exception is that one 
presents a complete data 

Other exceptions are: 
is suppressed in division 
SECTION is suppressed in 



section headers, and standard 
paragraph- names are omitted. 

All internal text elements begin with an 
identifier byte. In IC-text and E-text the 
first two bits of this byte contain a code 
with the following significance: 

Code Meaning 

01 1 byte follows 

10 2 bytes follow 

11 3 bytes follow 

00 The byte immediately following 
this gives the number of 
bytes that follow it. 



NOTES ON TEXT ELEMENT FORMATS 



• The top row of figures shows the byte 
numbers occupied by each field, except 
where the field is preceded by a 
variable-length field. 

© l!^;£ej^ define optional 

fields or a series of similar fields. 

• c = the number of bytes in the field 
that follows. 

« n = the total number of bytes that 
follow in the remainder of the text 
element. 



1b 



this field is one byte long. 



© s = size, in words, of the block 
section or area to which the element- 
refers. 

• Pairs of characters in byte are 
hexadecimal numbers. 
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| IP TEXT 



| BASIC LISTER FORMAT 



I 1 

-f- 



i 1 

1 Variable | 



:ype codej card 

©1 column 
J number 



| length | text 

© ! 



| SYNTACTIC AND REFERENCE MARKERS (ONE BYTE) 



I type^code 

! © 



| SYNTACTIC AND REFERENCE MARKERS (TWO BYTE) 



| type^code 

! © 



modifier code | 
I 



© 



Type 
Code 

JEMl 

50 

51 
52 



53 



54 



55 



58 



59 



i© 



Mean ing 

A COBOL source name (subject to 

cross-referencing) 

A COBOL reserved word 

Syntactic string with no special 

lister importance (for example , 

text from a note paragraph) 

Left punctuation (printed on left 

end of string with no intervening 

blanks) 

Right punctuation (printed on 

right end of string with no 

intervening blanks) 

A prose element from an *-comment 

card 

Initial ETEXT elements (with card 

numbers) 

Subseguent ETEXT elements 

(without card numbers) 



respectively 
3C Marks beginning of a COPY 

statement 
3D Marks end of a COPY statement 

3E Marks beginning of a copied 

library member 
3F Marks end of a copied library 

member 

36 Marks beginning of a reference to 
a source definition 

3A Marks beginning of a reference to 

the (TALLY # TALLYING) register 

37 Indent to the left two places 

38 Indent back to the right two 
places 

3 9 Cancel all outstanding BCLSEs. 



Length in bytes of the text in the 
following variable field. - 



©Type 
Code 
(Hex) 
00 
xx 



33 
34 

35 



Meaning/Usage 

Marks beginning of a COBOL source 

Definition (range is 0-51 and 

denotes the nesting depth) 

Marks beginning of a COBOL source 

Statement in column 8, 10 or 

margin B 

Column 12 or greater, 



© 



Type 

Code 

Hex Meaning 

45 Indicates a COBOL source clause 
and the modifier code indicates 
where this clause belongs in a 
standard ordering. In phase 08, 
a COBOL source statement 
continuing several BCLSn - 
clauses will have these sorted in 
ascending seguence on the 
modifier code value prior to 
printing and punching of that 
source statement. 

44 Modifier = C'E 1 . Marks beginning 
of erroneous, missing, or out of 
order COBOL source text. 
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44 Modifier = C«R f . Marks end of 

erroneous COBOL source text. 

The following codes have a four-byte 
format , and are used by phase 06 for 
creating and imbedding cross-reference 
information into the IPTEXT which is passed 
to phase 08: 



Code 

Hex 
48 



49 



Meaning/Usage 
Marks end of~a source DEPN 
reference (a source name followed 
by zero or more gualifiers) . 
Phase 05 creates this and phase 
06 fills in the statement field. 
Marks end of a reference to a 
Procedure Division definition. 



06: 



The following codes are created by phase 



Code 

Hex 
4A 



4B Information collected at the 

point of definition indicating 
the type and statement number of 
the reference. May be moved to 
another definition prior to final 
output to phase 08. 
(Note: IPTEXT information passed 
to phase 08 will contain no 
CONDREFs.) 

4C Tells phase 06 the statement 

number of the Procedure Division 
section from which the following 
CONDREFs came. 



The format for X'48 1 through X«4C« is as 
follows: 



I 1 I 



1 



ir 

|type| referencel Reference/definition! 
|code|type | statement number 

I L , I - 



Meaning/Usage 

Information collected at the 
point of definition indicating 
the type and statement number of 
the reference. 
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DATA IC-TEXT 



LD ENTRY 
i 1 



I 0IU2 
I— +■ 



I 03 jn j 
I ! 

i I 
I I 



Level | 
indicatorl 



I 13-5 



16 



17 
+ 



| 8- 9 



110 



© 



.I Source card number! Switch| Switch | OCCURS DEPENDINGI 
| I byte jbyte (ON maximum 

| j ~^ | / ^ N (occurrences 

| j © ! © I 



111 
+ 



I 



! 

Switch | Number of | 
byte | indexes | 
| following j 

4 ) I I 

j i 



© 



-T 1 1 i— : T 1 1 1 ' 1 

|13|Variable J 1b| Variable 1 1b| Variablel 1 b| Variable | Variable 
■4 — j — H h- {— h 1 1 h 



112 



I 



{Number offc | Name of |c | PICTURE |c | Encoded |c | REDEFINES | OCCURS DEPENDING ON | 

| keys | | data itemj | (actual) | {VALUE | | data-name {pointer | 

| following | | I » /-\ I I /-x I 1 ^ — . I ■/-. ■ I 

I I I I I 00 I I .CO- I I CO I 00 I 



Note: A series of logical records can follow the LD entry. The types of records are 
ordered as follows: 



Value for 
condition -name 



Mb 
I- 



T 1 

j 1b {Variable 
t— +- 



with multiple values {Switch byte C§\ c | Encoded VALUE! 



Indexes (first) 

and/or 
Keys (second) 



Mb 



| 1b{ Variable 
\ 1 



{Flag byte (10j{c | Index-name or key- name in EBCDIC { 

I J^LJ u- , J 



Object of RENAMES 

or 
RENAMES THRU 



Mb 
\ 



| ID code 



®! 



T— T 

{ 1b| Variable 

\ \r 



c {Name in EBCDIC { 
j 1 j 



SD ENTRY 



— i — i — 



I J3 {4-6 



|7-8 



J9-10 



-h 



■+■ 



03{n| Level { {(l2){Source card numberj Minimum RECORD {Maximum RECORD { 

{ {indicator 36 j | { | CONTAINS value { CONTAINS value | 

I I (hex) { | | | J | 

j — » j i 1 1 — i j 



i r 

|-11| 12 



1.13-20 J21{ 22-51 



|(lj)sAME RECORDJ Unused {c |Sort-name in EBCDIC; low-order unused bytes padded with 
| {AREA numberj { {blanks 



RD ENTRY 



T" 



I 0J1{2 
<- I I - 



{ J3{ Variable 



Mb 1 ! 

h— I 

|03Jn|Level { J c{ User-assigned | CO | 
{ { {indicator 34 1 1 J EBCDIC report-name { J 
i I I (hex) | { | { | 
i 1 — i 1 i i , i i 
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FD ENTRY 



i on 12 



H h 



|03|n 

I I 

I I 

I I 
j i 



| Le ve 1 
| indicator 
I (hex) 
I 



I 



I 13-5 
-I 



|6-13| 14 



115 



116 



|17 



118-19 



i h^r* ** * • • 

I Source card | (14) | Switch | Switchl Switch | Buff er | Displacement of 



38 j (number 
I ! 
I I 



| byte | byte | byte 



I 



I I (15) | @ | @ 



| off set | entry for file in 
lvalue |PIOTBL 

1 I 

j 1 



|20 
I 



121 



|. 22-23 
H 



|24-25 

H 



| 26 -27 
-I 



I28-29 
H 



I 



| Number of areas(Switch| Integer- 1 |Minimum (Maximum INumber of | 
{specified in (byte (specified in | number of | number of JTRACK LIMIT | 
| RESERVE clause | (n) j BLOCK CO NT AINS (record bytes (record by tes| tracks ( 

i 1 —rl i 1 i i j 



130-31 J32-33 



h 



■+- 



(34 

H 



(35 
H 



136 

+ 



~T 

437 



(38 



-f- 



139-42 |43 
H 



I 



+■ 



| Unused| Displacement of (SAME |Switch| Switch|Switch| SAME | UnusedJ Unused( 
( (entry for file (AREA (byte (byte (byte | RECORD | J ( 
| (in CKPTBL inumberl | / _ ( |AREA ( ( ( 
| ( | I Qffl I H9) I (20) |number( ( | 
i _j 1 i _ 1 l ~ 1 1 1 1 



(48-49 



(44-45 



| 

| BLOCK 
(CONTAINS 
(maximum counts 
! I 

I I 

! I 

I L- 



|46 
4- 



| 47 

H 



50 



151 



I52 



1~ 

Unused|LINAGEJCount of (Unusedlc 



(53-54 |55 



(Switchl Count of ID- | Displacement 



| byte | text ele- 



Jof IDs in 



(ments fol- IINDTBL 
(lowing IDCNT ( 
I I 

I I 



i 



I (29. 



(PASSWORDS 

(for 

(ALTERNATE 

(KEY 

I 



I 



j Variable (Variable (Variable 



I- 



-H 



~f- 



( Variable 



(Variable 

+ 



(Variable 
+■ 



H 



IFile-name (TRACK (NOMINAL KEY | ACTUAL KEY and| RECORD KEY and ( REORG-CRITERIA 

Jin FD entry (AREA size (and qualifiers! [qualifiers Qualifiers (data-name and 

I ' I /-n * y-N ' ■ s~\ J y-x (qualifiers 

| | (22) | (23) ! (23) I (23) \ (& 



"i 1 

I Variable (Variable 



(Variable 



| Variable 



j Variable 



| Variable 

4- 



■+• 



■+- 



(FILE STATUS (PASSWORD (RELATIVE KEY (TOTALING AREA(LINAGE | FOOTING 

(data-name and J data- name and (and qualifiers( data -name and j data-name j data-name 
(qualifiers (qualifiers j (qualifiers | or (or 



I 



I 



I 



® 



I 



@ 



(integer (intec 



teen 
® 



I 



(Variable (Variable ||p|i^|j 



h 



+ 



•fij 




| TOP | BOTTOM flr&ISBS* 

(data-name (data-name I2taj&0£i | 
(or integer (or integer | 



I 



I 



(3d) 
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ID ENTRY 



r~ 




— r - 




- T- 




— T- 




"T 




— i 


1 

h 





i 


1 


I 

H 


2 


I 

-4- 


3 


|4- 
-4— 


•6 





|IC ICount |IC |Flag|Card 
| types | of fixed | level | byte jnumber 
I |position|^ I | 

| «03» | «05« |(3l) |^2) | 



CD ENTRY 



i 1 — I — 

I 0| 1 |2 



+H- 



13-5 



16 



| Variable 



-h 



■+- 



-t- 



|03|n|Level ^i Source card number | Switch|CD-name in 

| | | indicator G7)| I byte | EBCDIC 

I I I (hex) | | (25) | 



I Note: If bit is set to in the Switch byte, the following fields are also generated. 



i 1 r- t 1 • 1 1 1 1 i 1 

| Variable | Variable f Variable | Variablel Variablel Variablel Variable | Variable | | Variable | 
I 1 1 H 1 I 1 1 1 I 1 



| Data- | Data- 
I name- 1 | name- 2 
| (26) | (m 



-4 

| Data- 
in ame- 3 



-4 

| Data - 
J na me- 4 
I 6$\ 






I Data- | 
| name- 11 | 
I (26) | 



I Note ; If bit is set to 1 in the Switch byte, the following fields are also generated. 



i 1 i : — n " ■■■ ' i t 

| Variable | Variable | Variablel Variable | Variable | 

I -4 1 1 1 * 



(Variable 
H 



|Data- |Data- 
|name-1 | name -2 
I C8) I (26) 
i -^- i >-< 



| Data- I 
|name-3 | 

i ah i 

.J 2EL. U 



+ 

| Data- | Da ta- 
in ame- 4 | name- 5 

I © • @ 



CRITICAL PROGRAM BREAK 



10 
J— 



11 
4— 



|42|Type 

I I 

i i 



of 



break | 
I 



I® 



| (29) 



DESTINATION TABLE ENTRY: 



f 0-1 



jnumber 

lof 

| occurrences 

S 



"i % \ 

I Variable | Variable 



| number 
| of index 
| entries 

I 

-i 



| index- 
j name-1 

I 6V 



H — 

(index- 

|name-2 

I 

I 



INDEX-NAME FORMAT: 



r- 



I 



| Prefix 

f 

I 04 



T- 



| Variable 

H 



| EBCDIC for | 
jindex-name-n | 

I I 

-j 1 



• • 



(Variable | 

I -4 

| index- | 
| name -n | 

I (29) | 

i v -^ i 
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© 



© 



Code 






(hex) 




Meaninq 


01-31 


= 


Levels 01-49 


32 


= 


Level 77 


33 


= 


Level 88 


34 


= 


RD 


36 


= 


SD 


37 


= 


CD 


38 


= 


FD, or in Report 
Section , 




= 


Special RD elements 


39 


= 


L e v el 6 6 


Bits 


Code 





1 


= BLANK WHEN ZERO 


1 


1 


= JUSTIFIED 


2-4 


Type of VALUE Clause 



5-7 



© 



© 



1 

2-4 



000 = No clause 

001 = Alphanumeric literal 

01 = Numeric literal 

011 = Floating-point literal 

10 = Figurative constant or ALL 
10 1 = Figurative constant ZERO 
111 = Condition-name with 

multiple values 
Type of USAGE 





000 


= No clause 




0C1 


= DISPLAY 




010 


= COMPUTATIONAL 




011 


= COMPUTATIONAL- 1 




100 


= COMPUTATIONAL-2 




101 


= COMPUTATIONAL-3 




110 


= DISPLAY- ST 




111 


= INDEX 


Bits 


Code 





1 = 


OCCURS DEPENDING ON 


1 


1 = 


REDEFINES 


2 


1 = 


PICTURE 


3 


1 = 


COPY 


4 


1 = 


Internal REDEFINES 
(RD entry) 


5 


1 = 


S.nnnn description and 

therefore the PICTURE field 
contains the E.nnnn name 
from which the PICTURE 
information is to be 
extracted. 


6 


t = 


RENAMES data -name follows 


7 


1 = 


SYNCHRONIZED 


Bits 


Meaninq. if SYNCHRONIZED 



5 
6-7 



101 = SIGN is separate 

trailing 
111 = SIGN is separate 

leading 
If there is an OCCURS 
Unused 



© 
© 



© 
© 



Contains zeros if this value is a 
condition-name with multiple values. 
These values follow the LD entry. 

VALUE encoded like a figurative 
constant, literal, or ALL character in 
Procedure IC-text, except: for numeric 
literal, digits not packed but in EBCDIC 
format, with sign in zone of low-order 
digit. 

Note: This field contains zeros when 
the item is a condition-name that is 
part of a VALUE. .. THRU. . .clause. 



Zero if no REDEFINES clause. 



If there is an OCCURS DEPENDING ON 
clause, the field is a 16-bit number 
representing displacement from start 
of OD2TBL of entry for object of 
clause. 



b. 



(9) Bits 



Bits 
0-2 
3 

4 



If internal REDEFINES (RD entry), 
the field is a 16-bit number 
representing the displacement which 
added to the object gives address of 
REDEFINES subject. 

If neither, field is eight bits of 
zeros. 

Contents 

Zeros 

1 



= 



1 = 



= SYNC LEFT 

1 = SYNC RIGHT 
RENAMES THRU data-name 

follows 
001 = SIGN is overpunch 

trailing 
01 1 = SIGN is overpunch 

leading 



5-7 



Either value is upper limit 
of THRU range, or THRU was 
not specified. 
Value is lower limit of 
range; upper limit name 
follows. 
Value M eanin q 

Alphanumeric literal 
Numeric literal 
Floating-point literal 
Figurative constant or ALL 
Figurative constant ZERO 



001 


010 


011 


100 


101 
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1C) Bits 
0-3 
4 
5 
6 
7 

(n) Code 
w 22 

23 



Meaning 

Ze ros 

Unused 

1 - INDEXED BY 

1 = DESCENDING KEY 

1 = ASCENDING KEY 

Meanin g 

This name qualifies the name 
that follows. 

This is either a name without 
qualifiers, or it is the last 
(qualified) name in a strinq. 



© 



Bits Contents 

0-5 Unused 

6 1 = SAME RECORD AREA 

7 Unused 



(jj) £ii£ 



§.i£s Contents 

0-2 Unused 

3-6 Code Record F o rmat 

1000 F 

0100 V 

0010 U (invalid) 

0001 S 
7 1 = ASCII collatinq sequence 



ddname portion of system -name of file, 
padded with blanks, if necessary. 



© Bits 



® 



Bits 


Code 







1 = RANDOM ACCESS 


1-3 


Code 


Organization 




000 


SEQUENTIAL »S« 




001 


INDEXED 




010 


DIRECT with REWRITE f W f 




011 


DIRECT 'D« 




100 


RELATIVE 


4-6 


Reserved 


7 


1 = RESERVE ALTERNATE AREA 


Bits 


Meaning, if on 



© 



OPTIONAL in SELECT 

1 SAME AREA 

2 Unused 

3 SAME RECORD AREA 

4 SAME SORT AREA 

5 This entry contains pointer to 

CKPTBL 

6 This entry contains pointer to 

PIOTBL 

7 Word 'ALTERNATE 1 specified in 

RESERVE clause 



B its 
~ 

1 

2 
3-4 



5-6 



(ij) Bi 



Bits 
0-1 



2 
3 
4 
5 
6 
7 



B it s 
0-3 

4 

5 

6 

7 



Code 

1 = COPY 

Unused 

RECORD CONTAINS CHARACTERS 

BLOCK CONTAINS option 

00 = Not specified 

01 = RECORDS 

10 = CHARACTERS 
LABEL RECORDS option 

00 = Not specified 

01 = STANDARD 

10 = OMITTED 

11 = Data -name 

1 = REPORT clause 



Code 
TRACK AREA 

00 = Not specified 

01 = Data-name 
10 = Inteqer 

1 = RELATIVE KEY 
1 = NOMINAL KEY 
1 = ACTUAL KEY 
1 = RECORD KEY 
1 = WRITE ONLY 
FILE STATUS specified under 
SELECT 



Meaning, if on 

Unused (4 multiple files) 

RESERVE inteqer 

not in valid ranqe 
RECORD OVERFLOW 



Meaning, if on 

Unused 

CORE-INDEX 

REORG-CRITERIA 

ASCII file 

Unused 
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(2j) Bits 



© 



® 



© 



Bits 


Meaning, if on 





TOTALING AREA 


1 


TOTALED AREA 




(Unused after phase 1B) 


2 


Format F 


3 


Format V RECORDING MODE 


4 


Format U 


5 


Format S 


6-7 


Unused 



Either name containing size of TRACK 
AREA preceded by count-byte of 
character or 2-byte field giving 
integer TRACK AREA count, 

Sub field C ontents 

1 2-byte count of bytes in 

all the subfields that 
follow in this field. 

2 Name of highest level 

gualifier preceded by 
1-byte count of 
characters. 



n Name of lowest- level 

qualifier preceded by 
1-byte count of 
characters. 
n+1 Zero, to separate this 

field from the next. 
If the option is not specified, the 
field consists of one byte of zeros. 



Series of all label record-names, each 
preceded by a 1-byte count of 
characters. 
Bit M eaning 

1 = OUTPUT 

11= Variable entries follow 

2 1 = CD for INITIAL INPUT 

3 1 = Destination table specified 

Byte M eaning 

Count of bytes in the field that 

follows (c) 
1-c EBCDIC name of data-name-n 

If a data-name is not specified, the 
field will consist of one byte of 
zeros. 



Code 

(27) (hex ) Type of Break 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 
5 Report Section 
06 Procedure Division 
0E Communication Section 



FSEVAM 

Bit Meaning 

1 = 'AS 1 specified as 

organization parameter 

1 1 = no organization parameter 
2-4 ORGANIZATION clause 

2 RELATIVE 

3 INDEXED 

4 SEQUENTIAL 

5 ACCESS MODE DYNAMIC 

6 ALTERNATE RECORD KEY (S) 

7 PASSWORD specified 

LINESW 

Bit Meaning 

LINAGE clause specified 

1 FOOTING option specified 

2 TOP option specified 

3 BOTTOM option specified 

4 Object by LINAGE is data-name 

5 Object by FOOTING is data-name 

6 Object by TOP is data-name 

7 Object by BOTTOM is data-name 

If the field is a data-name, it will be 
preceded by a one-byte count field. If 
integer, the field will be eight bytes 
in length. If LINAGE clause or other 
three clauses are not specified, each 
unspecified field will be replaced by 
one byte of zero. 



© 



© 



Co de M eaning 

35 Level is ID 



Bit Meaning 

0-2 Unused 

3 1 = Another ID follows 

4 1 = PASSWORD specified 

5 1 = DUPLICATES specified 
6-7 Unused 
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AT F- TEXT 



Level |0 



-i — r — 

MI2 



01-49 fc h-f- 



|3-5 
H 



or 77 | 03 | n| Level |Card 
items | | | number | number 

i i® i 

I L— J 1 



|6-7 |8-9 



4- 



-h 



MO 



111 
-I— 



112-13 
H 



I 



| Flagl Maximum | Number J Number |Length of the| 

\ ^-^ | number of | of | of jitem in the | 

|(2) I occurrences I indexes I keys | object module j 



1 1 U- Va riable |*^ialiii.e ; rfari;iliW 
\ 



+ . 1 

| EBCDIC name| EBCDIC 
| of item fname of 

I ' loWjfcc* 

I © I 






j Variable 




1 ' W y ^l 



: j Partial 

i| dictionary| 
1 attributes! 



J 



(9 



Level 

88 

items 



10 

I— 



in 



|03|n| 
I I I 

1 UJ 
1 1© 



12 



13-5 



|X f 33 • 
I (Level 
I number) 
I 



ICard 
Inumber 



I Variable j Variable j 



H 

I EBCDIC 
jname of 
I item 

! :© 



H 

I Partial 
(dictionary 
I attributes 

1 © 



© 
© 



© 

© 



The maxmimum length of any element is 
204 bytes. 



The flag indicates the origin of the 
element, as follows: 

Bit Meanin g 

RENAMES. ..THRU clause 

1 Next element is an FD 

2 Next element is an SD 

3 Next element is an RD 

4 Conditional variable 

5 Data A-text follows 

6 VALTRD table entry 

7 VALGRP table entry 

8 ODO 

9 REDEFINES clause 

10 USAGE is not DISPLAY 

11 Item is or is in a LABEL record. 

12 Internal redefines 

13 RD 

14 RENAMES clause 

15 SYNCHRONIZED. 

The name is prefixed by a 1-byte count 
of its length. 

Either: 

1. A 1-byte length count followed by 
the objects of the REDEFINES 
clause, if flag bit 9 is on; or 



© 



© 
© 



3. 



A 1-byte length count followed by 
the object of the internal 
REDEFINES clause, if flag bit 12 is 
on ; or 

A 1-byte length count followed by 
the Report Section (RD) name, if 
flag bit 13 is on; or 
The field does not exist. 



Either: 

1. A 2-byte 0D2TBL table displacement 
if flag bit 8 is on; or 

2. A 2-byte internal redefines 
displacement, if flag bit 12 is on; 
or 

3. The field does not exist. 

The attributes are prefixed by a 1-byte 
count of their length 

Either: 

1. A 2-byte VALGRP table displacement 
if flag bit 7 is on; or 

2. A 2-byte VALTRU table displacement 
if flag bit 6 is on; or 

3. A 2-byte VALGRP table displacement 
followed by a 2-byte VALTRO table 
displacement if flag bits 6 and 7 
are on; or 

4. The field does not exist. 
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DATA A-TEXT 



DCB ADDRESS 



"on- 



14 

+ 



I — I 

|0 4| Relative address in [Number assigned from DCBCTR in COMMON! 
| I object module of DCB| I 

i 1 1 ! 1 



DECB ADDRESS 



"T 1 1 

| 5-6 | 7-8 f 



I 0|1-3 
I h 



I" 



g 08 1 Relative address in | Number assigned from DECBCT in COMMON |00 | s | 
| | object module of DECB| III 



BLOCK ADDRESS 



~1 1 1 

| 5-6 | 7-8 | 

H -I \ 



I 0|1-3 



|4 



I- — H 



+- 



•|0C|Relative address pointed |BL number -- first base locator number|00 | 
j | to by base locator j assigned to file from BLCTR in COMMON | j 

| (described in next field | II 

I I . 1 L. L- 



S | 



FIB ADDRESS 



— I 

0| 1-3 



I 



|4 



I h 



•+- 



j 14 j Relative address in |FIB number — File Information 
I j object module of | Block number assigned from 
I | File Information Block |AMICTR in COMMON 



COUNT INFORMATION 



I 0|1-3 
I h 



| 4|5-6|7 through 6 + c 



H h 

|00| 

I I 

I I 

x, I 



-f- 



1 20 | Relative address following 
j j Q- routines during Data-A-text 
j jprbcessing 



c jActual constant | 

| (COUNT table information) j 
I I 



WORKING-STORAGE SECTION ADDRESS 



~l 1 

|5-7 
H 



I 0|1-3 



|4 
-t— 



J 1 

|24|Relative address in |BL number — first base locator number assignedl s 

I | object module of jto Working-Storage Section from BLCTR in | 

| | Working-Storage Section | COMMON I 

I 1 , 1 . l~, 



CONSTANT DEFINITION 



i 1 — 

I 0|1- 



~i 1 — 

|5-6|7 

H h 



14 



through 6 + c 



|28|Relative address in| Type of | c |Actual constant. If ALL, | 
I jobject module where | constant! joccupies only first byte. | 
I | constant is located! (7) I (2) I (2) I 
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ADDRESS CONSTANT DEFINITION 



I 0|1-3 



14 



| 1 ,_ . 

| 2 C| Relative address in object 
| j module where address 
I | constant is located 



I-5-7 

+ 



I 



4— 

JSize, in bytes, | Relative address in | 
| of address J object module specified! 
| constant | by address constant | 



DELIMITER 



I 



|01 



©1 



Q-ROUTINE IDENTIFICATION 



I 0|1-2 



J34|GN number — generated procedure-name numberl 
| | assigned from GNCTR in COMMON | 



BL REFERENCE 



I 0|1-3 

I h 



|4 



1 38 1 Relative address from beginning | BL number 

| | of the program where dis- j number 

| | placement for base locator cell | 

I [described in next field is to J 

| | be placed I 



— base 



locator | 
t 



BLL REFERENCE 



— y— 
0| 1- 



H~ 






|3C|Relative address from beginning |BLL number 
| of the program where displace- |number 
I ment for base locator cell j 
[described in next field is to | 
j be placed I 
-j 1 



— base locator! 



© 



^) Code 

Jhsxl 

00 
01 
FF 



Meaning 
Binary 

Alphanumeric 
ALL constant 

or figurative 

constant 



© 



If the constant is an ALL constant, the 
format differs beginning with byte 5 
as follows, where d is the number of bytes 
reserved for the constant : 



|5-6|7|8 through 7 
I H+- 



+ c 



d |c| Value specified for the constant | 

i. i ; ; i 



(3) This element is written on SYSUT4 by phase! 51 if the SYMDMP or the STATE and OPT 

options are in effect. It identifies the end of Data A-text, DEF-text, and E-text 
and the beginning of Debug -text, which phase 63 writes on SYSUT4 for use by phase 65. 
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PROCEDURE IC-TE XT (PO FORMAT ) 



PROCEDURE-NAME DEFINITION 

r — i — i 

J 1 1 1 2 through 1 + c 



f— fH 1 

I 05 |c | Procedure-name in EBCDIC | 
i 1 i , 1 



QUALIFYING EBCDIC NAME 



| 0| 1 | 2 through 1 + c 



| 22 |c|User-assigned name in EBCDIC | 
| | | that qualifies procedure-name | 
I I I or data -name | 

i i — I I 

EBCDIC NAME 



i i — I b — ■ — 

| 0|1 | 2 through 1 + c 

4- — I-+ 



| 23 | c| User-assigned name in EBCDIC! 

I I L 1 

REPORT WRITER RECORD CONTAINING CODE OPTION 



i 1 1 

I 0| 1|2-6 

f 1 h 



| 24|05|60F0F0F0F1 or F2 | 
i t, . i 1 

EBCDIC DATA-NAME OF GIVING OPTION FOR USE 
ERROR DECLARATIVE 



i 1 — i 

I 0.1 1 |2 through 



1 + c 



4H- 



|25|c|Use assigned EBCDIC name that was | 
| | | object of GIVING option | 



GN'S FOR ERROR/LABEL DECLARATIVES 



0| 



-~ T 

1|2- 



|4-5 



J- I I 

|26|0A|GN number |GN number for 

| | | for STANDARD|file header 

I | | ERROR (T) | labels (T) 
i i i S-^_ i ^— ^ 



NUMERIC LITERAL 



13 

■4— 



I 



i 1 — i 

I 0| 1 |2 

I — h~h— < 

I 32 |n|Positions to | Positions to | 
j | | left of decimal | right of decimal | 

I U-J ; 1 1 



1 4 through 1 + n | 

k 1 

JLiteral in packed decimal format| 

i 1 



FLOATING-POINT LITERAL 



i I i 1 

I 0|1 |2-9 | 

I— I — I * 

1 33 |08|Literal represented as | 
| | | double-precision | 

| | | floating-point number | 



ALPHANUMERIC LITERAL 



T~ 



| 0|1 1 2 through 1 + c | 



H~ H-h 



H 



I 3ajc| Literal in EBCDICI 
"EXHIBIT NAMED" NAME 



-r 



| 0j1|2 through 1 + c 



|35|c|EBCDIC name used in EXHIBIT | 
| | I NAMED statement | 

i 1 — i 1 



LISTING A-TEXT FOR PROCEDURE-NAMES 



0|1|2 through 1 + c 



|37|c|EBCDIC procedure-name 

| | bit 6 of preceding field is 
| | set to 1 
- i. i. : 



16-7 
\ 



| 8-9 



H 

|GN number for| GN number for 
I file trailer | end- of- volume 
| labels (?) | labels (T) 



110-11 



|GN number for 
| labels (?) 



beg inning-of- volume I 
I 
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LISTING A-TEXT FOR VERBS 



I 



r — i — 

0|1|2 



through n 



-T 

in 
-f— 



+ 1 



I 1— f- 

| 371 n | EBCDIC verb | Alphabetic verb | 
| || | sequence number | 
i i — I 1 ; 1 



SPECIAL NAME 



i on 
«■ — t 



|55|Code (?) 



CRITICAL PROGRAM BREAK 
i 1 1 



|1 



j 42 | Break code 

L_ I ; 



<3 



VERB 



i on 



|44|Verb code(Y)| 



RELATIONAL CODE 



I 



— i — 

0|-1 



I- 1 

I 50 J06 

I I08 
I |0A 
! IOC 

L_J 



I 

1 

(hex) = Equal | 

= Greater than | 
= Less than | 
= Not equal | 



PARENTHESIS 
i— i 



| COBOL WORD 2 



I 0|1 
I h 



1 52 1 00 (hex) = Left parenthesis | 
I 101 = Right parenthesis! 



|2 



I 0| 1 

fr— H 1 1 

|57|Wordcode t | 

I I 0. I© I 



FIGURATIVE CONSTANT 

["on ~ — 
J — I f 

|75|EBCDIC value of figurativel 
| | constant | 

i 1 ;. _— — 1 



I 



STANDARD DATA-NAME REFERENCE 



i on 



i — i 1 

| 79 | 01 = LINE-COUNTER | 
| | 02 = PAGE-COUNTER | 
J | 05 = TALLY | 

i i. , i 



GENERATED PROCEDURE-NAME DEFINITION 



ARITHMETIC OPERATOR 
r— — t 



on 



| 53 | Operator 
i i 



code (jJ) 



I 0|1-2 



k— H 

|88|GN number — identifying number 
| | assigned to compiler-generated 
| | procedure- names from COMMON field 
| |GNCTR 

I L 



COBOL WORD 



on 



54|Word code 
I 



© 



"T ' 

\2 

H 

|Code (Phases 10 # 

land 1B only, not 

I passed on) 

I 

I 



12, 







GENERATED PROCEDURE-NAME REFERENCE 



i on -2 



|AA|GN number — identifying number 
I J assigned to compiler-generated 
I | procedure-names from COMMON field 
| IGNCTR 

i i 
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ERROR SYMBOL 
i 1 — i 

I 01-11 

-fef 



JB9<6) 



CARD NUMBER 



r— i 

I 0|1-3 

I 1 

I C1 | Source card number 

L i. 



© 



© 



If there is no GN for this purpose, the 
field contains zeros • 



Code 

(hex) Meaning 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of declaratives 

08 End of declaratives 

09 Start of debug packets 
0A Start of Q-Routines 

0B Start of Report Writer 

procedures 

0C End of Report Writer 

procedures 

0D End of segment 

0E Communication Section 

OF Date-Compiled entry 

F0 Security entry 

F1 Identification Division 

F2 Program -ID entry 

F3 Author entry 

F4 Environment Division 

F5 Configuration Section 

F6 Source-Computer entry 

F7 Object-Computer entry 

F8 Input-Output Section 

F9 File-Control entry 



© Verb Code List; 
type of verb. 



Code indicates the 



Code 



Meaning 





P0- and P1-text 


P2-text 


00 


ADD 


ADD 


01 


SUBTRACT 


SUBTRACT 


02 


MULTIPLY 


MULTIPLY 


03 


DIVIDE 


DIVIDE 


04 


COMPUTE 


EXPONENTIATE 


05 




STORE 


06 


END OF 

SENTENCE 


IF-EQ-NUMERIC 


07 


IF 


IF-NOTEQ- NUMERIC 


08 


ELSE 

(OTHERWISE) 


IF-GT-NUMERIC 


09 




IF-NOTGT-NUMERIC 


0A 




IF-LT-NUMERIC 


0B 




IF-NOTLT- NUMERIC 


OC 




IF- ALPHABETIC 


0D 




IF-NOT-ALPHABETIC 


0E 




IF-NUMERIC 


OF 




IF-NOT-NUMERIC 


10 


STOP 


STOP 


11 


GO 


GO 


12 




GO-DEPEND-FIRST 


13 




GO-DEPEND-MIDDLE 


14 




GO-DEPEND-LAST 


15 




EVAL 


16 




IF-EQ-NONNUM 


17 




IF-NOTEQ-NONNUM 


18 




IF-GT-NONNUM 


19 




IF-NOTGT-NONNUM 


1A 




IF-LT-NONNUM 


1B 




IF-NOTLT-NONNUM 


1C 


ALTER 


MOVE- 4 


1D 


MOVE 


MOVE 


1E 


EXAMINE 


EXAMINE 


1F 


TRANSFORM 


TRANSFORM 


20 


READ 


READ 


21 


OPEN 


OPEN 


22 


CLOSE 


CLOSE 


23 


WRITE 


WRITE 


24 


REWRITE 


REWRITE 


25 


ACCEPT 


ACCEPT 


26 


DISPLAY 


DISPLAY 


27 


EXHIBIT 


EXHIBIT 


28 


RESET 


RESET 
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Code 




Meanina 




57 

58 


REP OR T-^ 
REPORT- 


RETURN- 
RET0RN- 


•■,T,.\ 
■2 


REPORT-RETURN-1 




P0- and 


. P1-text 


P2-text 


REPORT-RETURN-2 


29 


READY 






READY 


59 


REPORT- 


-RETURN- 


-3 


REPORT-RETURN-3 


2A 


RETURN 






RETURN 


5A 


REPORT- 


-RETURN- 


-4 


REPORT- RETURN-4 


2B 


ON 






ON 


5B 


REPORT- 


■RETURN- 


-5 


REPORT-RETURN-5 


2C 


ENTRY 






ENTRY 


5C 


REPORT- 


-ORIGIN 




REPORT-ORIGIN 


2D 


CALL 






CALL 


5D 


REPORT- 


•REORIGIN 


REPORT- REORIGIN 


2E 


ENTER 








5E 


SEARCH 






Beginning of WHEN 


30 


CANCEL 






CANCEL 










in SEARCH ALL 


1 31 


USE (except 


UFD) 




5F 


SEARCH 


ALL 




End of WHEN in 


32 


EXIT 
















SEARCH ALL 


33 


REPORT- 


NOP 






60 








SET format- 1 


34 


GENERATE 






61 


SET 






SET format-2 


35 


TERMINATE 














(UP BY) 


36 


SORT 






SORT 


62 


See not 


e followin 


ig list 


37 


RELEASE 






RELEASE 


63 


SEEK 








38 


PERFORM 






GO-N-TIMES 


64 


START 






START 


39 








SUBSCRIPT 


65 


UNSTRING 




UNSTRING 


3A 


INITIAT 


E 






66 








IF EQUAL 


3B 


DEBUG (ON) 




DEBUG 










(index-name) 


3C 








START KEY 


67 








IF NOT EQUAL 


3D 








TRACE 










(index- name) 


3E 








EQUATE 


68 








IF GREATER 


3F 








MOVE-1 (Report 
Writer verb) 


69 








(index-name) 
IF NOT GREATER 


40 


INIT 






INIT 










(index-name) 


41 


INCRA 






INCRA 


6A 








IF LESS 


42 


STEP 






STEP 










(index-name) 


43 


UPDATE 






UPDATE 


6B 








IF NOT LESS 


44 








USE-ERROR 










(index-name) 


45 








ENDUSE-ERROR 


6D 








EQUATE in SEARCH 


46 








USE-LABELS 










ALL 


47 








ENDUSE-LABELS 


6E 








SET format-2 


I 48 








ACCEPT MESSAGE 










(DOWN BY) 


4A 








USE-REPORT 


6F 








GO TO 


4B 








ENDUSE-REPORT 










(Segmentation) 


4C 


Q-CALL 






Q-CALL 


70 








Segmentation 


4D 


Q-RETURN2 




Q-RETURN2 










initialization 


4E 


Q-RETURN3 




Q-RETURN3 










verb 


4F 


REPORT- 


CALL 




REPORT-CALL 


71 


READ (f 


or 




READ 


50 


REPORT- 


SAVE- 


-0 


REPORT-SAVE-0 




RERUN 


file) 




(for RERUN file) 


51 


REPORT- 


■SAVE- 


-1 


REPORT-SAVE-1 


72 


WRITE (for 




WRITE 


52 


REPORT- 


SAVE- 


•2 


REPORT-SAVE-2 




RERUN 


file) 




(for RERUN file) 


53 


REPORT- 


•SAVE- 


-3 


REPORT-SAVE-3 


73 


GOBACK 






GOBACK 


54 


REPORT- 


SAVE- 


-4 


REPORT-SAVE-4 


74 








EXIT program 


55 


REPORT- 


•SAVE- 


-5 


REPORT-SAVE-5 


75 


STRING 






STRING 


56 


REPORT- 


•RETURN-0 


REPORT-RETURN-0 
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Cod 


e 


Meaning 




© 


Code 
ihes 

00 


Special 

'\ W r\ m e» 






P0- and P1-text 


P2-text 
SETVLC 


76 


SETVLC 


1 Li o, m^. 

CSP 






(for RENAME 


(for RENAME 




01 


C01 






Q-Routine) 


Q-Routine) 




02 


C02 


77 






Flow trace 

(for source PN's 
only) 




03 
04 
05 


C03 
C04 
C05 


78 




RECEIVE 


RECEIVE 




06 


C06 


79 






OPEN (VSAM) 




07 


C07 


7A 






CLOSE (VSAM) 




08 


C08 


7B 






Subroutine test 
(for IF MESSAGE, 
STRING, and 
UNSTRING) 




09 
0A 
0B 
OC 


C09 
C10 
C11 
C12 


7C 




GNRPT 


GNRPT 




OD 


S01 






(for OPT) 


(for OPT) 




0E 


S02 


7D 




SEND 


SEND 




OF 


S03 


7E 






READ (VSAM) 




10 


S04 


7F 






WRITE (VSAM) 




11 


S05 


80 






REWRITE (VSAM) 




12 


PAGE 


81 






START (VSAM) 


© 






82 




DELETE (VSAM) 
DEBUG transfer 




Error Symbol When Used 


83 




DEBUG transfer 


COBOL word Reserved word used 






of control 


of control 




code invalidly. 


84 






QCALL2 

(for UNSTRING) 




CO 


(hex) Undefined or 

multiply-defined 


85 






UNSTRING header (PH45) 






symbol found. 


87 




MERGE 


MERGE 


© 






88 






COUNT 


COBOL Word Code: Number assicrned to 


8A 






UFD Debug verb 




identify a COBOL word. Note that in 


8D 




INSPECT 






phases 10, 12, and 1B of the compiler 


90 




USE FOR DEBUGGING 






listing, these words appear in 


91 




ENABLE 






alphabetical order according to length 


92 




DISABLE 






of 


the word in the COBOL word table 


93 






ACCEPT MESSAGE 




(COBWRD) • 


94 






End-of-UFD section 


Code 


word 


95 






RFRSEG 


01 




DATA 


96 






Debug subscript 
verb 


02 
03 
04 
05 




SKIP1 
SKIP2 
S KI P3 
EJECT 


Not 


.e: 


Code 62 indicates 


SEGMENT-LIMIT and 


06 




NSTD-REELS 


is 


use 


d for E-text only. 




07 

0A 

0C 




SUPPRESS 

ORGANIZATION 

CORE-INDEX 


© 


Cod 


e 




CD 




PROGRAM 


>w^ 


(hex) Operator 
00 Addition 




0E 
OF 




RF 
WRITE-ONLY 




01 


Subtraction 




10 




TOTALING 




02 
03 


Multiplication 
Division 




11 
12 




TOTALED 
COMMA 




04 


Exponentiation 




13 
14 
15 
16 
17 
18 




DECIMAL-POINT 

FILE-LIMIT(S) 

MODE 

RECORDING 

REEL 

SYSIN 
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Code 


Word 


48 


SORT-RETURN 


19 


SYSOUT 


49 


SEPARATE 


1A 


TRACK-AREA 


4A 


LEAVE 


1B 


MESSAGE 


4B 


REREAD 


1C 


TRACK-LIMIT 


4C 


DISP 


1D 


DELIMITED 


4D 


EXTENDED-SEARCH 


1E 


POINTER 


4E 


MASTER-INDEX 


1F 


OVERFLOW 


4F 


CYL-OVERFLOW 


20 


COUNT 


50 


THEN 


21 


DELIMITER 


51 


CYL-INDEX 


22 


TIME 


52 


WRITE-VERIFY 


23 


EGI 


53 


THAN 


24 


DATE 


54 


RECORD-OVERFLOW 


25 


REORG-CRITERIA 


55 


ALPHABETIC 


26 


DISPLAY 


56 


NUMERIC 


28 


RESET 


57 


POSITIVE 


29 


SEGMENT 


58 


NEGATIVE 


2A 


SUB-QUEUE-1 


5A 


END-OF-PAGE (EOP) 


2B 


ON 


5B 


CHARACTER 


2C 


SUB-QUEUE- 2 


5C 


NOT 


2D 


SUB-QUEUE-3 


5D 


AND 


| 2E 


INITIAL 


5E 


OR 


2F 


SYMBOLIC 


5F 


LIMIT (S) 


30 


CURRENCY . 


60 


TEXT 


31 


QUEUE 


61 


BEGINNING 


32 


INDEX 


62 


ENDING 


33 


STATUS 


63 


MORE- LABELS 


34 


MODULES 


64 


OUTPUT 


35 


MEMORY 


65 


LENGTH 


36 


WORDS 


66 


INPUT 


37 


SYNCHRONIZED (SYNC) 


67 


RANDOM 


38 


OFF 


68 


PROCESSING 


39 


RENAMES 


69 


BEFORE 


3A 


UP 


6A 


REPORTING 


3B 


DOWN 


6B 


1-0 


3C 


FILE (in Procedure Division and 


6C 


WITH 




after File Section header) 


6D 


REWIND 


3D 


OPTIONAL 


6E 


REVERSED 


3E 


REMAINDER 


6F 


INTO 


3F 


POSITION 


70 


AT 


40 


TAPE 


71 


INVALID 


41 


TRAILING 


72 


AFTER 


42 


ADDRESS 


73 


ADVANCING 


43 


ALPHANUMERIC 


74 


CBL 


44 


NUMBER 


75 


DEPTH 


45 


CURRENT-DATE 


76 


LOCK 


46 


TIMB-OF-DAY 


77 


SYSPUNCH 


| 47 


TERMINAL 


78 


CONSOLE 
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Code 


Word 


A5 


SECTION 




79 


ALL 


A6 


LABEL-RETURN 




7A 


CORRESPONDING (CORR) 


A7 


DIVISION 




7B 


TALLYING 


A8 


SORT-FILE-SIZE 




7C 


LEADING 


A9 


SORT-CORE-SIZE 




7D 


UNTIL 


AA 


SORT-MODE-SIZE 




7E 


REPLACING 


AB 


SIGN 




7F 


BY 


AC 


SORT (appears in Procedure 




80 


DESTINATION 




Division as verb with 36 


code) 


81 


GIVING 


AD 


MULTIPLE 




82 


ROUNDED 


AE 


EXCEPTION 




83 


SIZE 


AF 


FILLER 




84 


ERROR 


BO 


ESI 




85 


RUN 


B1 


ASSIGN 




86 


PROCEED 


B2 


ACCESS 




87 


THROUGH (THRU) 


B3 


EMI 




88 


VARYING 


B4 


RESERVE 




89 


USING 


B5 


NOMINAL 




8A 


COBOL 


B6 


ACTUAL 




8B 


DAY 


B7 


TABLE 




8C 


DESCENDING 


B8 


DYNAMIC 




8D 


ASCENDING 


B9 


Reserved 




8E 


TRACE 


BA 


SEQUENTIAL 




8F 


CHANGED I 


| BB 


DEBUGGING 




90 


NAMED 


BC 


INDEXED 




91 


LINKAGE 


BD 


SORT-MERGE 




92 


CHARACTER (S) 


BE 


ALTERNATE 




93 


TIMES 


BF 


AREA(S) 




94 


DEPENDING 


CO 


SORT-MESSAGE 




95 


LINE(S) 


C1 


RELOAD 




96 


FIRST I 


I C2 


RELATIVE 




97 


NEXT 


C3 


SEARCH 




98 


UPON 


C4 


TRACK(S) 




99 


PROCEDURE (in Procedure Division) 


C6 


PASSWORD 




9A 


EVERY 


C7 


PROTECTION 




9B 


TO 


C8 


LIBRARY 




9C 


IS, ARE 


C9 


EXTEND 




9D 


FROM 


CA 


VALUE (S) 




9E 


NO 


CB 


PRINT-SWITCH 




9F 


KEY 


CC 


BLOCK 




A0 


RETURN-CODE 


CD 


RECORD 




A1 


END 


CF 


RECORDS 




A2 


UNIT(S) 


DO 


CONTROL(S) 




A3 


FOR 


D1 


LABEL (S) 




A4 


IN, OF 


D3 
D4 
D5 
D6 
D7 
D8 
D9 


CONTAINS 

OMITTED 

STANDARD 

REPORT (S) 

REDEFINES 

PICTURE (PIC) 

BLANK 
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Code 
DA 


lord 
OCCURS 




DB 


JUSTIFIED (JUST) 




DC 


POSITIONING 




DD 


USAGE 




DE 


COMPUTATIONAL (COMP) 






COMPUTATIONAL- 4 (COMP- 


-4) 


DF 


COMPUTATIONAL-1 (COMP- 


-1) 


EO 


COMPUTATIONAL-2 (COMP- 


-2) 


El 


COMPUTATIONAL-3 (COMP- 


-3) 


E2 


WHEN 




E3 


RIGHT 




E4 


LEFT 




E5 


CODE 




E6 


PAGE 




E7 


FINAL 




I E8 


REMOVAL 




E9 


HEADING 




EA 


DETAIL (DE) 




EB 


LAST 




EC 


FOOTING 




I ED 


UPSI-0 through UPSI-7 




EE 


GROUP 




EF 


TYPE 




FO 


PLUS 




! F1 


LINAGE 




F2 


DISPLAY-ST 




F3 


RH 




F4 


PH 




I F5 


BOTTOM 




F6 


CH 




F7 


NOTE 




F8 


CF 




I F9 


TOP 




FA 


PF 




FB 


SENTENCE 




FC 


COLUMN 




FD 


INDICATE 




FE 


SOURCE 




FF 


SUM 




(T) Bits 



Meaninq 
FD, SD, RD 




1 


Paragraph word 




2 


Section word 




3 


Division word 





© 



4 Allowed in Environment Division 

5 Allowed in Data Division 

6 Allowed in Procedure Division 

7 Allowed in Identification 

Division 

COBOL WORD 2 

Code Word 
01 

02 BASIS 

03 ALSO 

04 REFERENCES 

05 PROCEDURES 

06 COLLATING 

07 SEQUENCE 

08 STANDARD- 1 

09 NATIVE 
0A CODE-SET 
0B DUPLICATES 
0C INSERT 

0D DEBUG-ITEM 

0E DEBUG-LINE 

OF DEBUG-NAME 

10 DEBUG-SUB-1 

11 DEBUG-SUB-2 

12 DEBUG-SUB-3 

13 DEBUG-CONTENTS 
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PROCEDURE IC -TEXT (P 1 FORMAT) 



PROCEDURE-NAME DEFINITION 



| 1 | 2 through 1+ c |2 + c 



PROCEDURE-NAME REFERENCE 

i 1 — I 

| 1 | 2 through 1 + c 



4~H 



|2 + c 



20 | c | Dictionary attributes j Priority 
I I of procedure- name | number if 

| | (see "Section 5. |not a 

I | Data Areas") MJ | section - 

| | Iname 



FILE-NAME REFERENCE 

r 1 — i 1 

I 0J1 | variable (9 to 16 bytes) | 
I — ^ ^ 



I 21 |n|Dictionary attributes of { 
| I | file (see "FD ENTRY" in | 
| | | "Section 5. Data Areas") M) 






'It Jn&ftft 



*^>vzt^Mmm 






jn *» 7 to n — 6 |n — S to n — *l | 



i 



PH number for 
file trailer 



|PN number for J 
lend -of -volume | 



{label (2j j label \2j | 



1 06 |c | Dictionary attributes | Priority 
| | of procedure-name |number if 

| | (see "Section 5. I not a 

| j Data Areas") Mj jsection- 

| | j name 

-4 1 1 



%\ « »i'i * ■»— "» ■.■.' i I f . m i.ii.... u rn .K.i.i n .,,,,.1 J 

\tW auaber for (Pointer to I 

h4<*i»iiincf ~«f ~ I aie.feion arv. ftrttirv I 



(begianiag~o£ 
volu»e label 



(dictionary ej 
J2y j for file f3l 



mm 



SD ELEMENT 









tlaMI.' (2) | 



— -i — i 

0|1|2-9 



I 



+-+ 



21 | n| Dictionary attributes for | 
| |SD (see "SD ENTRY" in | 

| | "Section 5. Data Areas") | 

— i — i j 



|10|11-12 
l fr- 



ill 
-J— 



1 to n + 1 | 



| 0|GN number! Dictionary | 

I I for Q | pointer | 

|(2a)| routines | | 



(2a) Bytes 10-12 are present only if the 
Q-bit is on. 



CD-NAME REFERENCE 

i 1 — i 

0| 1 | 2 through n 
I I 
-f-h 



In 
In 



- 1 to 
+ 1 



+ 



| 25 | n| Dictionary attributes | dictionary | 
| |of CD-name (see "CD | pointer 
| | ENTRY" in "Section 5. | 

_j i i 
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VSAM FILE-NAME REFERENCE 



26 



1 | 2 through 9 
H 



|10 
H 



! 

I 
* 

n | Dictionary attributes | Count of | 
| of file (see "FD |all GNs f or | 

|ENTRY" in "Section 5, IQ-routines | 
| Data Areas") |associated | 

| | with this | 

I I file | 

-j 1 , j 



I n - 1 to n + 1 



| Pointer to dictionary entry for 
litem (?) ... 



DATA-NAME REFERENCE IN KEY CLAUSE (VSAM 
FILES) 



11-12 



GN number 
string of 
Q-routine 



113-14 



I 



{ 

f or | GN number for | 

| STANDARD ERROR | 

GNs|declarative(2\| 



15-22 | 23-24 



+ 



Reserved | Pointer to dictionaryl 

I 



5ser 

(b 



I entry for file 



DATA-NAME REFERENCE 



| 0| 1 |2 to n - 5 or n 



-H+- 



| 30 |n (Dictionary attributes 
| | | ENTRY" in "Section 5. 
| | | Areas") Qij 



(see "LD| 
Data | 



in 



w\ 






1 


"■-T" 


^ — 








■ -'. T~ ' 




- 'i 


1 


0|1 


|2 


to 


n - 


-■ 6 


|n - 


-5 


1 


\r 


— H 


*— 








— — I 




i 



| 30 |n|Dictionary attributes! Count of | 
| | | (see "LD ENTRY" in | all GNs f or | 
| j j "Section 5-J3ata IQ-routines j 

| | |Areas") (T) j under item | 



in 



4 to n - 3 |n ^- 2 |n - 1 to n + 



h 



4- 



4- 



| First GN number | Index | Pointer to 



|in series of 
|all GN numbers 
| for Q-routines 
|under item 
i 



| ACB | dictionary 
| number | entry for 
I litem^ 

I I © 



NUMERIC LITERAL 



— i — i — 
1 1 | 2 



13 



I I I — 

| 32 | n| Positions 
| | | to left of 
| 1 | decimal 



+ 



| Positions | 

| to right of | 

| decimal | 

-j i 



1 

I 

j j 

| Literal in packed decimal format| 

L- ; ', _ — — ; 1 



1 4 through 1 + n 



mmBmmmm 







I under item 



f!iUSmMi 
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FLOATING-POINT LITERAL 



1 i i 

0| 1 | 2-9 



H H 



1 33 1 8 1 Literal represented as 
| | double-precision floating- 
| | point number 



LISTING A-TEXT FOR VERBS 



1 — i 1 -i 

1 1 12 through n |n + 1 | 

— +H 1 * 

37|n|EBCDIC verb alphabetic verb | 
J | jseguence number | 

J L L ■ J 



ALPHANUMERIC LITERAL 



I | 1 | 2 through 1 + c 
I h-4- 



|34Jc| Literal in EBCDIC | 
i j i j 



DATA NAME REFERENCE FOR OBJECT OF GIVING 
OPTION OF USE ERROR DECLARATIVE 



0(1 through n + 1 

— I 



38 | Same as "Data-name Reference" (30) | 
| element above | 



"EXHIBIT NAMED" NAME 



I 0| 1 | 2 through 1 + c 



I 35 |c | EBCDIC form of name used in | 
1 | (EXHIBIT NAMED statement | 



INDEX-NAME REFERENCE 



r i l r i 

I 0|1|2 | 3-4 (5-6 
I 1 UJ h 



1 36 |c|(5)tlndex-name| Length of | 
| | | | number jsubject | 



i 

|7-9 

I 

| Pointer to dictionary entry 

| for index-name 

i , 



LISTING A-TEXT FOR PROCEDURE-NAMES 



I | 1 | 2 through 1 + c 
1 — H+- 



| 37 |c | EBCDIC procedure name; the | 
I j (preceding field is set to 1 | 



"ALL" LITERAL LONGER THAN ONE CHARACTER 

i 1 — I — — i 

|0 J1|2 through c + 1 | 

I- — i — i ^ 

| 39 |c (Alphanumeric value following ALL | 

I L— I 1 



CRITICAL PROGRAM BREAK 



i on 
j — f 



| 42 | Break code (?)( 



VERB 



I 



on 
i * 

44 | Verb code.-. | 

( (see note(3)under PO-text) ( 

1 -T- 1 



RELATIONAL CODE 



0(1 



150(06 (hex) 
(08 
|0A 

L 



Egual 

Greater than| 
Less than 



PARENTHESIS 



•T" 



on 

+ 



52 1 00 (hex) 

101 

L 



Left parenthesis | 
Right parenthesisj 
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ARITHMETIC OPERATOR 



I 0|1 



I-— H p^H 

| 53 (Operator code (T) | 



GENERATED PROCEDURE- NAME DEFINITION 



| 0|1-2 
k h 



| COBOL WORD 



i 1 — 

« on 



J88JGN number -- identifying number | 
| (assigned to compiler-generated | 
| | procedure- names from COMMON field j 
J |GNCTR { 

i i , , ' 1 



GENERATED PROCEDURE- NAME REFERENCE 



| 54 1 Word code / _^ I 

| | (see note(7)under PO-text) | 



I- 0|1-2 



I 



t V 



A 



SPECIAL NAMES 



i on 
i — h 



i 



| 55 | Code | 
I I © I 



NFILES 



|AA|GN number identifying number | 

| (assigned to compiler-generated | 
j | procedure-names from COMMON fieldj 
| (GNCTR ( 

t 1 1 

ERROR SYMBOL 

I T— 1 

i on i 

|B9<8J| 

i L J 



I ! ' 1 

i on i 

i — i — \ 

(56|Number of files in USING ( 

L I . I 



COBOL WORD 2 



CARD NUMBER 



I 0|1-3 
f 1 



r 



-r 



|0 | 

I- h 



(C1 (Source card number 

! .'! © 



J 57 (Word code 

J ( (see note(9)under 

J (PC-text) 



FIGURATIVE CONSTANT 

I ! , 

I 0(1 ( 

f 1 1 

(75 (EBCDIC value of ( 

| (figurative constant ( 



STANDARD DATA-NAME REFERENCE 
I 0(1 

I — I 



,0 



| 79 | 01 (hex) = LINE-COUNTER ( 
| |02 = PAGE-COUNTER | 

| (05 = TALLY | 



1) Dictionary attributes, without count and 
major code fields. 

f2J These fields appear only if the 

file-name reference is an operand in an 
OPEN statement. When a GN is not 
generated, the field contains zeros. 

Qf) Pointer contents: 

Bits Contents 

0-1 Unused 

2-14 Dictionary section number 

15-23 Displacement in section 

MM Dictionary attributes with two fields 
removed. Bits 1-4 of the flag byte 
field overlay bits 1-4 of level number. 
Bits 5-8 overlay count field preceding 
major code field. In the level number 
field, if bit 5 is on, the level is 01 ; 
if bit 6 is on, the level is 77. 
Otherwise, the bits are off. 

In addition, the subfield of zeros 
starting at the tenth bit of the 
characteristics field is deleted for 
alphanumeric items and elementary items 
with either report or sterling report 
pictures. 
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In the case of data-name references to 
special registers , the addressing 
parameters field of the dictionary 
attributes contains an ID number 
according to the following schedule: 



procedures 

OC End of Report Writer 

procedures 



© 



© 



ID 

FFC000-FF0007 

FF0008 

FF0009 

FF000B 

FF000C 

FF000D 

FF000E 

FF000F 

FF0010 

FF0011 

FF0012 

FF0013 

FF0014 

FF0015 



S pecial Registe r 

UPSI 

CURRENT-DATE 

TIME-OF-DAY 

SORT- RETURN 

SORT-CORE-SIZE 

SORT-FILE-SIZE 

SORT- MODE-SIZE 

LABEL-RETURN 

RETURN-CODE 

SORT-MESSAGE 

DAY 

TIME 

DATE 

WHEN-COMPILED 



Bits Contents 

If 1, subject has variable 

length; bytes 5-6 contain 

VLC number . 

1-3 Unused 

4-7 1111 

Code 

(hex) Meanin g 

01 Data Division 

02 File Section 

03 Working-Storage Section 

04 Linkage Section 

05 Report Section 

06 Procedure Division 

07 Start of declaratives 

08 End of declaratives 

09 Start of debug packets 
0A Start of Q-Routines 

0B Start of Report Writer 





0D 


End of segment 




0E 


Communication Section 




OF 


Date-Compiled entry 




F0 


Security entry 




F1 


Identification Division 




F2 


Program-ID entry 




F3 


Author entry 




F4 


Environment Division 




F5 


Configuration Section 




F6 , 


Source-Computer entry 




F7 


Object-Computer entry 




F8 


Input-Output Section 




F9 


File-Control entry 




FA 


I-O-Control entry 




FB 


Special-Names Section 




FC 


Date-Written entry 




FD 


Installation entry 




FE 


Remarks entry 


© 


Code 






Jhexl 


Operator 




00 


Addition 




01 


Subtraction 




02 


Multiplication 




03 


Division 




04 


Exponentiation 


I 


07 


Unary minus 


© 


Error 


Symbol When Used 


COBOL 


word Reserved word used 




numt 


er invalidly. 




00 (h€ 


jx) Undefined or 

multiply -defined 
symbol found. 


© 


Bit 


in byte 




1 is on for a 




verb. 
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I PROCEDURE P1A-TEXT 

IP1-A text is identical to P1-text with the 
following exceptions: 



© 



Additional verb codes: 
83 DEBUG transfer of control 
8A USE FOR DEBUGGING debug verb 
96 Debug subscript verb 



'0 



Procedure-name Reference 



r t 




i 


i 


I 0| 


1 


1 2-3 


1 


f 1— 




1 


- 1 



| Priority number |PN number 
DO | of segment in jidentifying 
Iwhich PN is 



j located 

I 

I 

I 



Jseguential number 
|of source pro- 
jcedure name 
lassigned from 
IPNCTR in COMMON 
j 
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CEDURE IC-TEXT (P2 FORMAT) 



e: The code byte of Procedure IC-text (P2 Format) is used to determine the length of the item: 

For codes less than 40, the length is in the next byte. 

For codes 40 through 7F, the length is two bytes* 

For codes 80 through BF, the length is three bytes. 

For codes CO through FA, the length is four bytes except for code F9 whose length is three 

bytes. 



.E-NAME REFERENCE 



1 — r 



i»iiiii V'V iiii!ii! ( iiii i i i w n .i n i n i n i n ii I i n «i n 






In -11 to a - 10^1 



| i 1 1 Variable (9 to 16 bytes) 
I H+- 








1 21 1 nj Dictionary attributes of file 
I | | (see »FD ENTRY" in "Section 5. 
| | | Data Areas") m) 



ill SH» for ISMbef of 6» \m nsaber 

: ja»*<Kd&«* I for string M |S»80*BI* 

" v ~ JQ-Boutiiie G»s f d4&caaratlv« 

~..;.; : ,i : .i'niin -"t • ;..,■■■; ,,, .i : — .■;,.„;„„„;.&, 




- 5 to 8 • » js »3 to a - 2 



. PSPfP^^^3 

wu\\^uv \ miimww«m«<m- imrnu > \ i im m ^ m i ' , ,| iii fl i i i ^r i mmi i n i r i, ; , ^ 



Ni£ : : ; i ; l «&$-o£ - v&lu ae 



i2. 



~f 



RB INFORMATION 



T" 



0| 1|2 through 1 + c 
4— h 



24|c|Follows verb string for EXAMINE, TRANSFORM, EVAL, ADD, SUBTRACT, MULTIPLY, DIVIDE, USE,| 
t | UNSTRING, and DEBUG, | 

1— J , i 



RB INFORMATION (VSAM) 



0| 1 12 

4 h 



13 
4- 



4- 



15-7 



I 



4- 



H 



24|c |0 ACB | Execution-time|Compile-time| Dictionary pointer to| 
i(3e)|number| information jinformation IRECORD KEY ^^ 1 

l^-^l (3f) | (3B) | (3c) Idataname (3d) | 



NAME REFERENCE 



ni — r 



| 1 | 2 through n 
4-4- 



|n-1 to n+1 
4 



25 | c | Dictionary attributes of CD-name | Dictionary 
| | (see "CD ENTRY" in "Section 5. Ipointer 

l | Data Areas") | 

L I. , 1 
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?SAM FILE-NAME REFERENCE 



i 1 1 

| 0| 1 1 2 through 9 



|10 



I 



I 1 +- 



4- 



4 



1 26 1 n | Dictionary attributes of | Count of all GNs for | 
I j jfile (see "FD ENTRY" in |Q-routines associated! 
| pa)} "Section 5. Data Areas") |with this file | 

i iVtj , 1 j 



n r 

115-22 | 23-24 



111-12 
j 



| 13-14 

H 



4- 



4- 



|GN number forJGN number for | Reserved | Pointer to dictionaryl 
| string of JSTANDARD ERRQRI |entry for file | 
IQ-routine GNs| declarative (2) |(2j | I 
1 . 1 jr^Li_^_ i i 



DATA-NAME INFORMATION FOR UNSTRING 
1 1 — r 1 1 1 



on 
— «- 



2A|n 
I 
I 
I 



I 3-5 
H 



Type I Length 
flag I 



6-9 



I 



10-11 



Ilfll 



4- 



4 1 






I 



H 



Base code| Displacement |.H lift tar of digits f Scaling 

I i to right of J factor | 

^ I ._ jaecimal point I >. i 

© ! © ■ ! (b i ® ! 



Note: If bits 4-7 of the Type flag indicate an edited data item, the following fields are also 
generated. 



I I 1 I 2-4 



17 



n + 1 



|2A|n|Size of |BLANK WHEN |Number of | Edit mask 

I | | data Item | ZERO indicator | bytes in | (PICTURE clause for 

III (To) | (rj) |edit mask|data item) 



DATA-NAME REFERENCE 



— 1 — r 

| 1 1 2 to n - 5 



or 



n - 2 



In 



|n - 3 to n 



4-4- 



H 

| Count of all GNs 
| for Q-Routines 
| under item 
I 



|n - 1 to n + 1 

4— 

| Pointer to 

| dictionary^entr 

| for item (Y) 



30 j n| Dictionary attributes of 
| | data-name (see "LD ENTRY" 
J | in "Section 5^ Data 
| | Areas") 

1 — i 



-& 



|First GN number in 
| series of all GN 
Inumbers for Q-Routines 
lander item 
.j 



DATA-NAME REFERENCE FOR KEY CLAUSE 
! 1 — r '■ 1 



| 1 | 2 to n - 6 or n 



4-4- 



|n 
4— 



|n - 3 to n 

H 



In 
4— 



2 |n - 1 to n + 1 



4- 



H 



30 | n| Dictionary attributes of | Count of all GNsJFirst GN number in | Index | Pointer to 

| j data- name (see "LD ENTRY" |f or Q-routines | series of all GN | ACB | dictionary entry | 

| | in "Section 5. Data j under item j numbers for | number | for item | 

| | Areas") (12) | IQ-routines under | | (5\ | 



i 1 

-J L- 



I 



I item 



I 



SUBSCRIPTED DATA-NAME REFERENCE 



1 t — r 

I 0| 1 J 2 through n - 2 

I— 4-4 

|31 i n| Dictionary attributes of subscripted data-name | Pointer^to dictionary entry 



|n - 1 to n + 1 
4- 



I 



| | (see "LD ENTRY" in Appendix D) 



pted da- 



i 



■© 
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NUMERIC LITERAL (DECIMAL) 



I 0|1|2 

I ^—j. 

|32|n|Positions to the left| Positions to the right | Literal in packed decimal| 
| I I of decimal | of decimal (format | 

I I, A I I I 



|3 
H— 



1 1 4 through 1 + n 
H 



FLOATING-POINT LITERAL 



i 1 1 1 

I 0|1 |2-9 I 

I — I — 1 1 

1 33 1 08 ILiteral represented as double-precision floating-point number | 

i i. J : 1 



ALPHANUMERIC LITERAL 

i 1 — I 1 

I 1 1 | 2 through 1 + c | 

I hH 1 

1 34 1 c | Literal in EBCDIC| 

I I ! I 



"EXHIBIT NAMED" NAME 



| | 1 | 2 through 1 + c 
I 1— I- 



|35|c | EBCDIC form of name used in EXHIBIT NAMED statement | 
-i t .. i 



INDEX-NAME REFERENCE 



i 1 — r 1 

| 0|112 13-4 
J 11 l ^-J 



| 5-6 

+ 



J7-9 



{10*11 
+ 



|36|nl(l4)jIndex-name|Length of | Pointer to dictionary { Value in binary of 

1 | J | number J subject j entry for item [integer specified in 

I I ] I | (14) | (3) irelative indexing clause 



S§) 1 



LISTING A-TEXT FOR PROCEDURE- NAMES 



1 1 — r ■ ! 

I 0| 1 | 2 through 1 + c 

I fr-H 

|37|c|EBCDIC procedure name; the 
| | | preceding bit is set to 1 



LISTING A-TEXT FOR VERBS 



1 1 — « — 1 

| 0| 1 | 2 through n |n + 1 



I H- 



+ 



I 



H 



|37|n|EBCDIC verb ^Alphabetic verb | 
| j j | sequence number | 

1 a — a. a 1 



MULTIPLE GN REFERENCE 

i oi 112-3 i 

« — 1 — -1 1— 

|38|04|GN numberl 



I 4-5 



I GN numberl 

-j 1 
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FIGURATIVE CONSTANT "ALL" (Greater than 1 
character) 

i r— i 

I 0|1 | Variable 

I |-H 

I 39 1 c| Alphanumeric literal following 

| | | ALL 

t. ■ l i .; 



| SPECIAL NAMES 



10 | 1 | 

k 1 — I 

|55|Code -^ -. | 

I | (See Note (5) | 
| (under PO-text) | 



CRITICAL PROGRAM BREAK 



on 

4 



| 42 | Break code (16) | 

L I i -T- I 

PHASE 4 OPTIMIZATION INFORMATION 

i 1 1 

i on i 



|43|Type code 
i i 



& 



RELATIONAL CODE 



i on 
i — h 



| 50 |06 (hex)= Equal 



|08 
|0A 
|0C 



I I 



Greater than| 
Less than j 
Not less | 

than | 



COBOL WORD 



0|1 



I h 



j 54 | Word code (See note(7)under| 
| | PO-text) I 



COBOL WORD 2 



NFILES 



i 1 1 

10 1 1 | 

I — K — — I 

J 57 1 word code^. \ 
| 1 (See note(V) | 
I | under PO-text) | 



10 |1 
I h 



| 56 | Number of files in USING 

i i 



FIGURATIVE CONSTANT 



i on i 

*— H » 

I 75 1 EBCDIC value of figurative constant | 



STANDARD NAME REFERENCE 



I 0|1 



I 1 1 

| 79 | 01 (hex) = LINE-COUNTER | 
| | 02 = PAGE-COtiNTER | 
| | 05 = TALLY | 

i i . i 



VERB 



r — i — 

i on 



12 



i 



J \ -^r Y 1 

|84|Verb code (see no teQ3^ under PC-text) | Count of elements that follow | 
|j j for this statement | 



GENERATED PROCEDURE- NAME DEFINITION 



r 



T 



I 0|1-2 



I 1 1 

|88|GN number --identifying number assigned to compiler-generated | 
I j procedure-names from COMMON field GNCTR I 

i i , i ,i ' 



GENERATED PROCEDURE-NAME REFERENCE 



, , __* j 

I 0|1-2 I 

*■ 1 1 

|AA|GN number -- identifying number assigned to compiler-generated j 
I jprocedure-names from COMMON field GNCTR j 
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INTERMEDIATE RESULT REFERENCE 



l 1 : : 

10 |1-2 

| 1 

|BA|IR number -- identifying number assigned to intermediate result 



NUMERIC LITERAL (BINARY) 

r— t 

I 0|1-2 
1 1- 



|BB| Literal in binary format | 

i i 1 



TEMPORARY RESULT REFERENCE 



r r 



1 0|1-2 | 

I 1 1 

|BC|TR number | 

I L J 



CARD NUMBER 



i 1 1 

I 0|1-3 | 



| C1 1 Source card number (18) | 
i 1 ,i 



CARD NUMBER AS OPERAND OF FLOW VERB 

i oii-3 i 

t— i -— -i 

| C2 | Source card number | 

i , i '. ; j 



PROCEDURE-NAME DEFINITION 

I 011 I2-3 i 

I 1 h . — , , , 

| C7 | Priority | PN number, — identifying sequential number of source I 
| Inumber | procedure- name, assigned from COMMON field PNCTR | 

1 I I ; : 1 



FILE-NAME REFERENCE 



I. 0|1-3 



|C8 JDictionary pointer | 

i 1 1 



VARIABLE PROCEDURE-NAME DEFINITION 



r - t 1 : 

| 0|1 | 2-3 

I- — I 1 

I C9 | Priority number of | VN number — identifying number assigned to compiler-generated 
| fsegment in which | variable procedure-names from COMMON field VNCTR 
I |VN is located | 

i i i i 
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PROCEDURE-NAME REFERENCE 



r 1 — 

i on 



-1 

J2-3 



I 



+ 



■+- 



H 



| DO | Priority number of|PN number — identifying sequential number of| 
1 | segment in which j source procedure-name, assigned from COMMON | 
| |PN is located | field PNCTR | 
i i i , 1 



PROCEDURE-NAME REFERENCE FOR XREF 



I 0|1 



| 2-3 



I 



I h 



H- 



~f 



I D4| Priority number of|PN number — identifying sequential number of| 
l^^fsegment in which | source procedure-name, assigned from COMMON | 
|(19)| PN is located | field PNCTR. | 

1 1 1 f 



VARIABLE PROCEDURE-NAME REFERENCE 



I 0|1 
»- h 



12-3 



|DB|Priority number of|VN number — identifying number assigned to compiler-generated 
I J segment in which | variable procedure-names from COMMON field VNCTR 
J |VN is located | 

L 1 L-, 



GLOBAL TABLE REFERENCE (TYPE 1) 



i on 

f — i 

|F9|Cell code for Task Global Table 

1 i 



|2 



(20) | Displacement in bytes from start of cell J 



GLOBAL TABLE REFERENCE (TYPE 2) 



"i 1 

|2-3| 



i on 



|FA|Cell code for Task or Program Global Table 61) |(52) | 



© 



® 



During phase 4 OPEN and CLOSE verb 
analysis, byte 2 (count and major code 
field) of the file-name reference 
element is changed to one of the 
following: 



Bits 
0-3 



4-7 



Meaning, Meaning, 



Contents 


if OPEN 


if CLOSE 


0011 


LEAVE 


NO REWIND 


0001 


REREAD 


Default 
(REWIND) 


0000 


DISP 


Unused 


1000 




REEL 


Contents 


Meaninq 




0000 


OPEN INPUT 




or CLOSED 


1111 


OUTPUT 




0001 


INPUT REVERSED 







These fields appear only if the 
file-name reference is an operand in an 
OPEN or SORT statement. When a GN is 
not generated, the field contains zeros 






Pointer contents: 



Bits Contents 

0-1 Unused 

2-14 Dictionary section number 

15-23 Displacement in section 

For VSAM READ, C = 6 

Bit Meaninq 
= SEQUENTIAL ACCESS or READ 
NEXT with DYNAMIC ACCESS 
1 = RANDOM or DYNAMIC ACCESS 
1-7 Unused 

Meaninq 

= No duplicate string follows 

1 = Duplicate string follows 

(READ INTO with MOVE only) 
.1-7 Unused 



@ lit 



d) This field is used only for a READ verb 
with a KEY clause 
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Count field = 6 for READ verb, 
otherwise = 3 

(3f) For START with KEY dataname clause, 
field = ACB#, otherwise = C 



© 



© 



Bits Code 


Meaning 


0-1 00 


Delimiter field 


01 


Receiving field 


10 


Delimiter- in field 


11 


Count-in field 


2-3 00 


Unused 


4-7 0000 


Variable-length group 


0001 


Alphanumeric 


0010 


Alphanumeric* right- 




justified 


0011 


Alphanumeric edited 


0100 


Alphanumeric edited. 




right- justified 


0101 


Numeric edited 


0110 


External decimal. 




unsigned 


011 1 


External decimal with 




trailing overpunch 


1000 


External decimal with 




leading overpunch 


1001 


External decimal with 




trailing separate sign 


1010 


External decimal with 




leading separate sign 


1011 


Binary 


1100 


Internal decimal, 




unsigned 


1101 


Internal decimal, 




signed 



(¥) The scaling factor represents the 

number of Ps to the left of the decimal 
point in a scaled integer. This field 
is present only for a receiving or 
delimiter- in field. 



Qo) This field contains the total size of 
the data item, including all editing 
characters and decimal positions. 



© 
© 



© 



© 



If bits 4-7 of the Type flag are set to 
0000, this field contains the VLC 
number. For all other codes, the field 
contains the SIZE, or length of the 
complete data item to be moved. 



Byte 


Contents 




1 


Base code 






X'OC 9 - 


BL 




X"14« - 


SBL 




X»28« - 


BLL 


2 


X'01* 




3-4 


BL number 





This field is set to zeros for a 
subscripted data item. 



This field is set to zeros for a 
subscripted data item. Otherwise it 
contains the displacement of the data 
item from the BL . 



(IT) This field contains the number of 

actual digits to the right of a real or 
assumed decimal point. It is present 
only for a receiving or delimiter-in 
field. If this field is present, the 
scaling factor is set to zero. 



© 



This field is set to X 8 FF 9 when the 
data item contained a BLANK WHEN ZERO 
clause; otherwise, it is sex to X'00 5 a 

Dictionary attributes with two fields 
removed. Bits 1-4 of the flag byte 
field overlay bits 1-4 of level number. 
Bits 5-8 overlay the count field 
preceding major code field. In the 
level number field, if bit 5 is on, the 
level is 01; if bit 6 is on, the level 
is 77, Otherwise, the bits are off. 

In addition, the subfield of zeros 
starting at the tenth bit of the 
characteristics field is deleted for 
alphanumeric edited items and 
elementary items with report or 
sterling report pictures. 

In the case of data-name references to 
special registers, the addressing 
parameters field of the dictionary 
attribtues contains an ID number 
according to the following schedule: 



ID 

FF0000-FFC007 

FF0008 

FF0009 

FF000B 

FF000C 

FF000D 

FF000E 

FF000F 

FF0010 

FF0011 

FF0012 

FF0013 

FF0015 



Special Registe r 

UPSI-0 through OPSI-7 

CURRENT-DATE 

TIME-OF-DAY 

SORT-RETURN 

SORT-CORE-SIZE 

SORT-FILE-SIZE 

SORT-MODE-SIZE 

LABEL-RETURN 

RETURN-CODE 

DATE 

DAY 

TIME 

WHEN-COMPILED 



If this data-name reference contains a 
subscript or index address calculation 
ID number, the high-order bit is on, 
bits 1-7 contain zeros, and bits 8-23 
contain the ID number. The high-order 
bit is turned on by phase 4 when it 
assigns the ID number. 

Addressing parameters field in 
attributes has been replaced by unique 
subscript identifier element to match 
entry in DEFSBS table. 

Contents of byte 2: 
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Bit Conten ts 

= Bytes 5-6 contain fixed 

length of subject. 
1 = Subject has variable 

length; bytes 5-6 contain 
VLC number. 

For a relative indexing clause, phase 4 
adds this field to the element. Phase 
50 recognizes the presence of this 
field from the number of bytes given in 
byte 1 of the element. 



18) Bit in byte 1 is on for a verb. 



k 19J Used to write an XREF element for 

procedure-name B in the following cases: 

• PERFORM A THRU B. 

• ALTER A TO PROCEED TO B. 



Code 

01 
02 
03 
04 
05 
06 
07 
08 
09 
0A 
0B 

0C 

0D 
0E 
OF 
F0 
F1 
F2 
F3 
F4 
F5 
F6 
F7 

Code 

F8 

F9 

FA 

FB 

FC 

FD 

FE 

Code 
ihexl 

02 



04 



5 



Meaning 
Data Division 
File Section 
Working-Storage Section 
Linkage Section 
Report Section 
Procedure Division 
Start of declaratives 
End of declaratives 
Start of debug packets 
Start of Q-Routines 
Start of Report Writer 

procedures 
End of Report Writer 

procedures 
End of segment 
Communication Section 
Date-Compiled entry 
Security entry 
Identification Division 
Program-ID entry 
Author entry 
Environment Division 
Configuration Section 
Source-Computer entry 
Object-Computer entry 

Meanin g 

Input-Output Section 
File-Control entry 
I-O-Control entry 
Special-Names Section 
Date-Written entry 
Installation entry 
Remarks entry 



Meaning 

Precedes a Procedure-name 
definition element equated to a 
VN for an ALTER verb 

Precedes a Variable 
procedure- name reference 
element at a PERFORM verb exit 

Precedes a Generated 
procedure-name definition 
element at the returning point 
of a performed procedure 



® 



© 



• A. 


GO TO B. (wh< 


are A i: 


Code 






(hex) 


Meaning 




02 


SAVE AREA 




04 


SWITCH 




06 


Unused 




08 


DEBUG 




Code 






(hex), 


Meaning 




00 


DCBADR 




04 


VLC 




08 


ONCTL 




OC 


PFMCTL 




10 


PFMSAV 




14 


DECBADR 




18 


XSA 




1C 


PARAM 




1D 


Single- precision 




floating- 


-point 


1E 


Double- precision 




floating 


-point 


20 


WORKING CELLS 


24 


Temporary 


storage 


28 


XSASW 




2C 


BL, SBL, BLL 


30 


VIRTUAL 




34 


FIB 





Except when the code for the preceding 
field 11 is 2C, 1D, or 1E, this field 
contains the identifying number from 
one of the COMMON counters as described 
in "Section 5. Data Areas." When the 
preceding field is 2C, this field 
contains the i and k fields of the 
addressing parameters, as follows: 



Bits 


Field 


Value 


Meaning 


0-3 


i 


0000 


BL 






0001 


BLL 






0100 


SBL 


4-7 


- 


0000 


Unused 


8-15 


k 


Base 


locator number 






assigned from 






corresponding 






COMMON counter. 



When the code for the preceding field 
is 1D or 1E, this field contains zeros. 
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ATM-TEXT 



ATM-text is a subset of Procedure IC-text 
(P2 fofmat) . It may contain all elements 
of P2-text except the following: 

Code Element Name 

21 FILE-HAM*. -REFERENCE 

24 VERB INFORMATION 

33 FLOATING-POINT LITERAL 

35 "EXHIBIT NAMED" NAME 



BA INTERMEDIATE RESULT REFERENCE 

BC TEMPORARY RESULT REFERENCE 

C9 VARIABLE PROCEDURE-NAME DEFINITION 

DO PROCEDURE-NAME REFERENCE 

D4 PROCEDURE-NAME REFERENCE FOR XREF 

DB VARIABLE PROCEDURE-NAME REFERENCE 

F9 GLOBAL TABLE REFERENCE (TYPE 1) 



For the formats of ATM-text elements, 
see the formats under "Procedure IC-text 
(P2 Format) ." 
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PROCEDURE A-TEXT 



PN AND GN DBFS AND PROGRAM BREAKS 

i i — i ~ 1 

I 0|1|2 i 

j i-H ... j 

|27|n|24, C7, or 88 elements! 
i i — 1_ . 1 

MISCELLANEOUS A-TEXT 

r 1 — s — : : 1 

I 0|1|2 I 

h — hH 1 

| 28| n| All elements except 24, C7, 88 | 
| | | (see 27) and 00 (see 29) | 

i s — i : — — . 1 



MACRO-TYPE INSTRUCTION 



E-TEXT 



[ 0|1|2 | 

^ i 1 — i 

| 29 | n i 00 elements! 
i i i i 



r— i 

I Oil 

|_ | 

| 44 |Type^Code 
I t ® 



12 



IPriority number if 
jtype code is 4C 



OPERATION CODE 



0|1 



I 



«— -i i 

|48|Machine operation code. | 
| |00 (hex) used for CNOP | 

i 1 1 



12 
ir 



I Value of second instruction 
|byte: condition code, length, 
| register, or immediate field (la) 

. t ; : 



CARD NUMBER 



t j — . — — , 

I 0|1-3 | 

*— 1 7=x| 

| 2C| Source card number (1)j 
i i Vi 



SOURCE PROCEDURE-NAME DEFINITION 

| T r ^. 1 

I 0| 1 |2-3 i 

f— H^H 1 

|30|(2JJPN number -- number assigned! 
| J^-^Jfrom PNCTR in COMMON ! 



PROCEDURE-NAME REFERENCE 



0| 1 |2-3 



4- 



4C|(1T)|PN number assigned at point of | 
| v - y {definition from PNCTR (COMMON) | 

— i j , 1 



GENERATED PROCEDURE-NAME REFERENCE 



| 0J1-2 



+ 



| 50 | GN number assigned at point of 
| Jdefinition from GNCTR (COMMON) 



GENERATED PROCEDURE-NAME DEFINITION 
J "0|. 1-2 



I 



+ 



|34|GN number -- number assigned from| 
J JGNCTR in COMMON I 

i — -j , — . , 1 



VARIABLE PROCEDURE-NAME REFERENCE 



i r 

I 0| 



T" 



| 2-3 



|54|f2jjVN number assigned at point of | 
I I I generation from VNCTR (COMMON) | 



VARIABLE PROCEDURE-NAME DEFINITION 

r , ,—, . , — | 

I 0J1 |2-3 | 

* l^J — — I 

!38|(2J|VN number -- number assigned | 

I | !from VNCTR in COMMON J 



EBCDIC PROCEDURE-NAME GENERATOR 

I ' | Consists only of this one field. 
| — -f Used to create in-line DC 
|3C( instruction for current card 

i 1 number to be used by the TRACE 

verb. 
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VIRTUAL REFERENCE 



I 



| 011-2 

I 1 , , 

|58|VIR number assigned to source CALL j 
| |statement operand from VIRCTR j 

I | (COMMON) | 



ADDRESS REFERENCE 

r 1 

I 0|1-3 



| 4- 6 



I 1 1 4 

| 78 | Addressing —J Dictionary | 
| | parameters (i)\ pointer (&) | 



BASE LOCATOR REFERENCE 



I 0| 

I- — h 



1 — 

1 |2 



■+- 



|5C|Type|BL or BLL number 
| |code| assigned from BLCTR 
I \($) lor BLLCTR in COMMON 



EBCDIC DATA-NAME REFERENCE 



— i — i 

0| 1 | 2 through 1 



+ c 



I — +-H 

|7C|c |Data-name 

I I i 

I I I 

i i i 



-P 

in EBCDIC | 

(14) I 



GLOBAL TABLE STANDARD AREA REFERENCE 



ADDRESS INCREMENT 



T 



"T" 



I 0| 1 [2 
I h 



-4 

| 60 | Type| Displacement in bytes from 
I |codej start of specified area 

i i© i 



r 



T" 



I 0|1-3 



+ 



| 80 | Value that is to modify an 
I | address. Negative value in 
I j2»s complement. 

I I ; 



GLOBAL TABLE VARIABLY-LOCATED AREA 

REFERENCE 

i 1 1 1 

I 0| 1 | 2-3 | 

*-H h * 

| 64 |Type | Identifying number of item| 
| |code| within specified area | 

I I (6) | I 

I L.>-^ 1 1 

LITERAL REFERENCE 



RELATIVE ADDRESS 



I 



0|1 



|2 



k—+- 



+ 



I | T-2 
f — h 



I 



|68|Number of literal | 



DC DEFINITION 

T- 



0MI-2 
+-+ 



I 
I- 

J6Clc | Actual 

I L— J 



through c + 1 



constant | 



BASE AND DISPLACEMENT 



\ 84 | Code for | Size , in bytes , 

I | object module j of address 

I | field (9) | const ant 

1 1 — * 1 



|3-4 



I Number of item in 
I specified field 

i 



SPECIAL PHASE 6 ELEMENTS 

% 

REGISTER SPECIFICATION 

r 1 1 

1 on 1 

J 1 8 

|A0|Register number: I 

I 1 00 through CF (hex) I 



I 0|1-2 



J 1 

I 70 I Bits 
I 1 0-3 
I 14-15 
1 1 



C ontents 
Register number 
Displacement 
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INCREMENTED ADDRESS 



I 0|1-3 
I h 



[ 4-6 



| A4| Addressing 
I | parameter 

! ! © 



| Dictionary 
jpoinjfcer 

■ © 



PARAMETER FOR CALL TO SEGMENTATION AND 60 
TO DEPENDING ON SUBROUTINES 



I 1 

I 0|1 

1 1 — 

| BC( Priority | PN number! 



|2-3 



|7-9 



PHASE 50 OPTIMIZATION INFORMATION 



|Value of incrementl 

L 1 



SPECIAL PHASE 6 ELEMENTS 

® 

CALLING SEQUENCE DISPLACEMENT 



r~*~i — 
I Of 1 



-i — 

12 
H— 



|B0|Code for |Base code 
| | object module | switch 
| | field (rj) I QJ) 



i 

|3-«l 
i 



I 



| Number of item in | 
| specified field | 
i j 

CALLING SEQUENCE DICTIONARY POINTER 

i 1 

I 0|1-3 



j_i . — ^ 

I B4| Pointer to dictionary entry for| 
| | file-name , data -name, or ^^- \ 
| {subscripted data-name. QO ' 



i i 

i on 

i — i — — 

|C0 1 Type code | 



I 



i <u> 



i 



HPT-OHIGIN 



« 0J1-2 
I 1" 



|04|GN number | 
i i i 



2) Bit 


in byte 


1 is on for a 


^a) Code 






^ (hexl 


Assembler equivalent 


04 


CNOP 


0,4 


08 


CNOP 


2,4 


0c 


CNOP 


0,8 


10 


CNOP 


2,8 


14 


CNOP 


4,8 


18 


CNOP 


6,8 



verb. 



(2) Byte 1 contains priority number of 

segment within which the procedure-name 
is located. 



FILE OR SUBSCRIPT REFERENCE ELEMENT 



I 0|1-3 
I h 



J 



jB8|Pointer to dictionary | 
I | entry for file (s) {' 
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(1) Code 
W Jhexl 

00 



04 



08 

0C 
10 

18 



20 
24 

28 

2C 

30 

34 
38 

3C 

40 



44 
4C 



50 



Mean ing 
EQUATE — equates variable 

procedure-names to initial 

value ; followed by 

procedure -name reference. 
ENTRY — defines entry point; 

followed by EBCDIC data-name 

reference giving entry point 

name, 
BLCHNG — specific contents of 

base locator changed; followed 

by base locator reference. 
ENDOPT -- indicates end of 

register optimization, 
DECLARATIVES START — indicates 

beginning address of 

Declaratives Section; produced 

only if the SYMDMP or STATE 

option is in effect . 
ADCON -- defines address 

constant; followed by relative 

address reference, 

procedure-name reference, 

calling sequence displacement 

element, or calling sequence 

dictionary pointer to which 

adcon points. 
START — identifies first 

executable instruction- 
DC — identifies constant; 

followed by DC definition 

element. 
RESERVE -- specifies registers 

not to be used by phase 6 or 

by phases 62, 63, and 64; 

followed by register 

specification element. 
FREE — indicates registers no 

longer reserved; followed by 

register specification 

element. 
DESTROY -- indicates that 

contents of register were 

destroyed; followed by 

register specification 

element. 
INIT — indicates when permanent 

registers must be loaded. 
ORIGIN -- indicates where to set 

location counter for 

overlaying USE BEFORE 

REPORTING code; followed by 

generated procedure-name 

reference. 
REORIGIN — indicates that the 

reset location counter is to 

be reset. 
Q-BEGIN -- indicates start of 

Q-Routine coding; destroys 

permanent register assignment. 
Segmentation control break. 
Segment initialization (1-byte 

priority number in next 

field) . 
Dummy procedure -name reference 

element to force an XREF 

element to be written for the 



following procedure-name 
reference element. 



© 



*0 Bits Code Meaning 

0-3 0000 Unused 

4-7 0000 BL 

0001 BLL 



(?) Code 

Jfe^xl Meaning 



02 


SAVE-AREA 


04 


SWITCH 


06 


TALLY 


08 


SORT-SAVE 


0A 


USDBGINF 


(e) Code 
w Jhexl 




Meaning 


00 


DCBADR 


04 


VLC 


08 


ONCTL 


OC 


PFMCTL 


10 


PFMSAV 


14 


DECBADR 


18 


XSA 


1C 


PA RAM 


20 


WORKING CELLS 


24 


TS 


28 


XSASW 


2C 


SUBADR 


30 


TS-2 


34 


FIB 


3C 


SAVE AREA-2 


40 


SAVE ARE A- 3 


44 


RPTSAV AREA 


48 


OVERFLOW 


50 


CHECKPT CTR 


54 


TS-3 


58 


TS-4 


5C 


IND 


60 


DBGTRA 


64 


DBGCRD 



CO Mt£ Field Code Conte n t or Me aning 
0-3 i 0000 BL 

0001 BLL 

0011 Address of data-name 
is in register 
specified in bits 
12-15. Referred to 
by zero displacement 
from register. 

0100 SBL 

0110 subscript cell 



4-15 



16-23 



Displacement from start 
of area controlled by 
base locator. If a 
register is specified 
in bits 0-3, however, 
bits 4-11 contain 
zeros, and bits 12-15 
contain the register 
number. 

Base locator number 

assigned from correspond- 
ing COMMON counter. 
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Bits 
0-1 


Contents 
Unused 


2-14 


Dictionary section number 


15-23 


Displacement in section 


Code 




ItetL 

00 


Meaning 
INIT1 


04 


TALLY 


08 


PARAM 


OC 


BL 


14 


SBL 


1C 


VLC 


28 


BLL 


2C 


LITERAL 


30 


INIT3 


34 


CHECKPT CTR 


38 


PGT 


3C 


TGT 


40 


INIT2 


44 


START (first executable 



© 



instruction identified 

by START) 
48 PN 
4C VIRTUAL 
50 GN 
58 VN 
5C VNI 
60 SUBADR 
64 Temporary Storage 
68 External adcon (for address of 

transient area in segmented 

program) 



The following special phase 6 A-text 
elements are generated and then used 
by phase 6 to generate MVC 
instructions to initialize VN cells 
in the TGT: 



Code 
(hex) 

00 
04 
08 
0C 
10 
14 
18 
1C 
20 
24 
28 
2C 
30 
60 
64 



(12) Code 

^ ±he*L 
00 
01 



Identifier 

Byte _ 

90 



A8 



AC 



Text Element 

A 4 -byte element that 

references the VNI cell in 

the PGT. 

A 1-byte element that 

indicates that the value 

in the P6PLUS field should 

be used as the "plus" 

element of the MVC 

instruction . 

A 1 -byte element that 

indicates that the Value 

in the P6LNG field should 

be used as the "length" 

element of the MVC 

instruction. 



Meaning 

INIT1 

TALLY 

PARAM 

BL 

SAVE2 

SBL 

FIB 

VLC 

PN 

GN 

BLL 

LITERAL 

DCB 

SUBADR 

Temporary storage 



Meaning 

No preceding base code. 
Base code precedes 
this element. 



Code 

I&eja. Meaninjg 



Phase 
Produced 

fel_ 

50,51 



4,51 



50,51 



01 Precedes a load instruc- 
tion which is not 
followed by a branch 
instruction 

02 Precedes any possible 
entry point for which 
addressability must be 
established 

03 Precedes a load instruc- 
tion for a PN or GN 
which must be processed 
with an address constant 
cell in the PGT 

04 Precedes a Variable 
procedure- name reference 
element at a PERFORM 
verb exit 

05 Precedes a Generated 
procedure-name defini- 
tion element at the 
returning point of any 
performed procedure 
except a PERFORM. . .TIMES 
procedure in a nonseg- 
mented prpgram 

06 Precedes a load instruc- 
tion for a PN or GN 
which is followed by an 
unconditional branch 
instruction 



fl4l Must be preceeded by either a 
4404 or a 2C element. 



4,51 



50,51 
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OPTIMIZATION A-TEXT 



VIRTUAL DEFINITION 



r — , -t , 

I 0| 1|2-3 | 

f 1 1 -H 

|00|00|VIR number assigned from| 
| | IVIRCTR in COMMON | 

i i i i 



|4-11 



lExternal-name in operand of 
|CALL statement, left-justified, 
Ipadded with blanks. 



LITERAL DEFINITION 



I 0| 



1 | 2 1 3 through 2 + c | 



I h 



-f-f- 



H 



|04|Type| c| Value of literal I 
I IcAdel i | 

I IU) I I I 

i i— >^_ — i — i , 1 

GENERATED PROCEDURE- NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



| [Variable number of 2-byte | 

| fields containing GN numbers] j 

i : 1 



|n through n + 1 



I 



li 1 

| Last GN number assigned to same | 
| location as others in string | 

i , j 



DISPLAY LITERAL DEFINITION 



r t" 

i on 
i — i — 


■ -i — r ■■ ■- " - " ■ 

|2|3 through 2 + c 

—h-i 


i 
1 



| 10 |Type|c| Value of literal | 

I Icodel | | 

I l(l) I I I 

i — i ^-^ — i — i 1 



1 1 


1 


1 


i 0| 1 


|2-3 


1 


L 1 


1 


-F 



|08|n/2 | First GN number assigned | 
| | (Number | to identify a location | 
| | of fields | | 

| |to follow) | | 

I L— I I 



|[ Variable number of 2-byte 

| fields containing GN numbers] 

i 



|n through n + 1 
I 



| Last GN number assigned to same 
llocation as others in string 

i 



| LITERAL DEFINITION (Larger than 255) 

i 1 1 » 1 

| 0| 1 |2-3 | 4-3 + c 

H-H h 



| 54 | Type | C 
| |Code| 
I I 






4- 

| Values of 
| literal 

I 

-i 



SEGMENTATION ELEMENT 



I 0|1 
k—+- 



I 2-3 



| 14 | Priority number of|VN 

| | segment to which | number 

I |VN belongs I 

i i i 



SOURCE PROCEDURE-NAME EQUATE STRING 
(NON-OPTIMIZER VERSION) 



i on 

L , 


I 2-3 

1 


i 

1 

^ 



|0C|n/2 | First PN number assigned | 

| | (Number | to identify a location | 
| | of fields | | 

| | to follow) | | 

i i i ; j 



GNUREF ELEMENT 



i 1 — 1 

I 0| 1-2 I 

k— +— — 1 

|1C|GN number for AT END or INVALID KEY | 
I (branches, or GNs at REPORT-ORIGIN | 

l_ — i __» , ; : 1 
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PNUREF ELEMENT 



I 0|1-2 
I— +■ 



|20|PN number for PNs following TO 
| j PROCEED TO in ALTER statements 
| | or Declaratives PN number 

i i 



PROCEDURE-NAME REFERENCE 



i 1 — I 1 

I 0|1|2-3 | 

I— hH « 

|4Cf2JPN number assigned at point of| 
| hi definition from PNCTR (COMMON) I 



GN-VN ELEMENT PERFORM VERB 



GENERATED PROCEDURE-NAME REFERENCE 



|3-4 



| 1-2 

— I 

I 24 |GN number — |VN number — 
| associated with| associated with 
| return point of {PERFORM exit 
ja performed | 
| procedure | 

-J : 1 ; 



VARIABLE PROCEDURE-NAME EQUATE 
PROCEDURE -NAME OR VARIABLE PROCEDURE-NAME 
EQUATE GENERATED PROCEDURE-NAME ELEMENT 
(OPTIMIZER VERSION) 

VARIABLE PROCEDURE-NAME DEFINITION 



© 



r 



T" 



I 0'| 1 |2-3 



« f-1 1 

|38(2}VN number -- number assignedl 
| M I from VNCTR in COMMON | 



© 



I 0|1-2 
1- h 



I 



I 50 1 GN number at point of | 
I {definition from GNCTR (COMMON) | 
i 1 1 



Bits 
0-1 



2 
3 

4 
5 
6 
7 



Code Meaning 

00 No boundary requirement 

01 Halfword boundary 

10 Fullword boundary 

11 Doubleword boundary 
Floating-point number 
EBCDIC numeric value 
Binary number 
Packed decimal number 
EBCDIC character string 
Hexadecimal number 



Byte 1 contains the priority number of 
the segment within which the 
procedure- name is located. 



MACRO-TYPE INSTRUCTION 

i 1 1 

I 1 1 | 

I 1 f 

|44|00 | 

I I ©I 



© 



The code 00 indicates EQUATE, 
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PROCEDURE A1-TEXT 



The following elements of Procedure Al-text 
are identical to their counterparts in 
Procedure A-text. 

Code Element Name 

2C CARD NUMBER 

30 SOURCE PROCEDURE-NAME DEFINITION 

34 GENERATED PROCEDURE -NAME DEFINITION 

38 VARIABLE PROCEDURE- NAME DEFINITION 

3C EBCDIC PROCEDURE- NAME GENERATOR 

44 MACRO-TYPE INSTRUCTION (l) 

48 OPERATION CODE ^~ 

4C PROCEDURE-NAME REFERENCE (2) 

50 GEULERATED PROCEDURE-NAME REFERENCE 

54 VARIABLE PROCEDURE-NAME REFERENCE 

58 VIRTUAL REFERENCE 

5C BASE LOCATOR REFERENCE 

60 GLOBAL TABLE STANDARD AREA 

REFERENCE 
64 GLOBAL TABLE VARIABLY -LOCATED 

AREA REFERENCE 
68 LITERAL REFERENCE 
6C DC DEFINITION 
70 BASE AND DISPLACEMENT 
7C EBCDIC DATA-NAME REFERENCE 
84 RELATIVE ADDRESS 
A0 REGISTER SPECIFICATION 
BO CALLING SEQUENCE DISPLACEMENT 
B4 CALLING SEQUENCE DICTIONARY POINTER 
B8 FILE REFERENCE ELEMENT 
BC SEGMENTATION AND GO TO DEPENDING ON 

SUBROUTINE CALL PARAMETER 

The SPECIAL PHASE 6 ELEMENTS are also 
present in Procedure A1-text and are 
processed by phase 64 if the OPT option is 
specified. 



ADDRESS REFERENCE 



ADDRESS INCREMENT 



T" 



I 0|1-3 



| 4 -6 



^—+• 



+ 



J78|Addressing^ > ^ IDictionar 
I jparameters(T) | pointer (§ 



0|1- 



| 80 | Value that is to J Code 
| fmodify an address | (5) 



BLOCK NUMBER 



1 1 

i on 

1 — i 

I C4| Block number 



PROCEDURE BASE REGISTER ELEMENT FOR PN*S 



1 011-2 



iC8|PN number 
« i 



PROCEDURE BASE REGISTER ELEMENT FOR GN f S 



i I 

f 0(1-2 

1_4 

ICCjGN number 



BASE DISPLACEMENT DATA-NAME 



I 0|1-2 
I H 



| DO | Addressing 
| | parameters 



| 3-5 



| Dictionary | 
6)| pointer (o) j 
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'A. MACRO-TYPE INSTRUCTION element with a 
44 byte code (segmentation control 
break) has an added byte which contains 
the priority number. 

Present only for those PNs and GNs that 
have address constant cells in the PGT. 

Bits Contents 

0-1 Unused 

2-14 Dictionary section number 

15-23 Displacement in section 



Code 
00 

OE 



OF 



Meanin g 

LA instruction not to be 

generated 

LA instruction to be generated/ 

using register 14 as base 

register 

LA instruction is to be 

generated, using register 15 as 

base register. 



Bit s Field Code Conte nt or Meanin g 
i Use register 14 to 
address item. (A 
load instruction is 
generated if bits 2 
and 3 are on . ) 

1 Use register 15 to 
address item. (A 
load instruction is 
generated if bits 2 
and 3 are on.) 

1-3 000 BL 
001 BLL 

011 Address of data-name 
is in register 
specified in bits 
12-15. Referred to 
by zero displacement 
from register . 
100 SBL 

110 Subscript cell 
4-15 d Displacement from start of 

area controlled by base 
locator. If a register 
is specified in bits 
■0-3, however, bits 4-11 - 
contain zeros, and bits 
12-15 contain the 
register number. 
16-23 k 1 BL or BLL number 

assigned from BLCTR, 
or BLLCTR in COMMON 

2 Subscript cell 
number 

3 SBL number assigned 
from SBLCTR in 
COMMON l- 

For data-names with permanently 
addressable BLs, phase 63 changes the 



Address reference element to a Base 
displacement data-name element, using 
the permanently assigned register 
number from the BLASGTBL table and the 
displacement given in the Address 
reference element. The contents of the 
field are: 

Bits Contents 

0-3 Base register 

4-15 Displacement from start of 

area controlled by base locator 



LISTING A-TEXT 



LISTING A-TEXT FOR PROCEDURE-NAMES 



t j f 

I Oj 1 1 2 through 1 + c 
i J-H 



I 



| 7Cjc| EBCDIC procedure-name; | 

| | | bit of the preceding field | 
| | |is set to 1 J 

i 1 — i __j 

LISTING A-TEXT FOR VERBS 



i i — I 1 

I | 1 | 2 through n |n + 1 



t — +-+■ 



~h 



|7CJn|EBCDIC verb | Alphabetic verb | 
I | | | sequence number | 

I I l ; -4 I 

END OF LISTING A-TEXT 
JO | 



I01| 
I I 



E-TEXT 



MESSAGE DEFINITION 



I "Hi 1 1 1 

I 1 1 1 2|3-4 | 

*• — I h 1 H 

| 00 | 07 1 00 identifying | 
I I I | message number | 



|5-7 



18 



| 1 

| Card I Bits Contents 

jnuraber | 0-3 Severity code 

I 4-7 Phase number 
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MESSAGE PARAMETER 



DEF-TEXT ELEMENT FOR VERB DEFINITION 

T 



© 



i r-i ~i 

I 0|1|2 | 

I HH 1 

1 00 | n |IC- text identifier! 
| J | for parameter CY\ \ 
i i i j=^ i 



|4 |5 

H h 



|3 through n + 1 



|Either the actual value to be 
jinserted, or a pointer to the 
IPARTBL field containing the 
lvalue. 



Code 

(hex) Meaning 

05 Alphanumeric literal 

22 Alphanumeric literal 

23 EBCDIC name 

34 Alphanumeric literal 

42 Critical program break 

43 Level number 

44 Verb 

50 Relational 

52 Parenthesis 

53 Arithmetic operator 

54 COBOL word 
57 COBOL word 

75 Figurative constant 

79 Standard data- name 

87 Procedure -name definition 

F9 Global Table reference. Type 1 

FA Global Table reference § Type 2 

FE Dictionary pointer 

(not an IC-text element) 



i 1 r 

I 0| 112-3 

V 1 k 

J 48 1 00| Number of | E0 | Alphabetic 
| J J occurrences j jverb sequence 
| | | j (number 
i i i 1 1 

i i — i i 1 

f 6|7| 8|9 to c + 7| 

I hH h 



|00|c|FB|Verb text | 

L I L L I 



END OF REF-TEXT and 
END OF E-TEXT 




REF-TEXT FOR VERBS 



|0-2 



T" 



1- 

I 

H — f- 



3|4-5 



I 



| Card Number |E0| Verbcodel 

I © ! ! © J 



BEGINNING OF REF TEXT 




XREF-TEXT 



DEF-TEXT ELEMENT FOR DATA- NAME DEFINITION 



| | 1-3 | 4-6 
J- — h 



+ 



"i — i i 

|7 | 8 to c ♦ 7 | 



|48|Card IPointer to die- |c| External- j 

| | number | tionary entry | |name in j 

| | | for data-name | (EBCDIC | 

I L , L II t 

DEF-TEXT ELEMENT FOR PROCEDURE-NAME 
DEFINITION 



olT 



13-5 



h-H 

|4C|PN JCard Number 

I |number) 
I I I 

I J L 



|6|7 to c ♦ 6 | 



■+-+- 



H 



| c| External- | 
| | name in | 
| | EBCDIC | 



REF-TEXT 



r 



I 0-2 



| 3-5 
+ 



H 

IPointer to dictionary | Card number | 
j entry for data- name | | 

| or PN number | (T) I 
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DEBUG-TEXT 



CAPDLOC 



C 1 

I C| 1-3 
f— I 



I 4-6 
H 



|10 J Card (Contents of LOCCTR 
I | number | when card 
| | | encountered 

I I I ; 



ENDS EG 
r- 



0|1-3 (4-6 



+ 



4- 



20 | Zeros | Contents of LOCCTR 

| | after processing 

| | last verb of 

| (segment 



SEGMENT 



r~ 



*T- 



i on 
i — h 



i 



| 30 | Priority | 
j (number | 

i i © i 



DISCONTINDITY 

MM 



1 40 | 



(T) Written by phase 60 or 64; read by 
phase 6A. 

(2) Bit Meaning 

= Reference is for 
data-name 
1 = Reference is for 
procedure- name 

(3) For an unsegmented program, only one 
priority element is written; the 
priority number is set to zero, 

(4) Indicates beginning of a noncontiguous 
^^ section within a segment. 

(5) End-of -REF-text on file 3 and 
end-of-E-text if spilled on file 3. 
Written by phase 60 or phase 64. 

l6) The alphabetic verb segue nee number 
^ followed by X«00 f . 

(T) The high-order bit is always set to 0. 
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DICTIONARY ENTRY FORMATS 



Dictionary handling is performed by ACCESS 
routines described in "Appendix A: Table 
and Dictionary Handling." Phases 1B, 22, 
21 , 25, and 3 use the dictionary. 



Phase IB enters procedure-names and 
their attributes in the dictionary. 

Phases 22 and 21 enter data-names and 
their attributes in the dictionary. If the 
SYMDMP option is in effect, phase 25 uses 
the dictionary to build the DATATAB and 
0B0D0TAB tables for the Debug data set. 

Phase 3 replaces data -names and 
procedure-names in Procedure Division 
statements with their dictionary 
attributes. 



NOTES ON DICTIONARY ENTRY FORMATS 



• The top row of figures shows the number 
of bytes in the field. 



E&MkAfcftft define optional 
fields or a series of similar fields. 



• c = the number of bytes in the field 
that follows. 

• n = the total number of bytes that 
follow in the remainder of the entry . 

• 1b = this field is one byte long. 
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PROCEDURE-NAME (PARAGRAPH) ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 














1 




1 


1 


1 


I 


H- 




— 1 




Attributes 



r 




—i 




■ -1 .. 


- t 




i 




2 


1 
*— 


2 


1 
— 4— 


- — -+ 


1 


1 
— * 



Charac- |PN number | Unused! Priority 
teristics|of this | | Number 
I para graph | | 

J ! i © 



PROCEDURE-NAME (SECTION) ENTRY 



HASH Table Pointer 




Delimiter 
Pointer 



Basic 
Fields 



Attributes 




Pointer to 
dictionary 
entry for next | 
section- name 



|c|Name 

I 1 

I I 

I I 

i — i 



| Count | 
land | 
| major | 
Icodef 2)| 



| Characteristics! PN |Unused| 

| | number | | 

| |of this! | 

I (3) |section| | 



(j) Sits 



2-14 
15-23 



©Bits 



4-7 



Conten ts 

00 = Neither HASH table nor 

delimiter pointer 

01 = Delimiter pointer 

10 = HASH table pointer not followed 

by delimiter pointer 

11 = HASH table pointer followed by 

delimiter 
Dictionary section number 
Displacement in section 

C ontents 

Number of bytes in attributes field. 

If 0, see variable information 

field under "LD ENTRY." 
Code Meaning 

0000 LD entry under FD 

0001 LD entry under SD 

0010 LD entry under CD 

0011 VSAM file 

0100 LD entry in Working-Storage 

0101 LD entry in Linkage Section 

0110 LD entry in Report Section 

0111 LD entry under FD with 

APPLY WRITE-ONLY (after phase 3) 

1000 FD entry 

1001 SD entry 

1010 CD entry 

1011 FD entry with ASCII 

1100 Condition-name entry 

1101 Procedure-name entry 

1110 RD entry 

1111 Index-name entry 



© 



© 



I 1 I 2 | 

I 1 1 

I Priority I PN number | 

I number |of next section! 
i 1 1 



Bi± 

1 
2 
3 
4 
5 
6 



7 

8 

9 

10 

11 



12 
13 
14 
15 



Meaning, if on 

SORT/MERGE input/output procedu 

Section-name 

Referred to by PERFORM 

Referred to by ALTER 

Procedure-name of simple GO TO 

Procedure-name of EXIT 

Procedure-name following 
TO PROCEED TO in an 
ALTER statement 

Unused 

Referred to by DEBUG 

Defined in DEBUG 

Dummy section-name 

Defined in Declaratives Section 
or in DEBUG statement referri 
to such a section. Bits 12-1 
describe type of section. 

Declarative error routine 

Declarative label routine 

Declarative for DEBUGGING 

Declarative report section 



Not present in dictionary added by 
phase 30. 
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iSH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 



.iiiii'i i iii n i | 



MiHM^^^^^^Bl Pointer to next 
|fa^«&fe^ entry after 

S^^Wil^mMfc^l last LD entry 
IBMI^^Mll!^^^^ f or this file 



"i 1 

|1| Variable | 

H * 



1 : 



"i 




Count 
and 
major 
code 

© 



Flag 
byte 





-+- 



H- 



First | DCB | Access 

BL 1 number| method and 

number I or FIB | I/O specif i- 

J number | cations 

I for I 

,VSMI • r^ r\ 

| file | (5) (5a) 



Non-VSAM file 



I 



I 



■+■ 



-h 



DECB |Maximum|Count | 

number j record | and I/O -^1 

llength joptions (V) | 



VSAM file 



1 



1 



IND2TBLJ Displacement | Number of| 
entry J of first entry|BLs 
count | in IND2TBL | needed 

| | for this 

I I file 

1 1 



All files 



. -3 



! »#""V ' » ' " '!'' 



idfe addressing .ength 

p%£&m®tms for ,%*€%m$ 

ACTUAL KET laillllS 

(direct • file ";/&$&£*£&% 
only) m | oalyj 




idk addressing parameters 
for i&tm^&aiae in &?££? 
'BWtt^ClZfBBIA -ClMtm 
01SkU t$X% omlj} (l 



ft 



1» 



QSAM File 



I 



Option byte | 
I 
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(J) Bits 



© 



Bits 


Contenl 


:s 







1 = Q- 


-Routine indication 


1-2 


00 = Format V 

01 = Format F 

10 = Format 

1 1 = Format S 




3 


USE AFTER ERROR 


4-7. 


Number 


of BLs 


needed for this file 


Bits 


Access 


Clause Specified 


0-3 


Method 


Bit 


if bit is on 






4 


BEFORE ADVANCING 






5 


AFTER POSITIONING 


0000 


QSAM 


6 


APPLY WRITE-ONLY 






7 


AFTER ADVANCING 






4 


START 


0001 


QISAM 


5-7 


Unused 






4 


APPLY REORG-CRITERIA 






5 


TRACK AREA 


00 1C 


BIS AM 




IS... CHARACTERS 






6 


APPLY CORE-INDEX 






7 


FREE 






4 


NOMINAL or ACTUAL 
KEY 


0100 


BSAM 


5 


Direct organization 






6-7 


Unused 






4 


File organization f D 1 


1000 


BDAM 


5 


Direct organization 






6 


TRACK LIMIT 






7 


Unused 



© I 



© 



Bits 
0-3*" 

4 

5 

6 

7 



Contents 

Number of bytes that follow 

1 = SAME RECORD AREA 

1 = SAME AREA 

1 « User label 

1 = nonstandard label 



Location of item in data area of objec- 
module: 



B its Field M eanin g 
0-3 i Type of BL containing b< 
address of area: 

0000 = BL 

0001 = BLL 
100 = SBL 

4-15 d Displacement from base 

address 
16-23 k BL number 

(7A) This extra byte is present for all QSA! 
files after count and input/output opt: 



Bit 

2 



Meanin g 
LINAGE 
FILE STATUS 



VSAM entry 

B it C ontent s 

1 = ACCESS IS SEQUENTIAL 

1 1 = ACCESS IS RANDOM 

2 1 = ACCESS IS DYNAMIC 

4 Reserved 

5 Relative VSAM 

6 1 = VSAM indexed file 

7 1 = VSAM addressed 

sequential file 
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ASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 




Pointer to 
next entry 
after last 
LD entry fo^ 
this file 



§! 



1 1 Variable 
-+- 



c | Name 

I 

I 

I 

I 
—j 




r 




— T- 




"" ""■ 1 




T 1 


I 


1 


I 


1 

1 


2 
1 H 


2 

1 


11 I 
—I 1 



|Flag| First |Maximun 
|byte|BL | record 
I | number) | length 


i| Minimun 
| record 
| length 


i| | 

1 1 
1 1 


I I 
I I 

1— . A.. 


I 
1 


1 

1 





ENTRY 



[ASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 




Pointer to 
next entry 
after last 
LD entry fpr 
this fileM) 



1 | Variable | | 



1 



-t r- 
I I 7 



c | Name 
I 
I 
I 

I 



| Count J | 
land |f 
| major | | 
| co <Je | | 
I (2) I I 



Bits 


Contents 





1 = SAME RECORD AREA 


1-2 


00 = Format V or S 




01 = Format F 




10 = Format U 


3 


1 = ASCII collating sequence 


4-7 


Number of BLLs needed for this 




file. 
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LD ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 




Basic 
Fields 



Attributes 



|| If group item, 
p pointer to next 
gentry after 
I last LD entry 
^jj for this group 

~ © 




-1 — 1 

! 1 1 Variable | 



I Variable 



c | Na me 

I 

I 

I 

\ 

I 
—j 



| Count 

(and \ 

jmajor j 

I code | 

i©@! 



Minor j Addressing | Flag {Level nun 
| code | parameter s| byte | be r and 
land j f or item | (vh j variable 

flags | | >-' | in format] 

©I-®- i @ i ■ @ ( 



CD ENTRY 



| HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 




'&&*'$$ P o in t e r t o \ | c j Na me 

M'*fi next entry | | | 

"^pi after last | | | 

^,^,.If# LD entr y for I « I 

ffi&W$ft this CD © i i i 



| Count | CD | Addressing J Flag | Number of oc- 

| and | number J parameters j jbyte | currences of 

Imajor j | for item | IDESTINATION 

Icojte \ m) J | (15) (TABLE 

10 1 I (jj>) I ■ I 



QO i-it 3 - £24® Op erand °s Charac t eristic s 

0-3 0000 Error detected for this ~ 
operand 

00 01 Fixed-length group 

0010 Alphabetic 

0011 Alphanumeric 

0100 Variable -length group 

0101 Report item 

0110 Sterling report item 

0111 Usage is index 
1000 External decimal 

10 C1 External floating-point 

1010 Internal floating-point 

1011 Binary 

1100 Internal decimal 

1101 Sterling nonreport 



4-5 



1110 Alphanumeric edited 

1111 Unused 

Code Subscripts Required 

00 None ~ 

01 1 

10 2 

11 3 

1 = OCCURS clause in this item 
1 = REDEFINES clause for this 
item 



(9a) = 1 SRA 

(1^5) Location of item in data area of object 
module: 
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Bits 


Zi^id Meaning 




0-3 


i Type of BL containing base 




address of 


area: 




0000 = BL 






0001 = BLL 






0100 = SBL 




4-15 


d Displacement 
address 


from base 


16-23 


k BL number 




(y\) Bits 


Meaninq, if on 




W 


INDEXED BY 




1 


SYNCHRONIZED 




2 


Subject of key 




3 


If bit 2 = 1 

= DESCENDING 

1 = ASCENDING 




4 


Be port WITH CODE- 




5 


DEBUGGED item is 


subscripted 


6-7 


Contents 





(fi) Bits 
W 0-5 
6 
7-end 



During phase 3 operations, the flag 
byte field is removed. The first four 
bits overlay the first, four bits of the 
level number , and the last four bits 
overlay the count field preceding the 
major field. In the level number 
field, if bit 4 is on, the level is 01; 
if bit 5 is on, the level is 77. 
Otherwise, these bits are off. 



Each CD is assigned an identifying 
number beginning with the last DCB 
number plus 1. 



© 



00 = SIGN is overpunch trailing 

01 = SIGN is overpunch leading 

10 = SIGN is separate trailing 

11 = SIGN is separate leading 

Con tents 
Level number 

1 = Q-Routine is required 
Variable, according to 
Table 18. 



Bits 


Meaninq 







= INPUT 

1 = OUTPUT 




1-5 


Unused 




6 


1 - Object of OCCURS. . 
ON under CD entry 


.DEPENDING 


7 


Unused 
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1 T ""- - 1 ' " ■ - - - " 1 

f Characteristic | Bits | Contents I 


| Fixed-length | 1-17 | Length of group. | 
| Group Item | | I 


| Elementary | 1 | 1, if JUSTIFIED RIGHT. | 
| Alphabetic | 2-17 | Length of item. I 
| or | 18-32* J Dictionary section number of entry for group in which this | 
| Alphanumeric | | item is included , if the group contains an OCCURS clause. | 
litem I 33-41* | Displacement in section. I 

I 1 1 1 


1 II 1 

f External | 1 l 1 , if PICTURE contains S. | 
| Decimal | 2-9 j Signed number. If positive, the number is the total of Ps | 
j or | j plus 9s to the right of decimal point. If negative, it | 
llnternal | | is the number of Ps to the left of decimal. If 0, the | 
IDecimal J | item is an integer. I 
j or | 10-17 j Number of decimal digits. J 
| Binary | 18-32* j Dictionary section number of entry for group in which this | 
| | I item is included, if the group contains an OCCURS clause. | 
j | 33-41* j Displacement in section. I 


llnternal | 1-16 | Unused I 
| Floating-point | 17 j = Short form I 
| J | 1 = Long form I 
j | 18-32* | Dictionary section number of entry for group in which this | 
| | | item is included, if the group contains an OCCURS clause. | 
| | 33-41* | Displacement -in section. I 


| External | 1 | = Mantissa blank when positive I 
(Floating-point | | 1 = Plus sign when positive I 
| | 2 | Same for exponent sign I 
| | 3 | = Implied decimal point I 
I | | 1 = Real decimal point I 
| | 4-9 | Scale of mantissa. j 
| | 10-17 | Total length. I 
| | 18-32* | Dictionary section number of entry for group in which this | 
| | | item is included, if the group contains an OCCURS clause. | 
| j 33-41* | Displacement in section. I 


ISterling | 1 j = BSI shillings I 
| Non-Report | j 1 = IBM shillings I 
JEleraentary Item | 2 | = 1-character pence I 
| | | 1 = 2-char act er pence I 
| | 3 | = BSI pence I 
j | | 1 = IBM pence I 
| | 4-9 | Number of decimal places to the right of V in pence field. | 
| j 10-14 j Number of pound field digits. I 
| | 15-17 | 000 = No^sign specified. I 
| | | 001 = Sign on high-order pound character I 
j II 010 = Sign on low-order pound character I 
| | | 01 1 = Sign on. high-order shilling character I 
| | | 100 = Sign on low-order pence character I 
| I j 101 = Sign on low-order decimal position in pence field | 
| | j (Values 110 and 111 are unused.) I 
j j 18-25 | Number of character positions. I 
| I or | or I 
j | 18-32* j Dictionary section number of entry for group in which this | 
| I | item is included, if the group contains an OCCURS clause. | 
j | 33-41* | Displacement in section. I 
j | 42-49* j Number of character positions. I 


| *Entry contains these fields only if item is in a group with an OCCURS clause. The | 
j fields are not present after phase 3, but at the end of the dictionary attributes | 
| three bytes are appended: either the length of the item this item is subordinate to,| 
| or the VLC of this item. 1 



Figure 65 (Part 1 of. 2). LD Entry Variable Information 
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1— -"- ■ — ■ ■ T -» — -1 - — , 

| Characteristic 1 Bits | Contents | 


| Variable-length | 1-2 j Unused • | 
|Group Item | 3-5 | Number of BLs or BLLs for items. | 
j | 6-17 | VLC number. | 
I j 18-32* j Dictionary section number of entry for group in which this | 
| | | item is included, if the group contains an OCCURS clause. | 
j J 33-41* j Displacement in section. | 


(Alphanumeric | 1 | 1, if JUSTIFIED RIGHT | 
JEdited Item | 2-9 | Number of bytes following. | 
I | 10-17**| All zeros. | 
I [ 18-32* t Dictionary section number of entry for group in which this | 
I | | item is included, if the group contains an OCCURS clause. | 
I | 33-41* j Displacement in section. | 
\ | 42-57 | SIZE of item. | 
I | 58 to j Byte 1 contains PICTURE character. Bytes 2 and 3 contain | 
I I end | count of consecutive occurrences. These three bytes j 
I | j are repeated until the entire PICTURE is recorded. | 


j Elementary Item | 1 j | 1, if Z or * in PICTURE | 
I with Report | 2-9 | Number of bytes following. | 
(PICTURE | 10-17**| All zeros. | 
1 1 18-32* | Dictionary section number of entry for group in which this | 
I | I item is included, if the group contains an OCCURS clause. | 
| j 33-41* | Displacement in section. | 
I | 42 | 1, if BLANK WHEN ZERO | 
I I 43 | 1, if * represents all numeric characters | 
| | 44 | Unused. I 
j | 4 5-49 | Number of digit places in item. | 
| | 50-57 j Scaling factor. I 
| | 58-65 | SIZE of item. | 
I | 66 to j Byte 1 contains PICTURE character (except v or P) . Byte 2 | 
t | end | contains count of consecutive occurrences. These two | 
I | | bytes are repeated until the entire PICTURE is recorded. | 
I II Exception: For CR and DB. the first character appears in | 
I | | byte 1, the second in byte 2. | 


I Elementary Item [ 1 I Unused. j 
| with Sterling | 2-9 | Same as for Report PICTURE above. | 
I Report PICTURE | 10-17**1 All zeros. | 
I j 18-32* | Dictionary section number of entry for group in which this | 
I | j item is included, if the group contains an OCCURS clause. | 
I | 33-41* j Displacement in section. | 
I | 42 | 1, if BLANK WHEN ZERO. | 
I | 43 | 0, if shilling delimiter is D. | 
I | | 1, if shilling delimiter is S. | 
I | 44 | Same as bit 43 for pounds. | 
I | 45 | 1, if no pounds field. | 
I | 46-57 | Unused. j 
| | 58-65 | Total length of item. | 
I | 66-73 j Number of pound integer places. | 
| | 74-81 j Number of pence decimal places. | 
1 ' ' ff 


I *Entry contains these fields only if item is in a group with an OCCURS clause. The. | 
I fields are not present after phase 3, but at the end of the dictionary attributes | 
| three bytes are appended: either the length of the item to which this item is | 
| subordinate, or the VLC of this item. I 
|**Entry does not contain these fields after phase 3. I 



Figure 65 (Part 2 of 2). LD Entry Variable Information 



Dictionary Entry Formats 453 



Licensed Material - Property of IBM 



CONDITION-NAME ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 






I 

IMVitt^Sliiiiti- : i 



iwwww 



i — r 

| 1|Vari 

■ i 


able 


- , j. - 

1 1 1 
i J 


, r T — - — „_ T — . T - T _ 

in 3 i 1 in c 
iii i ii 


i i 

|c|Name 

1 1 
1 1 
1 1 

1 1 

i.i 




i I 

| { Count 
1 land 
| Imajor | 
1 Icoie 
1 1 © 


1 i i i i i 

| |0|Pointer to die- | Switch |c| Valu- 
1 Itionary entry | | | fiel 
I | f or data item to| | | 

| | |be tested for | U6) | | H6) 
| | condition (T) | | | ^ 



INDEX -NAME ENTRY 



HASH Table Pointer 



Delimiter 
Pointer 



Basic 
Fields 



Attributes 



* r . ; ,.. m ,.., h jifo nn^mmf 




I 1 1 Variable 
t~H 



c | Name 
I 

I 

I 

I 
i 



Count 
and 
major 
code 

© 



1 I 
h 



Flag| Index-name | Length of 
byte | number taken | OCCURS clause 
^^ | from INDEX1 | subject or 
(l7) | in COMMON |VLC 

I I 

1 ; 1 



(16) If the switch = 1, the value field 

contains a 2-byte displacement in the 
VALTRO table of the object of the VALUE 
clause. If the switch = 0, the field 
contains the value itself. 



(jj) Bit M eaning . if on 

Subject is variable length; last 
field contains VLC number. 
1-7 Unused. 
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DEBUG DATA SET TABLES 



When the SYMDMP, STATE, or TEST option is 
in effect, phases 25 and 65 build 
additional tables for debugging purposes. 

The tables are accessed during execution 
of the program or at abnormal termination 
of the program by the subroutines of the 
Symbolic Debug program. For details see 
the publication IBM OS/VS COBOL Subrouti ne 
Library Prog ram Logi c . 

The tables list the characteristics of 
the data areas defined by the user as well 
as information about the relative location 
in the object module of the code associated 
with the card numbers generated for PNs and 
COBOL verbs. This information is used by 
the object-time COBOL library subroutines 
to produce the dumps at user-specified card 
numbers or card and verb numbers or by the 
COBOL Interactive Debug Program. If 
abnormal termination occurs, this 
information is also used to associate the 
address of the instruction at which 
abnormal termination occurred with its 
corresponding card and verb number in the 
COBOL source program. 

The tables are also used by the IBH OS 
COBOL Interactive Debug Program Product 
(Program Number 5734-CB4) . 

Phase 25 builds the OBODOTAB table if 
there are any OCCURS clauses with the 
DEPENDING ON option. It also builds the 
DATATAB table. Phase 65 builds the 
PROGSUM, PROCTAB, CARDINDX, SEGINDX, 
PROCINDX and BCDPN tables. 

The tables are made up of fixed-length 
512-byte blocks; a 1-byte field containing 
the hexadecimal value 'FF 1 marks the end of 



usable information within a block. Table 
entries are never split across a block. 

The debug data set is single buffered 
and the address of the buffer is placed by 
phase 02 in location FIL5BUF in COMMON. 
Each phase that uses the debug data set is 
responsible for moving information into the 
buffer and marking the end of the buffer. 
Phase 00 is called only to write the buffer 
on the debug data set. 

Figure 66 shows the positions of the 
tables in the debug data set (SISUT5) . The 
PROGSUM table contains information about* 
and pointers to, the other tables in the 
data set. 



| PROGSUM h 



1- 



i OBODOTAB ht- 

| 1 

| DATATAB |<f- 



H 



| PROCTAB 
I 






| CARDINDX hh- 



H 



i SEGINDX 



-4 



| PROCINDX h*- 



\r 



-i 



| BCDPN K- 

i i 



Figure 66. SYSUT5 (Debug Data Set) 
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PROGSUM TABLE 



The PROGSUM table is the first table in a debug data set. It consists of a single 
fixed-length 108-byte entry and contains information about the program and the debug data 
set itself. 



Disjal 


acement 


Hex 


Decimal 


G 





8 


8 


C 


12 


10 


16 


14 


20 


18 


24 


1C 


28 


20 


32 


24 


36 


28 


40 


2C 


44 


30 


48 


34 


52 


36 


54 


38 


56 


3C 


60 


40 


64 


44 


68 


48 


72 


4A 


74 


4C 


76 


4E 


78 


50 


80 


52 


82 


54 


84 


56 


86 


58 


88 


5C 


92 


60 


96 


62 


98 


64 


100 


66 


102 


68 


104 


69 


105 


6C 


108 



Field 

PGPROGID 

PGDECLEN 

PGBL1 

PGBLL1 

PGSBL1 

PGDECB1 

PGVLC1 

PGINDX1 

PGDCB1 
PGENDDCB 

PGENDNDX 

PGDTDVAD 

PGDTNUM 

PGDTDSP 

PGPTDVAD 

PGDXDVAD 

PGSXDVAD 

PGPXDVAD 

PGCXNUM 

PGSXNUM 

PGPXNUM 

PGSXDSP 

PGPXDSP 

PGODONUM 

PGHASH 



PGNNUM 

PGPNDVAD 
PGTEFDSP 

PGSMDSP 
PGNBCD 
PGPH25W 
PGLNGTH 



No. of 
Bytes 

8 

4 

4 

4 

4 

4 

4 

4 

4 
4 



4 
2 
2 

4 
4 
4 
4 
2 
2 
2 
2 

2 

2 

2 



PGFIB 



2 
4 
4 

2 

2 
2 
2 
1 

3 
4 



Description 

PROGRAM-ID 

Length of Declaratives Section 

BL1 address relative to the start of the TGT 

BLL1 address relative to the start of the 

TGT 
SBL1 address relative to the start of the 

TGT 
DECB1 address relative to the start of the 

TGT 
VLC1 address relative to the start of the 

TGT 
INDEX 1 address relative to the start of the 

TGT 
DCB1 address in PGT 
End of the DECBs relative to the start of 

the TGT 
End of the indexes relative to the start of 

the TGT 
Device address of first block in DATATAB 
Number of blocks in DATATAB 
Displacement in the block of the first 

DATATAB entry 
Device address of PROCTAB 
Device address of CARDINDX 
Device address of SEGINDX 
Device address of PROCINDX 
Number of entries in CARDINDX 
Number of entries in SEGINDX 
Number of entries in PROCINDX 
Displacement in the block of the first 

SEGINDX entry 
Displacement in the block of the first 

PROCINDX entry 
Number of bytes in OBODOTAB including the 

unused bytes at the end of the blocks 
Hashed compilation indicator which is 

matched by the COBOL library subroutine 

with the one in the Debug Table in the 

TGT. 
Number of blocks of BCDPNTBL 
Reserved 

Device address of first block of BCDPNTBL 
Displacement from beginning of PGT to 

ILBOTEF3 virtual if present 
Unused 

Number of entries in BCDPNTBL 
Number of blocks written by phase 25 
Length of PROGSUM 
Unused 

Address of first File Information Block 
(FIB) relative to the start of the TGT. 



Note : The only fields that may be zero in this table are PGDECLEN, when there is no 
Declarative Section and PGODONUM, when there are no OCCURS.. .DEPENDING ON clauses and 
PGTEFDSP and PGSMDSP when the corresponding virtuals are not present. For TGT addresses 
which do not exist, the address of the first byte following the previous cell is used 
because these cells are used in calculating the number of TGT cells of a given kind to 
dump. 
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OBODOTAB TABLE 

The OBODOTAB table is an abstract of the DATATAB entries for all objects of 
OCCURS, • •DEPENDING ON clauses in the program. The OBODOTAB table, if present r follows on 
the next fullword boundary the PROGSUM table and contains one variable-length entry for 
each unique object of an OCCURS. .. DEPENDING ON clause. Each entry begins on a fullword 
boundary within the block. 

The entries are essentially the same as the DATATAB entries for the same name. See 
the entries for elementary numeric items in the format of the DATATAB table. OBODOTAB 
entries differ only in that the card-number field is zero and the renaming and 
subscripting information is omitted. Table- locators within the DATATAB entries are used 
to access the OBODOTAB entries. See the subscripting information portion in the format 
of the DATATAB table. 

COUNT-NAME-TYPE FIELD 

NO. Of 
Field Bytes Description 

1 Count field: number of bytes (c) in name 

field 
c Name field: number of bytes/ varies between 

1 and 30 
1 Count field: number of bytes in remainder 
of this entry 
CARDNUM 3 Card number where name is defined 
MAJMIN 1 Type of entry (For description of this field 

see corresponding field in DATATAB table) 

VARIABLE ATTRIBUTES FIELD 

For description of this field see corresponding field in DATATAB table. 



Displacement 


Hex 


Decimal 








1 


1 


1+c 


1+c 


2+c 


2+c 


5+c 


5+c 
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DATATAB TABL E 

The DATATAB table is the third table in the debug data set. It immediately follows the 
last entry of the OBODOTAB table, if that table is present. Otherwise, it follows the 
PROGSUM table.. The DATATAB table lists the characteristics of each data item in the Data 
Division. The table consists of two fields, the Count-Name-Type field and the Variable 
Attributes field. The Count -Name-Type field has the same format for all entries. It 
varies in length from 7 to 36 bytes. The Variable Attributes field differs for each type 
of entry and is described on the following pages. 



COUNT-NAME-TYPE FIELD 



Displacement 

l£ x Decimal 



1 1 
1+c 1+c 

2+c 2+c 

3+c 3+c 

6+c 6+c 



Field 



No. of 

Bytes 

1 



1 



* 1 

CARDNUM 3 
MAJMIN 1 



number of bytes (c) in name 
number of bytes varies between 



Descriptio n 
Count field: 

field 
Name field: 

1 and 30 
Displacement field: Number of bytes from 

this field to TEST field (zeros if TEST 

field is not present) 
Count field: number of bytes in remainder 

of entry 
Card number where name is defined (contains 

zeros for RENAMES items) 
Type of entry 



Bit 



* Note 1 : Number of bytes includes 
the byte field itself, if 
number of entries is not 
equal to zero. 



Bits 


Settinqs 


Meaninq 


0-3 


OOOOXXXX 


Level description under 

FD 
Level Description under 

SD 
Level description under 




0001XXXX 




0010XXXX 






CD 




0100XXXX 


Level description in 
Working- Storage 




0101XXXX 


Level description in 
Linkage 




0110XXXX 


Level Description under 

RD 
FD entry (other than 




1000XXXX 






VSAM) 




1001XXXX 


SD entry 




1010XXXX 


CD entry 




1011XXXX 


FD entry (VSAM) 




XXXX0001 


Organization sequential 




1110XXXX 


RD entry 




1111XXXX 


Index-name 


4-7 


XXXX0001 


Fixed length Group 




XXXX0010 


Alphabetic 




XXXX0011 


Alphanumeric 




XXXX0100 


Variable-length group 




XXXX0101 


Numeric edited 




XXXX0110 


Sterling report 




XXXX0111 


Usage index 




XXXX1000 


External decimal 




XXXXT001 


External floating-point 




XXXX1010 


Internal floating-point 


4-7 


XXXX1011 


Binary 




XXXX1100 


Internal decimal 




XXXX1101 


Sterling nonreport 




XXXX1110 


Alphanumeric edited 




XXXX1111 


RENAMES (level 66) 



SD Ite m: There are no variable attributes for an SD entry. 
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VARIABLE ATTRIBUTES FIELD 



Displacement 

Hex De cimal 

7+c 7+c 



Field 
RENAMES 



No. of 

Bytes 

1 



8 + c 



8+c 



variable 



Descrip tion 

Bit 
Bit Settin g Meaning 
7 XXXXXXX1 Next DATATAB entry 

renames the same item 
as this one does 
XXXXXXXO This is the last (or 

only) item renaming an 
item. 
Field contents are the same as the 
type-dependent portion of the level 
description item for the particular data 
type of the RENAMES item. 



I NDEX name : 
7+c 7+c 
8+c 8+c 



INDFLAG 
INDXCELL 



A+c 10+c 



INDLNG 



Flag 

Bit Setting Meaning 
1 Subject of OCCURS clause 

is variable length, 
next field contains 
VLC number 

1-7 Unused 

Index cell number in TGT 

Length of subject of OCCURS clause or VLC 
number 



FD I tem (VSA M) : 



7+c 7+c 
8+c 8+c 



FIB 


1 


FIB num 


ber 




ORGACC 


1 


ORGANIZATION and ACCESS clauses 






Bits 


Setting 


Meaning 






0-3 


1000XXXX 
0100XXXX 
0010XXXX 


Access sequential 
Access random 
Access dynamic 






6-7 


XXXX0100 
XXXX0010 
XXXX0001 


Organization relative 
Organization indexed 
Organization sequential 



FD I tem (other than VSAM) : 



7+c 
8+c 



7+c 
8+c 



DCBDECB 1 DCB or DECB number 
ACCESSFLG 1 Access method 

Bit 

0-3 



CD Item; 
7+c 7+c 



Settinqs 


Meaning 


OOOOXXXX 


QSAM 


0001 XXXX 


QISAM 


0010XXXX 


BISAM 


0100XXXX 


BSAM 


1000XXXX 


BDAM 


XXXXXXX1 


DECB Number in preceding 




byte 


XXXXXXXO 


DCB Number in preceding 




byte 


1XXXXXXX 


Output 


oxxxxxxx 


Input 
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RD_ I te m : 
7+c 7+c 



LINECTR 



A+c 1C+c 



PAGECTR 



Addressing parameters of line counter; 
contains zeros if line counter is not 
defined 
Bit Settings Meaning 

0-3 0000XXXX BL entry 

0001XXXX BLL entry 
0100XXXX SBL entry 
4-15 Displacement from BL 

16-23 BL Number 

Addressing parameters of page counter (same 
form as addressing parameters above) , 
contains zeros if page counter is not 
defined 



Level Description item : 

Variable attributes for level description items are divided into two portions: (1) the 
type-dependent portion, and (2) subscripting information portion. The subscripting 
information portion is the same for all level description item entries. It follows and 
is described after the type- dependent portion descriptions. 



( 1 ) Type-dependent portio n : 



FIXED-LENGTH GROUP: 












7+c 7+C 


IDKFLD 


3 


Addressing parameters (same form as above) 


A+c 10 +c 


LVLRDEFN 


3 




Bit 










Bit 


Settings 


Meaninq 








0-5 


XXXXXX1X 


Normalized level number 








6 




REDEFINES 








7-23 




Object-time storage size 
(in bytes) 


VARIABLE-LENGTH GROUP: 












7+c 7+c 




3 


Addressing parameters (same form as above) 


A+c 10+c 


MAXSIZE 


3 




Bit 










Bit 


Settings 


Meaning 








0-5 


XXXXXX1X 


Normalized level number 








6 




REDEFINES 








7-23 




Maximum object-time 
storage size (in 
bytes) 


D+c 13+c 


VLCNUM 


2 




Bit 










Bit 


Settings 


Meaning 











1XXXXXXX 


0D0 master 








1-3 




Unused 








4-15 




VLC number 


ELEMENTARY. ALPHABETIC. 


ALPHANUMERIC 


. REPORT 


f EDITED. 


STERLING. 


EXTERNAL FLOATING-POINT: 


7+c 7+c 




3 


Addressing parameters (same form as above) 


A+c 10+c 


JUSTRGT 


3 




Bit 










Bit 


Settings 


Meaning 








0-5 




Normalized level number 








6 


XXXXXX1X 


REDEFINES 








7 


XXXXXXX1 


JUSTIFIED RIGHT 








8-23 




Object-time storage size 
(in bytes) 
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INTERNAL F LO ATING-POINT : 



7+c 
A+c 



7+c 

10+c 



FLPTYPE 



B+c 11+c 



Addressing parameters (same form as above) 



Bit 
0-5 

6 

7 



Unused 



Bit 




Settinqs 


Meaninq 




Normalized level number 


XXXXXX1X 


REDEFINES 


XXXXXXXO 


COMP-1 


XXXXXXX1 


COMP-2 



BINARY, IN DE X INTERNAL DECIMAL, EXTERNAL D ECIMAL : 



7+C 
A+c 



7+c 

10+c 



B+c 11+c 





3 


Address 


ing parameters (same form as above) 


NUMINF01 


1 




Bit 








Bit 


Settinqs 


Meaninq 






0-5 




Normalized level number 






6 


XXXXXX1X 


REDEFINES 






7 


XXXXXXX1 


S in PICTURE 


HUM INFO 2 


2 





1XXXXXXX 
OXXXXXXX 


Leading sign 
Trailing sign 






1 


X1XXXXXX 

xoxxxxxx 


Separate sign 
Overpunch 






2 


XX1XXXXX 

xxoxxxxx 


Significant digits left 
of decimal point 

No significant digits 
left of decimal point 






3 


XXX1XXXX 
XXXOXXXX 


Significant digits right 

of decimal point 
No significant digits 

right of decimal point 






4-8 




If bit 2 equals 1 , 
number of digits to 
left of decimal point. 

If bit 2 equals 0, 
number of digits to 
right of decimal 
point. 






9-13 




If bits 2 and 3 both 
equal 1 , number of 
digits to right of 
decimal point. 

If only bit 2 or 3 

equals 1 , number of Ps 
in picture 






14-15 




Unused 
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(2) Subscripting Information Portio n: 

This portion of the Variable Attributes field begins immediately after the 
type-dependent portion. 

It ranges in size from 2 bytes for an unsubscripted item to a maximum of 20 bytes 
for an item belonging to 3 variable-length groups. 



1 



Guide to RENAMES and subscripting 



Bit 



Bit 



Settings 
1XXXXXXX 


1 


X1XXXXXX 


2 


XX1XXXXX 


3 


XXX1XXXX 



6 

7 



XXXX1XXX 
XXXXX1XX 



XXXXXX1X 
XXXXXXX1 



Meaning 

This item is renamed* 
The next DATATAB entry 
renames it. 

This item contains an 
0D0 clause. 

Item reguires at least 1 
subscript. 

OCCURS clause connected 
with the most 
inclusive or only 
group; or elementary 
item contains an ODO. 

Item reguires at least 
two subscripts. 

OCCURS clause connected 
with the less 
inclusive group of 2 
groups or the middle 
inclusive group of 3 
groups or elementary 
group contains an ODO. 

Item reguires 3 
subscripts. 

OCCURS clause connected 
with the least 
inclusive group of 3 
groups or elementary 
item contains an ODO. 



VLC information 



Bit 




1 



3-6 
7 



Bit 

Settings 

1XXXXXXX 



Meaning 

Most inclusive of 3 
groups or only group 
X1 XXXXXX Less inclusive group of 

2 groups or middle 
inclusive group of 3 
groups 

XX1XXXXX Least inclusive group of 

3 groups 
Unused 

XXXXXXX1 This item contains an 

object of an ODO or is 
the object of an ODO 
clause 
If bits r 1, or 2 eguals 1 , the 
displacement of next occurrence field for 
the associated group contains a VLC number 
(see note 2) . 
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1st subscript 
(if present) 



Number of occurrences (maximum number if 
0D0) specified in OCCURS clause governing 
this item 



(most inclusive 
with OCCURS) 



Displacement of next occurrence 
governed by OCCURS clause (see note 2) 



2nd subscript 
(if present) 



2 Number of occurrences (as above) 

2 Displacement of next occurrence governed by 
OCCURS clause 



3rd subscript 
(if present) 



Number of occurrences (as above) 



(least inclusive 
with OCCURS) 



Displacement of next occurrence 
governed by OCCURS clause 



1st subscript 
with 0D0 
(if present) 



OBODOTAB pointer for most inclusive 
group or elementary item containing 
an 0D0 



Bit Contents 

0*-8 Relative block number in OBODOTAB 
9-15 Displacement with block 
(in fullwords) 



2nd subscript 
with 0D0 
(if present) 
3rd subscript 
with ODO 
(if present) 



OBODOTAB pointer for less inclusive 
group (as above) 

OBODOTAB pointer for least inclusive 
group (as above) 



(3) TEST Fie ld; 

This portion immediately follows the subscripting information and is pointed to by the 
displacement field in the COUNT-NAME-TYPE portion. This field is present only for the 
following data types when the TEST option is in effect: 



External j Floa ting-point : 



Bytes 
1 
2 



Descrip tion 

Count of bytes following 
Bit Meaning 
0-6 Unused 

7 = mantissa blank when positive 
1 = sign plus when positive 

8 = exponent blank when positive 
1 = sign plus whan positive 

9 = implied decimal point 
1 = real decimal point 

10-15 Scale of mantissa 



ALPHANUMERIC EDITED : 



1 Count of bytes following 

1 PICTURE character 

2 Count of consecutive occurrences 

n*3 The preceding three bytes are repeated until 
the entire PICTURE is recorded 
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NUME RIC EDIT ED; 

1 Count of bytes following 

2 Bit Meaning 

1 = Blank when zero 

1 1 = * represents all numeric 

characters 

2 1 = Z or * in PICTURE 

3-7 Number of digit places in item 
8-15 Scaling factor 
2 0-7 Contains PICTURE character (except V 
or P) 
8-15 Contains count of consecutive 
occurrences 
N+2 These bytes are repeated until the entire 
PICTURE is recorded 

Note 1 ; For CR or DB, first character appears in byte 1, the second in byte 2. 

No te 2 ; All subscript length information precedes any OBODOTAB pointers. If the OCCURS 
cluase is applicable, the contents of the displacement field is as follows: 

1. For an elementary item, it is the machine length of that item including any slack 
bytes that precede its next occurrence. 

2. For a fixed-length group, it is the length of the group including any slack bytes 
added at the end of the group before its next occurrence. 

3. For a variable-length group, it is the YLC number for the VLC field which contains 
the number of bytes to the next occurrence. 
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PROCTAB TABLE 

The PROCTAB table contains one 5-byte entry for each card and/or verb in the source 
listing of the COBOL Procedure Division, The table is ordered on three levels: 

1. Priority (in ascending order of independent segments, with the root segment last) 

2. Card-number within priority 

3. Verb-number within card 

The last PROCTAB entry for a priority and for a program fragment has a card and verb 
number of zero. In addition, the relative address field contains the address of the 
first byte following all instructions for the segment with that priority. 

Displacement No. of 

fi§.x Decimal Field Bytes Descrip t ion 

PTCDVB 3 Card number and verb number on source 

listing 

Bit Contents 

0-19 Card number 

20-23 Verb number 

3 3 PTRELAD 2 Relative address of instructions for this 

entry within program fragment to which it 
belongs 



CARD INDX TABLE 

The CARDINDX table is a directory to the SEGINDX table and contains one 5-byte entry for 
each program fragment and one entry for each discontinuity in the COBOL instructions 
within a segment. Entries in the CARDINDX table are in ascending card number order and 
are accessed by indexing through the table seguentially. 

The CARDINDX table starts at the beginning of a block. 

Dis p lacement No. of 

Hex Decimal Field Bytes Descrip tion 

CXCDVB 3 Card number and verb number of first card 

represented by this entry 

Bit Contents 

0-19 Card number 

20-23 Verb number 

3 3 CXPRIOR 1 Priority number associated with this card 

4 4 CXFRAG 1 Relative fragment number within the priority 

to which this card belongs 
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SEGINDX TABLE 



The SEGINDX table contains one 1C-byte entry for each program fragment, 
| ordered on ascending fragment number: 



The table is 



Displacement 
He* Decimal 
~ 



1 



Field 

SXPRIOR 
SXRELAD 

SXPTLOC1 



SXPTLOC2 



NO, of 
Bytes 

1 

3 



Description 

Zero. .;,,.;. 

Address of this fragment relative to the 

beginning of the program 
Table locator for PROCTAB entry of first 

card number and verb number in this 

fragment 

Bit Contents 

0-14 ^Relative block number in PROCTAB 
15-23 Displacement within block 
Table locator for PROCTAB entry of last card 
and/or verb in this fragment 



PROCINDX TABLE 



The PROCINDX table is a summary index of the PROCTAB table and contains one 10-byte entry 
for each block of PROCTAB entries, PROCINDX entries are ordered by relative block number 
in "the PROCTAB table and are accessed by searching seguentially after indexing to a 
starting point determined by the block number from the SEGINDX table. 



Disp la ceme nt 

Hex Decimal 

0" 



Field 
PXCDVB 



No. of 

Bytes 

3 



Description 

Card number and verb number of first entry 
in block of PROCTAB table. 



Bit Contents 

0-19 Card number 
20-23 Verb number 
PXRELAD 3 Address of instructions for this entry 

relative to the beginning of the prograc 
PXDEVADR 4 Device address of PROCTAB table block 

related to this entry. 



BCDPN TABLE 



The BCDPN table is a list of EBCDIC PN names and their corresponding line-numbers. It 
has 1 entry for each PN in the COBOL program. Its maximum length is 27 bytes. It begins 
at the beginning of a block. 



Displacement 
pec Hex 


3 3 

4 4 



Field Name Bytes 

PNLINPNO 3 

PNNUMBYT 1 

PNNAME Var. 



Description 

Line number of PN 

Number of bytes following 

Compressed PN name 
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VSAM FILE INFORMATION BLOCK (FIB} 

The file information block, a portion of the completed object module, is used at 
\ execution time by the ILBOINTO, ILBOVOCO, and ILBOVIOO COBOL library subroutine for 

processing input/output verbs used with VSAM files. The FIB is built by phases 21 and 
| completed by the ILBOVOLO subroutine. 



Displacement 




NO. Of 










Hex Decimal 


Field 


Bytes 


Description 









IF1BID 


1 


FIB identification code (•! 


') 


1 1 


IF1BLVL 


1 


FIB level number 




Fixed portion: 














Displacement 




No. of 










Hex Decimal 


Field 


Bytes 


Description 






~2 2 


INAMED 


7 


External name 




9 9 


INAMECB 


1 


External name 




A 10 


IDEVICE 


1 


Device class and number 




B 11 


IORG 


1 


ORGANIZATION 








Code: 














Equate 


Bit 












Bits Name 


Settinqs 


Meaninq 


Source 






■0-7"" IORVPS 


1000 


1000 


VSAM ADDRESSED 
SEQUENTIAL 


Code=A 






IORGSQO 


1000 


0100 


SEQUENTIAL 


Code=S 






IORGSQN 


1000 


0010 


SEQUENTIAL 








IORGASC 


1000 


0001 


ASCII file 
SEQUENTIAL 


Code=C 






IORGSEQ 


1000 


0000 


SEQUENTIAL 


ORGANIZATION IS 
SEQUENTIAL 






IORGVIX 


0100 


1000 


VSAM INDEXED 








IORGINO 


0100 


0100 


INDEXED 


Code=I 






IORGIND 


0100 


oaoo 


INDEXED 


ORGANIZATION IS 
INDEXED 






IORGVRL 


0010 


1000 


VSAM RELATIVE 








IORGRLO 


0010 


0100 


RELATIVE 


Code=R 






IORGDIR 


0010 


0010 


DIRECT 


Code=D 






IORGDIW 


0010 


0001 


DIRECT (WRITE/ 
REWRITE) 


Code=W 






IORG RE L 


0010 


0000 


RELATIVE 


ORGANIZATION IS 
RELATIVE 



IORGVSAM 0000 1000 VSAM File 



I C 



12 



| D 13 



I ACCESS 


Code: 


1 

Equate 


ACCESS MODE 
Bit 






Bits 


Name 


Settinqs 


Meaninq 




0-7 


IACCESQ 


1000 0000 


SEQUENTIAL 






IACCRAN 


0100 0000 


RANDOM 






IACCDYN 


0010 0000 


DYNAMIC 


IRCDMODE 




1 


RECORDING MODE 




Code: 


Equate 


Bit 






Bits 


Name 


Settinqs 


Meaninq 




0-7 


IRCDFIX 


1000 0000 


FIXED 






IRCDVAR 


0100 0000 


VARIABLE 






IRCDUND 


0010 0000 


Undefined 



IRCDSPN 0001 0000 SPANNED 
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Displacement 
Hex Decimal 
|E 14 





No 


. of 




Field 


Bytes Description 


ISW1 


Code: 


1 


Miscellane 






Equate 


Bit 




Bits 


Name 


Settings 




0-7 


ISOPTNL 


1000 0000 






ISBLKED 


0100 0000 






ISSAMREC 


0010 0000 






ISSAME 


0001 0000 






ISLBOMIT 


0000 1000 






ISLBSTAN 


0000 0100 






ISLBUSER 


0000 0010 



Meaning 

OPTIONAL specified 

File is blocked 

SAME RECORD AREA specified 

SAME RECORD specified 

LABEL RECORDS ARE OMITTED 

LABEL RECORDS ARE STANDARD 

LABEL RECORDS ARE dataname 



15 



ISW2 



Miscellaneous switches 



Code: 



Bits 
0-7 



Equate 

Name 

ISADVAN 

IS POSIT 

ISAFTER 

IS BEFORE 

ISNOSPAC 



Bit 

Settings 

1000 0000 

0100 0000 

0010 0000 

0001 0000 

0000 1000 



M eaning 

WRITE ADVANCING 

WRITE POSITIONING 

WRITE AFTER 

WRITE BEFORE 

WRITE WITHOUT SPACING 



10 


16 


11 


17 


12 


18 


13 


19 


14 


20 



ISW3 

ISW4 

IAPPLY1 

IAPPLY2 

IBLKLEN 



16 


22 


IRECLEN 


2 


18 


24 


IRECDBL 


2 


1A 


26 


IRECNBL 


1 


1B 


27 


IRESERVE 


1 


1C 


28 


ISTATDBL 


2 


1E 


30 


ISTATDDN 


2 


20 


32 


ISTATLDN 


2 


22 


34 


IKEYISW 


1 


2 3 


35 


IKEYNO 


1 


24 


$6 


IKEYFNTL 


2 


26 


38 


IPSWISW 


1 


27 


39 


IPSWNO 


1 


28 


40 


I PS WE NT! 


2 


2A 


42 




14 


38 


56 


IMISCAD 


4 


3C 


60 


ILABELAD 


4 


40 


64 


IKEYLSTA 


4 


44 


68 


IPSWLSTA 


4 


| 48 


72 




16 
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Unused 

Unused 

APPLY statements 

APPLY statements 

If 'BLOCK CONTAINS (integer-1 TO) integer-2 

CHARACTERS" , field contains integer-2. 
If 'BLOCK CONTAINS (integer-1 TO) integer-2 

RECORDS, field = integer-2 x (IRECLEN + 

control) + control + IASBFO 
Where control = (Recording mode F or U) 

= 4 (Recording mode V, S, or D) 
IASBFO = (Non-ASCII file) 

= Buffer offset (ASCII file) 
If BLOCK CONTAINS clause is omitted, field 

contents are same as for 'BLOCK CONTAINS 1 

RECORD' . 
Number of bytes in longest 01 -entry 
Displacement in TGT of record's first base 

locator cell 
Number of base locators for RECORD AREA 
Reserve integer areas 
Displacement in TGT of base locator for STATUS 

data-name 
Displacement from base locator of STATUS 

data -name 
Length of STATUS data-name 
Miscellaneous switches 
Number of entries in key list 
Length of each entry in key list 
Miscellaneous switches 
Number of entries in password list 
Length of each entry in password list 
Reserved 
Address in variable length portion of FIB for 

miscellaneous clauses 
Address of labeling information block 
Address in variable length portion for first 

Key list entry 
Address in variable length portion of first 

password list entry. 
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Variable Length Po rtion : 

Supplementary Information for Miscellaneous Clauses (one for each clause) : 



Displacement 
Hex Decimal 



F ield 
IMSW1 



No. of 

Bytes 

2 



Description 
Switch bytes 

Code: 



IRERUNI 



IRERUNN 



Equate 
Bits Name 
0-7 IMRREOV 

8-15 



Bit 

Settings 
1000 0000 



M eaning 

RERUN at end of 

volume 
Unused. 



RERUN integer (Field contains zeros if RERUN 
not specified) 

Slack bytes 

External-name of RERUN clause 



Indexed Record Ke y List : 
| IKEYSW 



I £a r am e t e r_L is t : 




IRKEYLDN 
IKEYDBL 

IRKEYDDN 



IPSWDIXN 



IPSWDLDN 
IPSWDDBL 

IPSWDDDN 



Miscellaneous switches 



Code 
Bits 
0-7 



Equate 

Name 

IKEYCOMP 

IKEYDUP 

IKEYID 



Switch 
Bit 

Setting s 
1000 0000 
0100 0000 
0010 0000 



Meaning 

KEY is usage comp (binary) 
WITH DUPLICATES specified 
KEY is 1 internal decimal 



1 Length of RECORD" KEY data name 

2 KEY is data names location, displacement in 

TGT. 
2 Displacement in record of RECORD KEY Record. 
Key information follows for each ALTERNATE 
RECORD KEY specified. 



Associated index number 

= none 

1 = prime 

2 = first alternate 

3 = second alternate 



n = (n-1)th alternate 
X^F 1 = no password 

1 Length of password data- name. 

2 PASSWORD data name^ locator; displacement 

in TGT. 
2 PASSWORD data name»s displacement off 

locator. 
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SECTION 6. DIAGNOSTIC AIDS 



This section contains aids for diagnosing 
errors that may have occurred in the 
compilation process. These aids are 
arranged under the following categories: 

1. Procedure for applying the service aid 
program IMASPZ&P in the event that 
certain disaster level error messages 
are generated by the compiler. 

2. Compiler response to the findings of 
the system standard error recovery 
program. 

3. Data set activity. 

4. Register usage by each phase and 
execution-time register assignment. 

5. Elements of program design that can 
help determine from a dump the stage 
of processing at which compilation has 
halted due to compiler error. 



PROCEDURE TO FORCE CORE DUMP 



Routine 


Data Set 


SYAA 


SYSLIB 


SYAB 


SYSUT1, SYSUT2, SYSUT3, 




SYSUT4, SYSUT5, SYSUT1 




(dictionary spill) , SYSIN, 




SYSPRINT (SYSUT6 for LVL 




option) , SYSPUNCH, and 




SYSLIN 


SYAD 


SYSTERM 



When an error of this type occurs, phase 00 
terminates compilation immediately. 

As part of its initialization operations 
phase 02 saves the exit list in each DCB 
(which may have been overridden by a DD 
card for OPEN statement processing. It 
inserts the addresses of its own routines, 
and then attempts to open each data set to 
test whether it is present and operative. 

Routines starting at location EDIT check 
for such items as valid block size and 
insert default values if they are invalid. 
Routine 0PEN0K checks whether each data set 
can indeed be opened. Routine NODS1A then 
calls phase 00 , placing a B in the X 
parameter when compilation is to be 
terminated. 



In certain cases, the DUMP option will not 
result in a storage dump. Using the SPZAP 
service aid program, you can force a 
storage dump with the following procedure: 

1. Locate the label TRMNATE in phase 
IKFCB100, CSECT PH0SECT2. 

2. Verify that its contents is X , 9620 l , 
then replace the contents with 
X«0000«. 

More information on the SPZAP service 
aid program can be found in QS/V S Service 
Aids. 



Error messages are generated and placed 
in a table by routine QUE. When phase 02 
has completed its processing, routine PRINT 
is called to write the message on SYSPRINT 
and SYSTERM if the TERM option is in effect 
or on SYSUT6 if the LVL option is in 
effect. Phase 02 then returns control to 
phase 01 which returns control to phase 00. 

If neither SYSPRINT nor SYSTERM can be 
written on, messages are written on the 
console. If one of the two data sets can 
be written on, messages are written on that 
data set. 



COMPILER DATA SET ACTIVITY 



RESPONSE TO SYSTEM ERROR RECOVERY FINDINGS 



Phases 00 and 02 interface with the system 
for compiler input/output operations and 
may, in the process, receive findings of 
the system error recovery program. In the 
case of phase 00, the SYNAD field of the 
DCB for each data set contains the address 
of a routine that generates an error 
message for that data set. The SYNAD 
routines associated with the data sets are 
as follows: 



The compiler's use of data sets is shown in 
Figure 5 in the chapter "Phase 00." This 
table relates the phases and phase 
interludes to their requests that specific 
data sets be opened, written on, read from, 
or closed. 



REGISTER USAGE BY EACH PHASE 



The manner in which each phase uses 
registers is described in Figure 67. 
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i r 

Register 



Phase 



Use 



00 (IKFCBL00) 



0-1 



Work, 



Address of data to be put out on any PUT (WRITE) 



Length of data for PUT (WRITE) 



Work- 



Base for PH0SECT2 CSECT. 



Base for IKFCBL00 CSECT. 



Points to buffer control block for logical input/output. 



Points to buffer control block for physical input/output. 



Return address minus 2 (linkage parameters) 



Address of file pointers (POINT TABLE) for the data set on 
which input/output is currently being performed. 



10 



File number multiplied by 4, 



11 



Linkage. 



Base register for TBCOMM. 



12 



Linkage. 



Base register for START. 



Base register for TBDATA. 



13 



LINK/RETURN information input/output reguest. 



14 



Linkage. 



Work. 



15 



Linkage. 



h 



Work. 



Base for PH0TBST1. 



01 (IKFCBL01) 



Unused. 



Linkage to phase 02. 



Linkage to phase 00. 



Address of phase 00 parameter list. 



3-4 



Unused. 



Base for CSECT IKFCBL01. 



6-12 



Unused. 



13 



Points to phase 01 save area. 



14-15 



Unused. 



-A- 



Figure 67 (Part 1 of 12) . Register Usage According to Phase 
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r „____ , T , 1 

I Phase | Register | Use | 


| 02 (IKFCBL02) | \ Linkage to phase 00. | 


1 1 (Work. | 


I I 1 | Linkage to phase 00. | 


I I I Work. | 


I | 2-4 | Work. | 


I { 5 (Base for CSECT IKFCBL02. | 


I | 6 | Address of buffer control block. I 


I I 7 (Work. | 


I I 8 | Address of DCB. | 


I | 9 | Work. | 


I I 10 | Points to COMMON in phase 00. | 


I I 11-12 | Work. | 


I I 13 J Base for CSECT IKF021. | 


I | 14 j Internal linkage. j 


I I (Work. t 


I | 15 | Internal linkage. | 


I I | Work. j 


I 03 (IKFCBL03) | 0-5 | Work. | 


I | 6-10 | Unused. | 


I I 11 j Base for instructions. j 


j | 12 | Base for COS. | 


I I 13 (Base for constants. j 


I | 14-15 I Linkage. j 


| 04 (IKFCBL04) | 0-7 |Work. | 


I I 8-12 j Base registers. | 


I j 13-15 | Save area's linkage. j 



Figure 67 (Part 2 of 12) . Register Usage According to Phase 
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I 1 T ■ 1 

| Phase | Register | Use | 


| 05 (IKFCBL05) | 0-3 |Work. | 


| | 4-8 | Not used, | 


| | 9 |Base for COS/COMMON in phase 00, | 


| | 10-13 | Base for phase 05 SAVE-AREA, data areas, language tables, j 
I | jand all code. j 


| | 14 | Major linkage, work. | 


I I 15 (Subordinate linkage, work, I 


| 06 (IKFCBL06) | |Work. | 


I I 1 | Returns most subroutine results, work. | 


j | 2 | Pointers to or addresses of structure table entries, work. | 


I I 3 | Work. 1 


I | 4-5 {Carry values over long spans, work. I 


I | 6-9 |Not used. | 


I | 10 | Base for current IP-text input item. I 


I I 11 I Not used. | 


I | 12 | Base for COS/COMMON in phase 00. I 


I J 13 j Base for SAVE-AREA, data, and code. j 


I | 14 | Linkage for all major subroutines. j 


j | 15 j Linkage for other subroutines, contains arguments for some, j 


| 08 (IKFCBL08) | 0-3 |Work. | 


I | 4-8 | Not used. | 


I 8 9 j Base for COS in phase 00 f 


I | 10-12 jBase for first 12K of instructions and constants. (Value of| 
I | I R10 is 4096 greater than contents of R13.) | 


I | 13 I Base for system save area and declared data areas. j 

1 fc— ~ — — ———»-. i—T ,- , . . Ul..' . 1 I"" ..„< 1 


1 1""" 1 i 

I | 14 | Linkage. | 


I I 15 j Explicit argument and/or function. | 



Figure 67 (Part 3 of 12). Register Usage According to Phase 
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| Phase 



Register 



Use 



10 (IKFCBL10) 



Work. 



Points to COMMON in phase 00. 



2-7 



Work, 



During Data Division processing, base of CSECT IKF112 
(FLUSH). 



At other times, work. 



During Data Division processing, base of CSECT IKF107 
(LETTER) . 



10 



Permanent base for IKF104 (COBWRD) 



11 



Permanent base for IKF103 (GETWD) 



12 



Permanent base for IKF10 2 (IDDIV1) . 



13 



Permanent base for IKF101 (PH1S&V), pointing directly to the 
phase 10 save area in that CSECT. 



14 



Linkage,, 



15 



Linkage to TAMER. 



Temporary base for subroutines: 

Us ed to address in CSECT 

PROC01 ~~ IKF113 

DDSCN IKF110 

ENVSCN IKF114 

LEVELQ IKF116 

FILCOQ IKF116 

SADSNQ IKF116 

IDDSCN IKF115 

UNL¥SN IKF106 

PROHAQ IKF108 



| .12 (IKFCBL12) 

1 

I 



Work. 



Points to COMMON in phase 00. 



2-7 



Work. 



During Data Division processing, base of . CSECT IKF112 
(FLUSH) . 



At other times, work. 



During Data Division processing, base of CSECT IKF111 
(RDSCAN) or base of CSECT IKF107 (LETTER). 



10 



Permanent base for IKF104 (COBWRD) 



11 



Permanent base for IKF103 (GETWD) 



I 



12 



Permanent base for IKF102 (IDDIV1) 



Figure 67 (Part 4 of 12) . Register Usage According to Phase 
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r - '■ -i t — — — 1 

| Phase | Register | Use I 
£31 J 


| 12 (IKFCBL12) | 13 (Permanent base for IKF101 (PH1 SAV) , pointing directly to the| 
| (continued) | | phase 12 save area in that CSECT. | 


j | 14 jlinkage. j 


I | 15 | Linkage to TAMER, | 


1 | JTemporary base for subroutines. j 


| 1B (IKFCBL1B) | | Work, | 


I | 1 | Points to COMMON in phase 00, | 


I | 2-8 | Work. | 


I | 9 | Base of IKF109 (EXHSVB) • | 


I | | Base of IKF107 (LETTER). | 


I | 10 | Base of IKF104 (COBWRD) . | 


I | 11 | Base of IKF103 (GETWD) . | 


I | 12 | Base of IKF102 (IDDIV1) . | 


I | 13 | Base of IKF101 (PH1SAV), pointing directly to the phase 1B | 
I | | save area in that CSECT. I 


j | 14 j Linkage. | 


I | 15 (Linkage to TAMER. | 


I j | Addressability to IKF107 (PDSCN) and temporary j 
| | | addressability to IKF109 (YARPQ) and to IKF106 (UNLVSN) . | 


| 20 (IKFCBL20) | 0-6 |Work. | 


I j 7 | Address of input buffer area. j 


I | 8-10 |Work. | 


j | 11 | Address of COMMON, except during ACCHET routine. | 


I I 12 |Work. | 


I | 13 | Pointer to save area. I 


I | 14 j Branching. j 


I | 15 | Base for all routines. j 



Figure 67 (Part 5 of 12) . Register Usage According to Phase9 
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r~ ~ r "- -t -' ■■ ■ - 1 ■"■ : ■ ■ i 

| Phase | Register | Use I 


| 21 ((IKFCBL21)| 0-1 |Work. I 


| I 2 | BUFTAB pointer. I 


| | 3-6 | Work, I 


| | 7 | Data IC-text pointer I 


| | 8 | Work, I 


| | 9 |FDTAB pointer. j 


| | 10 IPIOTBL pointer. I 


I | 11 | Address of COMMON in phase 00. I 


| | 12 | Base of PERMCODE . I 


| | 13 {Pointer to save area. I 


| | 14-15 j Linkage. I 


| 22 (IKFCBL22) | 0-6 |Work. I 


| j 7 | Address of input buffer area. I 


| | 8-10 | Work. I 


j | 11 | Address of COMMON, except during ACCMET routine. | 


| | 12 |Work. | 


j | 13 | Pointer to save area. I 


| | 14 j Branching. I 


| | 15 | Base for all routines. I 


| 25 (IKFCBL25) | 0-8 |Work. I 


| | 9 | Base for SYMDICT DSECT. I 


| | 10 IPoints to COMMON in phase 00. I 


j | 11 (Permanent base for first CSECT IKF251. j 


| | 12 | Permanent base for second CSECT IKF252. I 


| | 13 j Permanent base for data CSECT IKF25A. j 


I I 14 | Linkage. I 


| | 15 | Linkage. I 
i i i— f 


| | JBase for ACCESS routines. I 



Figure 67 (Part 6 of 12) . Register Usage According to Phase 
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!_ - .- T - .- T ..._ . . . . - -. , , 

| Phase | Register | Use I 


| 3 (IKFCBL30) | |Work. | 


| 1 1 | Frequently contains dictionary pointer to the entry | 
| I | currently being processed, I 


| | 2 | Frequently points to the start of attributes in the j 
| | | dictionary entry currently being processed. | 


I | 3 | Frequently contains dictionary pointer to the entry | 
| | | currently being processed, I 


| | 4-6 |Work. | 


j j 7-10 j Permanent bases for all routines and data. j 


| | 11-12 I Rarely used (except by TAMER routines). I 


j | 13 | Pointer to save area. j 


| | 14-15 | Branching to ACCESS routines. I 


| 35 (IKFCBL35) | 0-10 |Work. I 


j | 11-12 (Permanent bases for all routines. | 


j | 13 | Pointer to SAVE AREA, base for most of data area. | 


j | 14 I Branching; vork. I 


| | 15 | Linkage; work. j 


| 4 (IKFCBL40) | 0-6 | Work; used by verb analyzers, subroutines, and phase | 
j | | controller. Register 5 also used by arithmetic routines | 
I | | to save input buffer pointer while scanning SETTBL. | 


j I 7-11 jpermanent bases for the nonverb analyzer routines: phase | 
| j j controller, subroutines, and data area. I 


j | 12 j Points to current element, either in input buffer or SETTBL. j 


I j 13 junused. I 


| I 14 | Branching. I 


I | 15 | Temporary base register for the verb analyzer currently in | 
I I j control. | 


I | | Linkage to TAMER. j 



Figure 67 (Part 7 of 12) . Register Osage According to Phase 
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r m,m - '-■- — r * y™ " ■*"- -*■ -"" • — -■"-■" "i 

| Phase | Register | Use I 

i ... „ ,. i ■ .,, i . „ , Ll L . , , ,,,.., ■ ■■■■■■,'" ■ ■ , ,,,.,, i 


I 45 (IKFCBL45) | 0-1 |Hork. I 


I I 2-3 | Parameter registers between internal subroutines, | 


I I 4-8 | Work. | 


I I 9 jpointer to current text element (DOP) . I 


I | 10 |Points to COMMON in phase 00. I 


I | 11-12 jpermanent base for control routine, verb analyzer, and j 
I | j subroutines. I 


I [13 jpermanent base for CSECT containing constants. I 


I I 14-15 ILinkage. I 


| 50 (IKFCBL50) | 0-6 |Work. I 


I j | 7 . | Base of first CSECT in the phase, beginning with PH5CTL. | 


I I 8 j Base of second CSECT, beginning with XINSCN. I 


I | 9 | Temporary base for verb analyzer routines beyond the third j 
| || CSECT. | 


I I 10 (Points to COMMON in phase 00. I 


I I 11 | Base of third CSECT, beginning with A-text Generator. j 


I | 12 [Base of phase 50 constant area (next-to-last CSECT). | 


I | 13 | Base of phase 50 data area (last CSECT) . I 


I I 14 ILinkage. I 


I I 15 | Temporary base for some routines called by verb analyzers. j 


| 51 (IKFCBL51) | 0-6 |Work. I 


I I 7 | Base of first CSECT in the phase, beginning with PH5CTL. | 


I I 8 | Base of second CSECT, beginning with XINSCN. I 


I | 9 | Temporary base for verb analyzer routines beyond the third | 
I I | CSECT. I 


I I 10 (Points to COMMON in phase 00. I 


I I 11 (Base of third CSECT, beginning with A-text Generator. | 


I j 12 | Base of phase 51 constant area (next-to-last CSECT). | 


I j 13 | Base of phase 51 data area (last CSECT). I 


I I 14 | Linkage. I 


I | 15 (Temporary base for some routines called by verb analyzers. j 



Figure 67 (Part 8 of 12) . Register Usage According to Phase 
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I I T " ~ - "- - " 1 

| Phase | Register | Use | 


| 6 (IKFCBL60) | 0-3 |Work. | 


1 j 4 | Input for Optimization A-text. | 


1 | 5-7 IWork. | 


I | 8 JBase for the following CSECTs: | 

I | 1 IKF60T-- Performs phase initialization (switches, work | 
I II areas, etc.) ; * | 
I I I IKF602, IKF603 — Processing Listing A-text and Procedure | 
I | | A-text, j 


I | 9 |Points to COMMON in phase 00. I 


I | 10 | Base for the following CSECTs: j 

I | I IKF602 — Processes Optimization A-text | 
I | | IKF604 — Processes Procedure A-text and Data A-text; j 
I | | generates initialization routines. | 


I | 11 | Base for IKF60 5 constants. | 


I i 12 |Base for CSECT (IKF60T and IKF603) . j 


I | 13 | Points to phase 6 save area; base for CSECT containing | 
I | | constants (IKF 606) . | 


I | 14-15 | Linkage to subroutines. | 


| 62 (IKFCBL62) J 0-3 jWofk. | 


I | 1 (Input for Optimization A-text and Procedure A-text. | 


I | 5-7 |Work. | 


I | 6 | Base for the following CSECTs: j 

I | | IKF62 — Performs phase initialization (switches, work | 
I | | areas, etc.) ; processes the TGT and Optimization A-text. | 
j 1 1 IKF623 --Processes Procedure A-text j 


I | 9 IPoiiits to COMMON in phas^e 00 | 


1 | 10 | Base for the following CSECTs: j 

I | | IKF62-- Performs phase initialization (switches, work | 
1 j | areas, etc.) , processes the TGT and OPT A-text. j 


j ] 11 iworkV i 


I | 12 ? |Base for CSEGT containing constants IKF625. | 


I | 13 IPoiiits to phase 62 save area. j 


I | 14-15 | Linkage to subroutines. I 



Figure 67 (Part 9 of 12) .Register Usage According to Phase 
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t Phase j Register | Use | 


f 63 (IKFCBL63) | 0-10 | Work. | 


1 I 11 | Address of COMMON in phase 00/ | 


I I 12 J Base for IKFCBL6 3. I 


j j 13 | Save area and constants. | 


I I 14 | Return address for internal subroutines. j 


I I 15 | Address of internal subroutines. I 


| 64 (IKFCBL64) | 0-3 J.ffork. | 


I I 4 | Input for Procedure A-text, Data A-text, and E-text. j 


I I 5-7 | Work. | 


I | 8 | Base for the following CSECTs: . I 

I I | IKF64 — Performs phase initialization (switches, work | 
j I | areas, etc) I 
j I j IKF643 -- Processes Procedure A-text j 


I I 9 {Points to COMMON in phase 00. I 


j I 10 | Base for the following CSECT: I 

I I | IKF644 -- Processes Procedure A-text and Data A-text; j 
I I | generates initialization routines. I 


I I 11 | Work. | 


I I 12 |Base for CSECT containing constants IKF645. | 
i i_« __ j > 


1 If— — ^ V | | 

I I 13 | Points to phase 64 save area (IKF6455) . I 


I I 14t15 j Linkage to subroutines. j 


I 65 (IKFCBL65) J 0-3 {Work. I 


I I 4 | Input for Debug-text and for generating (TXTCRD) DSECT. j 


I I 5-7 | Work. | 


I I 8 |Base for CSECT IKF651. I 


I I 9 | Points to COMMON in phase 00. I 


I I 10 | Base for CSECT IKF652. I 


I | 11 | Work, | 


I I 12 | Points to PROCTAB entries. I 


I | 13 |Points to phase 65 save area; base for phase 65 constant | 
I [ | CSECT IKF653. | 


I I 14-15 | Linkage to subroutines. | 



Figure 67 (Part 10 of 12) . Register Usage According to Phase 
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| Phase | Register | Use | 


| 6A (IKFCBL61) | |Work. | 


I I | Return address when phase 6A has branched to phase 00, j 


| | 1 | Work. | 


I | | Base for input DSECT. | 


I 1 2 I Work. | 


I | | Pointer to data record being formatted. j 


I | 3-9 |Work. | 


| | 10 | Base for IKF6A02. | 


| | 11 | Points to COMMON in phase 00. | 


| I 12 | Base for CSECT IKF6A01. | 


I | 13 {Points to phase 6A save area (IKF6A01A). | 


| | 14 | Return address for internal subroutines. j 


I | 15 (Work. | 


I | [Address of internal subroutines. | 


| 70 (IKFCBL70) | 0-4 |Work. | 


I | 5 | Points to message in message table during processing of most| 
j | | messages. | 


I | 6-7 | Work. | 


I | 8 | Base for phase instructions. | 


I | 9 (Points to COMMON in phase 00. | 


I | 10 | Base for most constants. | 


| | 11-14 |Work. | 


I | 15 | Base for PUT # CONVERT, GET, STRING, and XPRIME routines. | 



Figure 67 (Part 11 of 12). Register Usage According to Phase 
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J— ■ 1 

| Phase | 


"-1 

Register | 


— — ■ ■■ - ■■ ■ —■' " — - — ■■ — — — ■ ■ — i 

Ose | 


| 80 

| (IKFCBL80-8D) I 





Work. 


» 




1 I 


Base for IKFCBL80. I 




Work. 1 




2-3 I 


DCB pointer for IKFCBL80. 


- n 




Work. 


« 




Base for IKFCBL8C. j 




4 


DTF pointer for IKFCBL80. | 




Base for IKFCBL8C. I 




Work . 1 




5 | 


Base for IKFCBL8C. 1 




Work. 1 




6 I 


Internal link for IKFCBL8B, IKFCBL8C/ and IKFCBL8D. | 




Work. I 




7-9 


Work. I 




I 10 


DCB pointer for IKFCBL84, IKFCBL86, and IKFCBL8D. | 




11 


DCB pointer for IKFCBL8D. j 




Work. 1 




12 


Points to FIPSVT (FIPS vector table) . | 




| 13 


Save. j 




14 


Link, I 




I 15 


Base. 





Figure 67 (Part 12 of 12). Register Usage According to Phase 
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REGISTER ASSIGNMENT 



The compiler assigns registers for use at 
execution time according to the general 
rules indicated in Figure 68, When the OPT 
option is in effect, the register 
assignment is that indicated in Figure 69. 
The DMAP, PMAP, or CLIST option causes the 
permanent register assignments for the data 
areas to be printed out along with the base 
locators associated with them. 



3. Where are registers saved uhen one 
phase calls another, and what are 
their contents? 

4. Where are the buffers that are being 
used, and what do they contain? 

5. Where are the tables that are being 
used? 



£2MBil^£~S rror Messag es 



r 1 

Register | Assignment 



H 

0-5 (Work 

6 | Pointer to beginning of 

| Working- Storage 
7-11 | Pointers to FDs and then 

I remainder of Working-Storage 
(areas, if needed 

12 (Pointer to PGT 

13 | Pointer to TGT 

14,15 JTemporary base registers 

I L_. , , - „ 

Figure 68. Register Usage at Execution 



Certain error messages are issued only in 
case of compiler error. These messages 
take the following form: 

IKFpnnnl-D COMPILER ERROR. 

COMPILATION WILL NOT BE COMPLETE. 

where p is the phase number and nnn is the 
message number. Figure 70 explains the 
conditions which cause these messages to 
occur. 



Register | Assignment 



H 

0-5 | Work 

6-9 JAssigned in the following 

| order: 

| First, TGT or PGT OVERFLOW 

Icells 

| Then, most used BLs or BLLs 

10 (Assigned to PGT OVERFLOW cell 
| if another OVERFLOW cell 
(results from allocation of the 
(PROCEDURE BLOCK cells or 
(assigned to next most used BL 
(or BLL 

11 (PROCEDURE BLOCK base register 

12 (Pointer to PGT 

13 (Pointer to TGT 

14,15 (Temporary base registers 
i j 

Figure 69. Register Usage at Execution 
(OPT) 



ELEMENTS OF PROGRAM DESIGN 



Elements in the design of the compiler can 
be used to determine a number of facts when 
analyzing a compiler error: 

1. What conditions will cause the 
compiler itself to issue a message 
indicating compiler error? 

2. Which phase is currently processing 
when an error terminates compilation, 
and which record is it processing? 





ABEND 


Phase 
00 


Code 
000 




001 




002 




006 




007 



ABEND CODES 



If the DUMP option is specified, the 
following ABEND codes will appear (a 
description of the condition causing the 
ABEND, and the phase issuing the ABEND 
appear) : 



Description 

SYSLIB SYNAD error 

SYSUTs files SYNAD error 

System SYNAD error 

Need larger size 

DICOT entry not found for 

section. Spill request not 

met. TAMER request for 

non-printed table at TBL less 

than at MASTAM. 

Table size over 32K 

Fragmented core 

RENAMES error; occurs when 

IKFCBL22 is trying to 

calculate the length of an 

item with a RENAMES THRU 

clause and an error exists in 

the dictionary attributes in 

the characteristics of the 

object. 

Unrecognizable input, text 

from IKFCBL22. 

Last item referenced by 

ACCESS was elementary. 

Q-bit on, but pointer less 

than QVAR table pointer. 

Q-bit on, but no match in 

QVAR table.. 



22 



21 



30 



008 
009 
220 



210 



312 



313 



314 
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ABEND 
Phase Code 
316 



317 
319 
337 



35 



40 



339 

340 
341 

400 



45 


450 


50 


501 




502 




506 



507 
508 





509 




512 


60 


605 


62 


062 



D escriptio n 

LATGEP return code 12 for 

CORRTR or end of table in 

INCRAV. 

Illegal minor code for 

data-name reference. 

Illegal level number for 

data-name reference. 

DEBUG-ITEM not in dictionary. 

0FD verb does not follow UFD 

section PN definition. 

UFD verb does not follow UFD 

section PN definition. 

No UFD verbs in declaratives. 

UFD operands not followed by 

BCD literal. 

Zero length items found in 

P1-text or source error in 

arithmetic, while processing 

SETTBL. 

Unexpected verbs, 

unrecognizable input or 

missing subscript string. 

Error allocating even-odd 

pair of registers. 

Invalid subscript. 

Invalid data-type for sending 

field. 

Invalid operand 1 or 2 for 

arithmetic verb. 

Invalid floating point 

conversion. 

Invalid subscript combination. 

No match for IR in table. 

Error found processing input. 

Error found processing input. 



63 


063 


64 


601 




602 




603 




604 




605 




606 




6 08 




609 




613 




614 




615 




616 




617 




618 




619 




621 




622 




623 




624 




625 




626 




627 




628 




643 


65 


065 


70 


070 



Error found processing input. 

Ox element, x * 0, 1 or 4. 

4C element, no PNATBL entry. 

4C element, PN number less 

than table PN number. 

4C element, PN number greater 

than table PN number. 

50 element, GN number less 

than GNATBL GN number. 

50 element, GN number not in 

GNATBL. 

44 element, code is less than 

or equal to 68 and invalid. 

GN number not found in 

QGNTBL. 

B02C found. 

4400 found. 

88xx or 8Cxx found, xx = 00 

or 06. 

8809 or 8C09 found. 

6438 found. 

644C found. 

8418 found. 

8420 found. 

8424 found. 

8448 found. 

8450 found. 

8454 found. 

8800 or 8C00 found. 

8806 or 8C06 found. 

78IPDDKK, found. KK * 00, 01, 

04, or 06. 

Error found processing 

deftext. 

No SEGINDX table entries. 

Error processing E-text. 
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Message 



Explanation 



IKF0020I 

IKF19I 

IKF192 

IKF1009 

IKF1010 

IKF1090 

IKF1114 

IKF1198 

IKF2074I 

IKF2152I 

IKF2256 

IKF3012I 

IKF3013I 

IKF3014I 

IKF3016I 

IKF3017I 

IKF3019I 

IKF3020I 

IKF3037 

IKF3039 

IKF3040 

IKF3041 

IKF4068I 

IKF4088I 

IKF4142I 

IKF4143I 

IKF5001I 



Due to a logic or machine error , a TAMER routine cannot satisfy a table 
handling request. 



Maximum card number exceeded, 
10, 12, 1B. 



NOM option canceled. Issued by phase 02, 



SYMDMP or TEST option canceled due to NDM sequence error. Issued by phase 
02, 10, 12, 1B. 

BASIS library not available. 

Unused end of data of SYSIN during phase 04 processing. 

Library load error during BASIS processing. No member or bad block. 

No library member or BASIS card. 

Insufficient compiler workspace for COPY-BASIS processing. 

Illegal minor code field for a RENAMES entry. 

Unrecognizable input to phase 20, 22, or 21. Skipped to next phase. 

Illegal entry in UPSI table. 

No matched DCB in the QFILE table for a file. 

Pointer to dictionary entry less than the QVAR table entry for an 
elementary item. 

No match found in the QVAR table for an elementary item. 

Error in processing a CORRESPONDING option. 

Invalid minor code field in dictionary entry. 

Invalid level found while processing glossary. 

Report name is invalid as used. Discarded. 

DEBUG-ITEM not in dictionary when expected. 

Unexpected verb follows USE FOR DEBUGGING Section Paragraph name. 

NO USE FOR DEBUGGING declaratives. 

Unexpected input follows USE FOR DEBUGGING operand. 

Undefined data attributes. 

Procedure IC-text count field is 0. Skipped to phase 50. 

Unrecognizable input on SYSUT2. 

Logic error. A subscript in the SSCIN string has been lost. 

Logic or machine error while trying to assign a double register. 



Figure 70 (Part 1 of 2) . Error Messages Indicating Compiler Error 
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Message 



Explanation 



IKF5002I 
IKF5005I 
IKF5006I 
IKF5007I 
IKF5008I 

IKF5009I 

IKF5012I 

IKF6003I 
IKF6005I 
IKF6008I 
IKF6010I 



Logic or machine error while processing a subscripted or indexed data-name. 

Logic or machine error while processing a MOVE statement. 

Logic or machine error. Unexpected input to the MOVE or STORE processor. 

Logic or machine error. Unexpected input to the arithmetic code generator. 

Logic or machine error. Unexpected input to the floating-point arithmetic 
routine FPCVBH. 

Logic or machine error. Lost subscript or index identifier in the XSSNT 
table. 

Logic or machine error. Lost intermediate result attributes in the XINTR 
table. \ 

Unknown Data A-text code found while processing on SYSUT4. 

Error found while processing Procedure A-text on SYSUT1. 

STATE option canceled. 

All debugging options canceled. 



Figure 70 (Part 2 of 2) . Error Messages Indicating Compiler Error 



i ■ ■ - 1 ■ ■ : — : 1 

(Module (Hexadecimal Displacement from 
(Name (Beginning of Module 



Identifying the Version o f the Compiler 



J- 



+ 



|IKFCBL00( 
|IKFCBL01| 
(IKFCBL02| 
|IKFCBL03( 
|IKFCBL04| 
(IKFCBL05( 
|IKFCBL06( 
(IKFCBL08J 
|IKFCBL10| 
(IKFCBL12I 
|IKFCBL1B( 
(IKFCBL20I 
(IKFCBL21J 
|IKFCBL22( 
|IKFCBL25| 
(IKFCBL30J 
(IKFCBL35I 
(IKFCBL40I 
|IKFCBL45| 
(IKFCBL50( 
(IKFCBL51| 
(IKFCBL60J 
|IKFCBL62( 
|IKFCBL63| 
|IKFCBL6 4| 
|IKFCBL65( 
|IKFCBL6A| 
(IKFCBL70( 
(IKFCBL80( 
i 1— 



5B 
30 
08 
08 
0C 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
0C 
08 
08 
08 
08 
08 
08 
08 
04 
08 
08 
08 
08 



| A unique identifier consta 
for this compiler) is loca 
displacement to enable the 
determine from a storage d 
of the compiler was used f 
compilation. The only exc 
IKFCBL00 which contains co 
information instead of the 
constant at the indicated 
The following information 
hexadecimal 00 00 00: 574 
IBM CORPORATION 1974, 2001 
of the identifier constant 
is as given in Figure 71. 



nt (C«VSCBL200» 
ted at a fixed 

user to 
ump which version 
or the 

eption is module 
pyright 

identifier 
displacement, 
is found at 
0-CB1 COPYRIGHT 
43. The location 

in the compiler 



Figure 71. Location of Identifier Constant 



Current Phase and Record 



If the compiler terminates 
a processing phase (04, 05 
1B, 20, 22, 21, 25 3, 35, 
62, 63, 64, 65, 6A, tO or 
storage, the phase can be 
three ways. In a dump the 
Request Block (RB) is for 
second is for the processi 
load point for the process 
found by adding hexadecima 
origin point specified in 
contains the address of a 
directory entry (CDE) whic 
module name and the entry 



execution while 
06, 08, 10, 12, 
4, 45, 50, 51, 6, 
80) is in 
identified in 

first active 
phase 00, and the 
ng phase. The 
ing phase can be 
1 20 to the 
the RB; the RB 
contents 

h gives the load 
point. 
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The name of the phase currently 
processing can also be found in either 
LINKCNT or LINKNAME, both locations in 
phase 00. In LINKCNT the processing phase 
is expressed in a 2-byte code as follows: 



Code 






jiexadecimal]_ 




Phase 


2 




01 


2 




02 


4 




04 


6 




05 


8 




06 


A 




08 


C 




10 


E 




12 


10 




1B 


12 




20 


14 




22 


16 




21 


18 




25 


1A 




3 


1C 




35 


1E 




4 


20 




45 


22 




50 


24 




51 


26 




6 


28 




62 


2A 




63 


2C 




64 


2E 




65 


30 




6A 


32 




70 


32 




80 


OR 






Execution of 


phases 70, 


71 , and 72 


is not 


reguired. 






OR 






Abnormal termination 


occurred. 







LINKNAME contains an 8-byte name in the 
form IKFCBLxx, where xx is the phase 
number. 



The recor 
the time the 
to a stateme 
location in 
the current 
there is no 
for the file 
located and 
used can be 
described un 
Contents" in 



d that is being 
error occurred 
nt in the listin 
COMMON, CURCRD, 
generated card n 
listing availabl 
s being read or 
the contents of 
examined. This 
der "Buffers and 
this chapter 



processed at 
can be related 
g through a 
which contains 
umber. If 
e, the buffers 
written can be 
the last bytes 
process is 
Their 



Saving Registers 



Phase 00 places the address of the control 
program's save area in location MYSAVE+4. 
When phase 00 is called by another compiler 
phase, it places the address of the calling 
phase save area in SAVER13. Phase 00 puts 
the address of its own save area (MYSAVE) 
in register 13. 

The calling phase registers can be 
located by adding decimal 12 to the address 
contained in SAVER13. This locates 
register 14 r followed by register 15, etc. 

The following registers have 
significance in connection with a branch to 
COS* the location in phase 00 used for 
input/output reguests: 

• Register : Contains the address of 
the X and Y parameters of the linkage 
request. (See Table 2 in the chapter 
"Phase 00.") Register can be used to 
verify that the calling phase is making 
a legitimate request, for example, 
phase 20 cannot write on SYSPRINT. 

For PLS phases (04 and 35), register 1 
contains the address of the X and Y 
parameters. 

• Register 2 : Contains the address 
within the calling phase from which 
phase 00 is to write if the X parameter 
in register is a request for a PUT. 
It can be used to determine whether the 
address it contains is within the range 
of main storage allocated to the 
calling phase. 

9 Register 3: Should contain the length 
of the data to be written if a PUT has 
been requested. The number must be 
less than the size of the buffer but 
not equal to zero. 

If the calling phase is asking for 
action by a TAMER routine, the registers of 
the calling phase are saved in an area 
starting at location TBSAV1 by means of a 
STM 0,15 instruction. The registers can be 
found at A (TBSAV1) . Register 14 contains 
the address of the instruction following 
the call to the TAMER routine; register 15 
contains the address of the TAMER routine 
entry point. 



B uffers and Their Contents 



When a processing phase requests an 
input/output operation by phase 00, 
register 10 in phase 00 contains the data 
set number code (hex 01 through 0B) 
multiplied by 2. This code is the 
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displacement of an entry for the data set 
within the phase 00 POINT table. 



Figure 72 shows the format of a POINT 
table entry. Each consists of two bytes f 
the low-order bits of which contain buffer 
numbers (n) . If a data set is 
double-buf fered, the numbers are different. 
If it is single-buffered, the numbers are 
the same. If the first four bits of the 
entry contain a hexadecimal F, no physical 
input/output has been done on the data set 
in this phase. 



BUFCNLS+78 Second SYSPUNCH BCB. 
BUFCNLS+80 First SYSLIN BCB. 
The format of a BCB is as follows: 
Contents 



Bytes 



1-3 

4-5 

6-7 



X'OO 1 

Address of buffer 

Bytes used so far for GET or 

PUT 
Length of buffer 



Note : The above does not apply to SYSUT5. 
Phases 25 and 65 perform buffer management 
processing for SYSUT5. 



| Bits | 

I- 

I 



Contents 



1 

0-3 | X«0« or X'F« 

| 4-7 | buffer number n 

| 8-11 | X'0« 

I 12-15 | buffer number 

i 1 „ 



I 

-| Lo cati ng„Tables 

I ~ 

I 

| Tables currently being used by a phase can 

i be located by taking the following steps: 



Figure 72. POINT Table Entry Format 

The buffer number can be used to locate 
the buffer control block (BCB) for the 
buffer being used for the data set. Buffer 
control blocks are contained in an area 
starting at BUFCNLS-8 (displacements are in 
hexadecimal) as follows: 

Location C ontrol Block 
BUFCNLS-8 Second SYSLIN BCB. 

BUFCNLS+0 Buffer 1 BCB. 

BUFCNLS+8 Buffer 2 BCB. 

BUFCNLS+10 Buffer 3 BCB. 

BUFCNLS+18 Buffer 4 BCB. 

BUFCNLS+20 Buffer 5 BCB. 

BUFCNLS+28 BCB for buffer 6 as a 
whole. 

BUFCNLS+30 First SYSPRINT BCB; bytes 
2 through 4 point to the 
beginning of buffer 6. 

BUFCNLS+38 Second SYSPRINT BCB. 

BUFCNLS+40 Two SYSTERM BCBs. 

BUFCNLS+50 Two SYSIN BCBs. 

BUFCNLS+60 Two SYSLIB BCBs. 

BUFCNLS+70 First SYSPUNCH BCB; bytes 
2 through 4 point to the 
end of the SYSTERM 
buffer area. SYSPUNCH 
and SYSLIN reuse the 
SYSIN and SYSLIB area. 



■1 • The Table Information Block (TIB) 
number for any table Jiandled by the 
TAMER routines may be found in Figure 
59 (listed by phase) , in Figure 60 
(listed by TIB number) , or under 
"Compiler Table Formats" (listed 
alphabetically by table name) • 

2. Add hexadecimal 34 to the load address 
for phase 00 given in the dump. 

3. Add the result to the displacement of 
the TIB shown in the listing for phase 
00. The result is the address of the 
TIB (table information block) • 

4. The second, third, and fourth bytes in 
the TIB contain the address of the 
TAMM for the table. 

5. The second, third, and fourth bytes of 
the TAMM contain the address of the 
table. The seventh and eighth bytes 
contain the number of bytes used so 
far in the table* 

The entry format for each table 
manipulated by TAMER routines is shown in 
"Section 5. Data Areas." 



DIAGNOSTIC ASSISTANCE 



When you telephone the IBM Program Support 
Representative for diagnostic assistance, 
you can get a faster and more precise 
response if you provide as much information 
about the problem as possible. To 
determine whether your problem has been 
documented, it is necessary that you 
provide certain items, referred to as 
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search arguments, that are needed to 
retrieve such documentation. Search 
arguments include such items as component 
identification, when failure occurred, type 
of failure, phase that failed, and verb 
being processed. 

To assist you in determining search 
arguments, a COBOL Abstract Worksheet 
appears on the next page. The worksheet 
describes each search item, the search 
argument that identifies that item, and an 
explanation of how to find the search 
argument. For most efficient retrieval of 



documentation regarding your problem, 
provide as many search arguments as you 
can. 

In addition to the search arguments, 
have as many of the following items 
available as possible when you telephone 
for diagnostic assistance: 

• JCL 

• source listing 

• dump 

• console sheet 

• program output 
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COBOL Abstract Worksheet (Side A) 



Search Iten 



| Search Argument 



How to Find Argument 



Component ID: | 

5740-CB1-xxx where | 
xxx is the program j 
product version | 

level | 



+ 



1. 574 0-CBI-xxx 



The program product version level is 
printed at the top of the first page of 
the COBOL listing. It is also con- 
tained in byte X' 14' of the load 
module. 



2. Keyword entry 

(use as indicated) 




If unsure, check the JCL to see which 
step was being executed at the time of 
the failure. 



I 2. 



CMPL 



Type of failure: | 3. 
one of the | 
following: | 
I 
abend = ABENDxxx | 
wait = WAIT | 
loop = LOOP | 
msg. = MSGIKFxxxxxj 



+ 



Failing phase: | 4, 

IKFCBLnn, where nn | 

is the compiler j 

phase number. | 



IKFCBLnn 



Location LINKNAME in phase 00 contains 
a name in the form IKFCBLxx, where xx 
is the compiler phase number. 



I 5. 



I 

| GPRXX 

I 



5. COBOL verb being 
process ed : (e.g., 
ADD, MOVE, GO) 



COMMON | 



COMMON 



I «i4G»- | Program 
. | :.';■ •■'153« | entry 



H 



I « /[ 

| «294»- | Card being | 
I i297« H \ 




(processed | 

I I 

i_ 1 



. Find the register used by the 

failing phase (argument 4 above) to 
point to COMMON; see "Register 
Usage" in this section*. 

■B. Obtain the address of COMMON from 
the register. 

C. Verify that you are at the correct 
area for COMMON; the contents of 
COMMON address * XM4C 1 should be 
the same as the word coded on the 
PROGRAM-ID card (card 2 or 3 in the 
source program) . 



Find card number at COMMON address 
♦ X* 294* '' (e.g. r '8000030 would indi- 
cate card 48 (hex. 30 = dec. 48). 



E. Find the indicated card in the 
source program and determine the 
COBOL verb being processed. 



*If this worksheet has been removed from the OS/VS COBOL Progra m Logic Manual , the 
address of COMMON can be found by using all of the registers listed under REG AT ENTRY 
TO ABEND. Starting with register 10 (then 11, then 9) perform steps B and C until 
step C results in a match; then do steps D and E. 
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COBOL Abstract Worksheet (Side B) 



i" ■ ■ ■ i ■ r — : : 1 

| Search Item ( Search Argument | How to Find Argument | 


| 1. Component ID: | 1. 5740-CB1-xxx | The program product version level is | 
j 5740-CB1-xxx, wherej | printed at the top of the first page off 
| xxx is the program | | the COBOL listing. It is also con- | 
| product version j j tained in byte XM7' of the load | 
| level. j | module. | 
i ,, ■ , | j i 


| 2. Keyword entry (use | /\ | If unsure, check the JCL to see which | 
| as indicated) : | / N^ | step was being executed at the time of | 
j | No y^Executioik Unsure | the failure | 

1 1 i — \ Time j >| | 

1 1 1 \Failure/ j j 

1 1 V \>/ | | 
j | Go to (Yes | | 
| | Side A|| | 
1 1 V | | 

I I 2. EXEC | | 


| 3. Type of failure: | 3. | | 
| one of the | j | 
| following: | | j 
| abend = ABENDxxx | | | 
| wait = WAIT | | | 
| loop = LOOP j | | 
j msg. = MSGIKFxxxxxj | j 
| bad output | | | 
| = INCORROUT | | | 


I 4. COBOL verb or | 4. | A. Determines the CSECT name assigned | 
| statement being j | to the failing program in the | 
j executed: | j PROGRAM-ID source statement, which | 
I | | is usually the second or third card | 
I I | in the source program. j 

1 | | B. Determine the length of the compiled | 
1 I | CSECT from one of the following | 
1 I | areas: | 

1 I 1 ° linkage editor map | 

1 1 I © extent list | 

1 I | © compiler generated Memory Map | 

1 I I C. Use the PSW AT ENTRY TO ABEND to | 
I I | determine the address of the failing! 
I I 1 instruction. | 

I | | D. Is the failing instruction within | 
I | | the scope of the code compiled for | 
1 I | the COBOL CSECT? If yes, see note 1| 
I | j below. If no, see note 2 below. j 


I 5. Optional COBOL | 5. | \ 
j library module name! | j 
| being executed: | I | 


I 6. Special COBOL ■ [ 6. f | 
I features being used | | | 
I (optional) : | | | 
I (e.g. , SORT, j | | 
I SYMDMP) | | | 
I 1 1 a 
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APP.EgDIX_A:_,.gABLE,AMD^DIca!IpHARY HANDLING (TAMER) 



The tables that the compiler uses to store 
information within a phase or between 
phases are manipulated by a set of routines 
called TAMER (Table Area Management 
Executive Routines) . TAMER is part of 
phase 00 and is resident in storage 
throughout compilation. 

The dictionary, which is an internal 
data set used by phases 1B, 22, 21, 25, and 
3, is manipulated by a set of routines 
called ACCESS routines. ACCESS routines 
are loaded into storage as part of these 
phases. 

The chapter "Phase 02" explains how an 
area for tables and the dictionary is 
obtained initially. TAMER obtains 
additional areas if they are needed. The 
new areas may or may not be contiguous to 
the original area. Figure 73 shows the 
arrangement of tables and the dictionary in 
each contiguous area. 



Data Areas." Phases 1B, 22, and 21 do not 
use the LOCNXT ACCESS routine. 

Phase 25 uses the ACCESS routines to 
locate dictionary information used in 
building tables for the Debug data set. 

Phase 3 uses the ACCESS routines to 
replace data-names and procedure-names in 
procedure statements with their dictionary 
attributes. It tells the ACCESS routines 
the name and the ACCESS routines obtain the 
attributes from the dictionary entry for 
that name. 

It also uses the ACCESS routines to 
resolve qualification and the CORRESPONDING 
option. Phase 3 does not use "enter" 
ACCESS routines (those whose names begin 
with "ENT") or the GETPTR ACCESS routine. 

The ACCESS routines do not restore 
registers and 1 on exit. 



i 1 t 1 1 

| Table 1|...|Table N|Main Free | Dictionary 
| I | | Area j Section N 
i 1 1 j 1 



ORGANIZATION OF THE DICTIONARY 



i 



"T 1 

| Dictionary | 
| Section 1 | 

j i 



Figure 73. Arrangement of Tables and 
Dictionary Sections in 
Contiguous Areas 



The dictionary is divided into sections of 
512 bytes each. The location of a 
dictionary entry is indicated by its 
section and its displacement from the 
beginning of that section. The DIC0T table 
has an entry for each dictionary section, 
giving the starting address of that 
section. 



ACCESS DICTIONARY HANDLING ROUTINES 



ACCESS routines enter and retrieve 
dictionary entries. They are assembled by 
means of a macro instruction with phases 
1B, 22, 21, 25, and 3, the only phases that 
use the dictionary. Only those routines 
that are needed in a phase are assembled 
with it. 

Using the ACCESS routines, phases 1B, 
22, and 21 make dictionary entries for 
data-names and procedure -names in the order 
in which the names are defined in the 
source program. (Phase 1B makes entries 
for procedure-names; phases 22 and 21 makes 
entries for data-names.) Basically, a 
dictionary entry consists of a name and 
attributes. 

Formats for the types of dictionary 
entries are illustrated in "Section 5. 



The ACCESS routines use the HASH table 
to keep track of the locations of 
dictionary entries. HASH is a hash table 
with 521 entries. When a dictionary entry 
is made for a name, its section and 
displacement are entered in the HASH table 
entry for that name. When an ACCESS 
routine wants to find an entry, it 
determines the hash value of the name to 
find the HASH table entry for that name and 
obtains the section and displacement from 
the HASH table entry. 

If a name hashes to the same value as a 
previous name, the section and displacement 
for the previous name are taken from table 
HASH and placed in front of the dictionary 
entry for the new name as a dictionary 
pointer. Then the section and displacement 
of the new entry are entered in the HASH 
table and duplicate hash values are 
indicated. When an ACCESS routine wants to 
find an entry for a name and the HASH table 
indicates that there were duplicate hash 
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values, it uses these dictionary pointers 
to search the dictionary, in reverse order, 
to find the specified name. That is, it 
obtains the section and displacement from 
the HASH table for the hash value and finds 
the name in the indicated entry. If the 
names match, this is the correct entry, 
unless duplicate names were defined. Then 
it looks at the entry with the section and 
displacement specified by the dictionary 
pointer of the last entry. This process 
continues until it has compared the names 
of all entries with duplicate hash values. 
At that time, it will either have found a 
single unique name, a duplicately defined 
name, or no name at all. It issue's an 
error code if it does not find a name or if 
the name is duplicately defined. 

Note ; If a name is unique because it is 
qualified, the phases specify a range of 
dictionary entries to be searched when they 
call an ACCESS routine. This is explained 
in routine LATACP. 
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described above. The necessary moving is 
done during interphase processing by 
routines named TBINTPOO, TBINTP01, etc. 

In the following descriptions of the 
ACCESS routines, the format of the EBCDIC 
name pointed to is: 



No. of 
Bits 

Contents 



i i i 1 

III I 
|2 |6|n*8 | 

t— +H 1 

|00|nlName| 
i i — i 1 



where n is the number of characters in the 
name. ~The entry starts on a fullword 
boundary and is a multiple of 4 bytes. 
Padding is with binary zeros starting with 
the low-order bytes. 



INITIALIZATION OF ACCESS ROUTINES 



STORAGE FOR THE DICTIONARY 



Generally, storage for a new dictionary 
section can be obtained from the free area 
between the tables and the dictionary (see 
Figure 7 3) . If the free area is exhausted, 
a GETMAIN macro instruction is issued to 
obtain all available COBOL space, the area 
equal to the difference between the length 
of the longest phase and the length of the 
current phase. Areas obtained in this 
manner are not contiguous. 

When the outstanding available area is 
exhausted, dictionary sections are written 
out on direct-access data set SYSUT1 and 
the area is reused. The DICOT table is 
used to keep track of the dictionary 
sections. There is an entry for each 
section, giving the beginning address of 
the section and an indication of whether or 
not it has been written out (spilled). A 
dictionary section is read back into 
storage, when it is needed, by subroutine 
MOVDIC, described under "Table Handling 
with TAMER" in this appendix. At the end 
of phase 3, all dictionary space in storage 
and the DICOT table and the HASH table are 
released. SYSUT1, the dictionary spill 
data set, is closed so that it may be 
reopened as a utility data set for later 
phases. 

When control passes from a smaller to a 
larger phase, any tables or dictionary 
sections in danger of 3 being overlaid by the 
new phase must be moved to upper storage. 
This possibility exists when space for the 
table or dictionary section was obtained 
via a GETMAIN macro instruction, as 



To use the ACCESS routines, the phases must 
call routine INTACC to initialize them. 
INTACC primes the DICOT table upon 
receiving control for the first time and 
performs other initialization functions. 
The call to INTACC must follow the call to 
TAMEIN, the TAMER initialization routine. 
The calling sequence to INTACC is: 

L 15,=A (INTACC) 
BALR 14,15 



ACCESS ROUTINES 



ACCESS routines are available to perform 
the following functions. 

1. Enter attributes when given a 
data-name. 

2. Enter attributes when given the 
dictionary pointer. 

3. Get a dictionary pointer when given 
the data-name and the length of its 
attributes. 

4. Enter delimiter (dictionary pointer of 
the entry that delimits a group or 
section) when given the dictionary 
pointer of the group or section. 

5. Locate attributes when given a 
data- name. 

6. Locate attributes when given a 
dictionary pointer. 
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7. Locate attributes of next entry when 
given a dictionary pointer, 

8. Locate delimiter when given a 
data- name. 

9. Locate attributes when given ACCESS 
pointer (name of an entry that is a 
subfield of the last entry referred to 
by an ACCESS routine) . 

10. Locate attributes when given a 

data-name and a dictionary pointer to 
a group of which it is a subfield. 



EN TN AM (Enter Attributes Given Name) 



where parameter has the following format 
starting on a fullword boundary: 



No. of | | 
Bytes | 1 | 
1— +- 



Contentsl 16 | Address of | Count of | 
| I EBCDIC Name | Attributes | 

I L I , „ J 



(Address of| 
| Attributes | 

L^^— L- 



I 1 I 

■+- 



(Dictionary! 
(Pointer j 



Given the address of an EBCDIC name 
(procedure-name or data- name) , routine 
ENTNAM makes a dictionary entry for it. It 
places its section and displacement in the 
HASH table and also in register 1, to be 
used by the calling phase as a dictionary 
pointer. The calling sequence is: 



L 1 ,=A (parameter) 

L 15, =A (ENTNAM) 

BALR 1<4 r 15 



where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 



Contents 



I" ■ ■ T 

I I 
I 1 I 


1 l 

1 

3 1 


i i 

1 1 
1 1 I 


i""- 

1 

1 3 


1 

1 
1 


* ^ 


1 


I ! 


1 


^ 



(Code | Address (Count of (Address of( 
( | of (Attri- ( Attributes ( 
( (EBCDIC |butes | | 

( (Name ( | | 

i ^j 1 1 , , ., j 



GETPTR ( Get Pointer ) 



Given an EBCDIC name and the length of its 
attributes, routine GETPTR determines its 
section and displacement and places this 
dictionary pointer in register 1. The 
calling sequence is: 

L 1 , = A (parameter) 
L 15, =A (GETPTR) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



1 



No. of ( ( | 

Bytes | 1 | 3 | 

I- 1 H — * 

Contents | Code ( Address of (Count of | 
| | EBCDIC name (Attributes | 

I L L , .1 

where code is 8 for elementary items and 
paragraph-names, and 12 for group items and 
section-names. 



where code is for elementary items and 
paragraph- names, and 4 for group items and 
section- names. 



ENTDEL ( En ter Delimiter Po i nter) 



ENTPTR (Enter At t ributes Giv en P oin ter) 



Given a dictionary pointer, that is, a 
section and displacement, routine ENTPTR 
enters a specified name and its attributes 
into the dictionary. The calling sequence 
is: 



Given a dictionary pointer for a group item 
or section-name and its delimiter pointer, 
routine ENTDEL enters the delimiter pointer 
into the dictionary entry for the group 
item or section-name. A delimiter pointer 
for a group item. Is the section and 
displacement of the next group item on the 
same or a lower level. /■ A delimiter pointer 
for a sect ion- name is the section and 
displacement of the next section-name. The 
calling sequence is: 



L 1 , = A (parameter) 

L 1 5, = A (ENTPTR) 

BALR 14,15 



L 1,=A (parameter) 

L 15, = A (ENTDEL) 

BALR 14, 15 
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where parameter has the following format 
starting on a. fullword boundary: 



No. of 
Bytes 

Contents 



in 



t — r 
I I 

in 



+ 



H-+- 



|0 |Dictionary| 0|Delimiter| 

| Pointer | j Pointer 

.j i — i 



No. of 
Bytes 

Contents 



j — ( 

I I 

HI 3 

f_| , 

|4 |Dictionary Pointer 
i i 



LOCNXT (Locate Next Entry) 



LA TRNM (Locate A tt ribute s Given Name)^ 



Given an EBCDIC name, routine LATRNM 
locates its dictionary pointer and the 
starting address of its attributes. If the 
entry is found, the attributes starting 
address is placed in register 2, the 
dictionary pointer is placed in register 3, 
and register 15 is set to 0. If the entry 
is not found, the contents of registers 2 
and 3 are meaningless, and register 15 
contains a 4 if the name was not found and 
an 8 if the name was duplicately defined. 
The address of the located name as it 
appears in the dictionary will be saved in 
the DICTNAME in COMMON. Note: This 
address should never be saved across CALLs 
to phase 00. The calling sequence is: 

L 1 ,= A (parameter) 
L 1 5, = A (LATRNM) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



LATRPT f Locate Attributes Given Pointer) 



Given a dictionary pointer for an entry, 
routine LATRPT locates the starting address 
of its attributes and places it in register 
2. The address of the located name as it 
appears in the dictionary will be saved in 
the DICTNAME in COMMON. Note: This 
address should never be saved across CALLs 
to phase 00, The calling sequence is: 

L 1 ,=A (parameter) 
L 1 5, =A (LATRPT) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 




Given the dictionary pointer of an entry, 
routine LOCNXT locates the next entry. In 
register 2, it places the starting address 
of the next entry's attributes. In 
register 1, it places the dictionary 
pointer of the next entry. In register 3, 
it places the starting address of the 
EBCDIC name of the next entry. The calling 
sequence is: 

L 1 , parameter 
L 15, =A (LOCNXT) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



i — r 
I I 
'.HI 



| 0| Dictionary Pointer 

U L . . 



LpELNM^tLocate.^Delimiter Gi ven Nam e) 



Given the EBCDIC name of a group item or a 
section, LDELNM locates its delimiter. It 
places the starting address of the given 
name's attributes in register 2, the 
dictionary pointer of the data-name in 
register 3, and the delimiter pointer in 
register 1 . It sets register 15 to 0. 

If an error is detected, one of the 
following codes is placed in register 15. 
The address of the located name as it 
appears in the dictionary will be saved in 
the DICTNAME in COMMON. Note: This 
address should never be saved across CALLs 
to phase 00. 



Code in 
Register 15 
12 



Meani ng 

Unique name located was 
paragraph name or 
elementary item name. 
Registers 2 and 3 are set 
as above. 

Name is duplicately defined. 
Registers 2 and 3 contain 
meaningless information. 

Name was not found. 

Registers 2 and 3 contain 
meaningless information. 
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The calling sequence for LDELNM is: 

L 1 ,= A (parameter) 

L 15,=A (LDELNM) 

BALE 14,15 
where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



I I 



M 



| 1 6 | Address of EBCDIC Name| 

i — l_ — ; , , i 



LATGRP (Locate Attrib utes Given Group 
Pointer) 



Given the EBCDIC name of an entry and the 
dictionary pointer of the group item or 
section-name of which it is a subfield, 
routine LATGRP puts the starting address of 
the entry 1 s attributes in register 2 and 
the dictionary pointer of the entry in 
register 3. It sets register 15 to 0. The 
address of the located name as it appears 
in the dictionary will be saved in the 
DICTNAME in COMMON. Note: This address 
should never be saved across CALLs to phase 
00. 



LATACP (Loca te Attributes Using ACCESS 
Pointer) ~ 



Given the EBCDIC name of an entry that is a 
subfield of the last entry referred to by 
an ACCESS routine, routine LATACP puts the 
starting address of the attributes in 
register 2 and the dictionary pointer in 
register 3. The address of the located 
name as it appears in the dictionary will 
be saved in the DICTNAME in COMMON. Note: 
This address should never be saved across 
CALLs to phase 00. Register 15 is set to 
0. (This routine is used to locate 
qualified names. It limits the search of 
the dictionary.) 

If an error is detected, one of the 
following codes is placed in register 15. 



If an error occurs, one of the follbwing 
codes is placed in register 15. 



Code in 

Register 15 

12 ~ 

8 
4 



Meani ng 

Last entry referred to was 

an elementary item. 
Name is duplicately defined. 
Name was not found. 



Registers 2 and 3 contain meaningless 
information. 

The calling sequence for LATACP is: 

L 1 , = A (parameter) 
L 15, = A(LATACP) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



Code in 
Register 1 5 
12 



8 
4 



Meaning 

Given dictionary pointer 
pointed to a 
paragraph-name or 
elementary item name. 

Name is duplicately defined. 

Name was not found. 



Registers 2 and 3 contain meaningless 
information. 

The calling sequence for LATERP is: 

L 1,= A (parameter) 
L 1 5, = A (LATGRP) 
BALR 14,15 

where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 



Contents | 12 | Address! | Group or Section | 
I |of | | Dictionary Pointer | 
| | EBCDIC | | | 

| IName | | | 

i j 1 — i i 

The address of the located name as it 
appears in the dictionary will be saved in 
the DICTNAME in COMMON. Note: This 
address should never be saved across CALLs 
to phase 00. 



1 1 — 




—i — r — 




.. , — ., 


i 1 




1 1 




1 


Ml 


3 


HI 


3 


1 


1 L_ 




_ i_ i _ 




1 



No. of 
Bytes 

| Contents 



I I 
Ml 
H-4- 



|8 | Address of EBCDIC Name | 

i — i 1 



TABLE HANDLING WITH TAMER 



Not e : There must have been no call to a 
TAMER routine intervening between this 
routine and the last call to an ACCESS 
routine. 



TAMER (Table Area Management Executive 
Routines) resides permanently in main 
storage as part of phase 00 and is 
available to all phases to handle tables. 
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CONTROL FIELDS 



The three control fields described below 
are set up and used by the TAMER routines 
as aids in the handling of tables. 



TIBs , ( Table Information Blocks) 



For each table, there is a TIB in a fixed 
location in COMMON. A TIB may be 
reassigned when the table for which it was 
used is released. The TIB points to 
another control field for that table — the 
TAMM (see below) . Each TIB has the 
following format: 



No. of 
Bytes 

Contents 



| Entry |TAMM | Table |Growth| 
| Lengthj Ad dress j Length | Factor | 
i i , i i , i 



Code 
01 



02 



04 



Meaning 
Indicates that the table has 

been released so that its 

area is available as free 

area. 
Indicates that the table is 

static. No further entries 

will be made. 
Indicates that the table has 

been primed so that entries 

can be made. 



Table Address 

address of the first byte of the 
table. 



N1: 



N2: 



HLStatus_Is N1.,ls 

01 

02 or 04 Number of bytes used so 

far 



If- § t a t us_Is N2 Is 
01 Length of the freed 

area 



Entry Length 

number of bytes in a table entry. 

TAMM Address 

address of the TAMM for the table. 

Table Length 

number of bytes requested for the 
table (used by the £RIME routine). 

Growth Factor 

not used — a table is always 
increased 256 bytes at a time. 



02 
04 



Number of unused bytes 
in the table 

Number of bytes 

assigned to the table 



TIB Address 

address of the TIB for the table. 



MASTAMs (Master TAMM Tables) 



TAMMs (Table Area Management Maps) 

For each table there is a TAMM in a 
variable location within a fixed block (the 
TAMM block). Each TAMM points to a table 
and to the TIB for the table. The format 
of a TAMM is: 



No. of 
Bytes 

Contents 



"T — i r- 

I I I 
|2 |2 | 

H — + — H 



Status 

code indicating the status of the 
table: 



I 



JStatusjTable |N1|N2|TIB | 
| | Address) | | Address | 
i, i l — i . i J 



Each MASTAM contains the characteristics of 
a TAMER area (contiguous space in storage 
assigned to TAMER) . A MASTAM has the 
following format: 



-fullword- 



| Beginning of area 



I Length of area 



| First free byte not used so far | 

j .| 

| Length of free area left over | 

I 1 

| First TAMM used by this MASTAM | 

j , _ H 

|Next TAMM to be used by this MASTAM | 

I 1 

| Number of dictionary section within the | 
| MASTAM I 

i ; j 
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Each time a new TAMER area is assigned 
to TAMER through a GETMAIN macro 
instruction* one of two conditions can be 
true: 

■1. The new TAMER area is contiguous to a 
current one, in which case an old 
M&ST&M will be updated, 

or 

2. It is not contiguous to a current 

TAMER area, in which case a new MAST AM 
is created. 

Since only three MASTAMs, at most, are 
needed (see "How Space is Assigned" 
below) , provisions are made for using only 
three consecutive GETMAINs without an 
intervening FREEMAIN macro instruction. 



HOW SPACE IS ASSIGNED 



At the beginning of compilation, a variable 
unconditional GETMAIN is issued to get the 
main TAMER area. A MASTAM is set up for 
the area. If more space is needed later 
on, COBOL space is requested through an 
unconditional GETMAIN [COBOL space is the 
difference in length between the longest 
phase (phase 4) and the current phase]. If 
the COBOL space obtained is contiguous to 
an old TAMER area, it is considered part of 
that TAMER area and the old MASTAM is then 
updated. 

If the next phase to process is not 
larger than the current phase, the COBOL 
space is kept. Since this space is kept 
only three MASTAMs are required. If the 
next phase to process is larger than the 
current phase, the tables that are to be 
passed between phases are packed and moved 
so that none of them are overlaid by the 
next phase. 

Within a TAMER area (and as indicated in 
the MASTAM), the tables start in lowest 
storage and the dictionary starts in 
highest storage. The TAMMs for the MASTAM 
are assigned contiguously within the TAMM 
block, and their order reflects the storage 
order of the tables to which they point. 

Note; If several GETMAINs are issued, the 
areas obtained will usually be in low 
storage so that only one MASTAM will be 
used. 



TAMEIN Routine 



TAMEIN is the TAMER initialization routine. 
It is called during phase 00 interphase 
processing (in routine INT 1B) and once 



before phase 3 processing. It is also 
called by phase 02 « Its* operations are as 
follows: 

• Phase 02: 

Called before any other TAMER routine. 
Sets up the first MASTAM for the TAMER 
area requested at the beginning of 
compilation. Sets up a TAMM and TIB 
for the HASH table (see "ACCESS 
Dictionary Handling Routines" at the 
beginning of this appendix) . 

• Phase 3: 

If the dictionary was not spilled (that 
is, if no dictionary sections were 
written on SYS0T1) , no action is taken. 
If the dictionary is spilled, TAMEIN 
calls TBGETSPC which tries to get more 
space for dictionary sections. If 
space is available, TBREADIC is called; 
to read back as many sections as 
possible. 

The calling sequence for TAMEIN is: 

L 1 5, =A (TAMEIN) 
BALR 14, 15 



PRIME Routine 



Routine PRIME allocates space, in any TAMER 
area, to the table named in the calling 
sequence. The following steps are taken in 
sequence until the required space is found: 

1. A check is made for the required area 
in the remaining free space of the 
current TAMER area. This space is 
called the Main Free Area. If the 
area is too small> the Main Free Area 
contained in the other TAMER areas is 
checked.;, 

2. A check is made for the required area; 
in the space made available by the 
release of tables by TAMER « This 
space is called the Freed Area. 

3. An attempt is made to pack the tables 
(eliminating the free bytes between 
the primed and static tables) to 
increase the size of the Main Free 
Area within a TAMER area. 

4. A request is made for COBOL space. 

5. The primed tables are packed, that is, 
all of the unused area minus the 
length of one more entry for each 
table is considered available. 

6. An attempt is made to spill a 
dictionary section (write it out on 
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SYSUT1) . For steps 5 and 6, table 
space is assigned only on a single 
entry basis. 

If none of these methods is successful 
compilation cannot continue. If space is 
found, a TAMM is created for the new table 
(or is just updated in the case of success 
in step 2) • 

The PEINE routine can also be called 
internally by other routines just to find 
space. In this case, a TAMM is not created 
and the calling routine takes whatever 
action is necessary. 

The calling sequence for PRIME is: 



DICSPC Routine 



Routine DICSPC is called only by ACCESS 
routines, and requests space for a 
dictionary section. The space is provided 
by an internal call to the PRIME routine. 
PRIME returns the starting address of the 
section in register 1 , and the ending 
address in register 2. 



The calling sequence for DICSPC is: 

L 1 5, =A (DICSPC) 
BALR 14,15 



L 1,=A (parameter) 
L 15,=A(PRIME) 
BALR 14,15 



STATIC Routine 



where parameter has the following format 
starting on a fullword boundary: 



No. of 
Bytes 

Contents 



| Entry |TIB | Requested | Growth | 
| Length | Address! Size \ Factor j 



TBGETSPC Routine 



Routine STATIC renders a table static. 
This means that no new entries will be made 
in the table during the rest of the phase. 
It sets the TAMM for the table to static 
format, that is, to the form : 



No. of 
Bytes 

Contents 



1 | 



I 



I 



-+- 



H 



02 | Table |0sed |Free | 
| Address j Bytes | Bytes | 

I ~-t ! I 



Routine TBGETSPC ± s called by routine PRIME 
to obtain COBOL space. The space is 
requested through an unconditional GETMAIN 
macro instruction. A check is made to 
determine whether or not the space obtained 
is contiguous to a current TAMER area. If 
the space is contiguous and is in lower 
storage than the TAMER area, all of the 
tables in the TAMER area are moved to what 
is now the new beginning of the TAMER area. 
If the space is not contiguous, a new 
MASTAM is created, and the COBOL space 
becomes a new TAMER area. 



MOVDIC Routine 



The calling sequence to routine STATIC 



is: 



L 1,=A(TIB) 

L 15,=A(STATIC) 

BALR 14,15 



TABREL Routine 



Routine TABREL releases a table when it is 
no longer needed so that its area can be 
used as a free area. It sets the TAMM for 
the table to released format, as follows: 



Routine MOVDIC reads back into storage a 
dictionary section that has been spilled. 
First, MOVDIC calls the PRIME routine to 
make space available for the section and 
then it reads the section back into that 
space. 

The calling sequence for MOVDIC is: 

L 1 5, =A (MOVDIC) 

L • 3, = A(DICOTTABLE ENTRY) 

BALR 14,15 



r 1 ' 

I 1 
111 3 
i 1 


"T ""' 1 

I 1 

1 4| 
I J 


| 01 | Table 
| j Address 

L - JL 


1 1 

| Released | 
| Bytes | 

~L 1 



No. of 

Bytes 

Contents 



The TAMM address in the TIB is set to 0. 
Both the TAMM and the TIB for the released 
table can now be used for another table in 
a call to routine PRIME. 
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The calling sequence for routine TABREL 



is: 



L 1, = A(TIB) 

L 15, = A (TABREL) 

BALR 14,15 



After the dictionary section is spilled, 
TBSPILL moves the first section (the 
section in lowest storage, and, therefore, 
closest to the tables) to the area just 
freed. 



INSERT Routine 



Routine INSERT provides for inserting an 
entry into a table. It adjusts the 
displacement field of the TAMM for the 
table and returns to the phase the starting 
address (in register 2) and the starting 
displacement (in register 3) of the entry. 

If the area allocated to the table will 
not hold the entry, routine INSERT calls 
PRIME to obtain additional space. 

The phases call INSERT with the 
following calling sequence: 

L 1, = A(TIB) 

L 1 5, =A (INSERT) 

BALR 14,15 

Note: If a table contains variable-length 
entries, the entry length specified in the 
TIB must be changed before a phase calls 
routine INSERT. 



TBWRITE Routin e 

Routine TBWRITE is called by routine 
TBSPILL to spill dictionary sections by 
writing them on the direct-access data set 
SYSUT1 . TBWRITE uses the DICOT table to 
check and indicate the status of dictionary 
sections (see "ACCESS Dictionary Handling 
Routines" at the beginning of this 
appendix) . 

If a section has never been spilled, 
TBWRITE spills it by issuing the BSAM WRITE 
macro instruction. If a section has been 
spilled before, but has been changed since 
then, TBWRITE issues the XDAP macro 
instruction to put the fresh copy on 
SYSUT1 . If a section has been spilled and 
has not been changed since then — that is, 
an exact copy already exists on SYS0T1 — 
it is not spilled again. 



TBREADIC Routine 



TAMEOP Routine 



Routine TBREADIC is called by MOVDIC to 
read a dictionary section back into 
storage. 



Routine TAMEOP is called in the interlude 
before every phase to reset TAMER switches 
and to ensure that no tables being passed 
from a shorter phase are overlaid by a 
longer phase. In phase 3, it releases 
dictionary space. 

The calling sequence for TAMEOP is: 

L 1 5, =A (TAMEOP) 
BALR 14,15 



TBSPILL Routine 



Routine TBSPILL, which is called by PRIME, 
checks for the last dictionary section (the 
section in highest storage), and calls 
routine TBWRITE to spill it to provide 
additional storage for tables. If the 
section in highest storage is currently 
being built, the next-to-last one will be 
spilled. 



GETALL Routine 



Routine GETALL is called by phases 6 and 
6A. Its function is to provide space for a 
table that may be in excess of 32K bytes, 
the normal maximum size. It is a request 
for all available table space in a 
contiguous area. The tables are packed 
and, if all available COBOL space has not 
yet been acquired, a GETMAIN macro 
instruction is issued for the remainder. 
The largest unused, contiguous area is 
found, and its starting address and length 
are passed back to the calling phase in 
registers and 1, respectively. 

All subsequent use of that area is 
handled internally by the phase that called 
GETALL, since a call to TABREL is the only 
TAMER call which may legitimately follow a 
call to GETALL in the same phase. At the 
end of the phase that called GETALL, the 
area then becomes available for normal 
phase 00 table-handling procedures. 
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APPE NDIX B: OBJECT MODULE 



The compiler produces an object module 
suitable for input to the linkage editor. 
After linkage editing, the module is 
arranged as shown in Figure 74. 

If the program is segmented, there are 
some differences in the object module. 
These are described in the section 
"Segmented Object Module" later in this 
appendix. 



OVERVIEW OF OBJECT MODULE FIELDS 



This section provides a brief description 
of the fields of the object module as they 
appear in Figure 74. Each field is 
discussed in greater detail elsewhere in 
this appendix. 

INIT1 

the initialization 1 routine at 
relative location sets up registers 
and address constants for the program. 

DATA AREA 

data areas are data constants defined 
in the Data Division. This includes 
FIBs, DCBs, DECBs, record areas, and 
some buffers. 



COUNT TABLE 

the COUNT table contains entries for 
each procedure-name and source verb 
(COUNT option) . 



INIT2 



the initialization 2 routine stores 
address constants as part of program 
initialization. 

INIT3 

the initialization 3 routine 
establishes addresses in the global 
tables. 

PROCTAB and SEGINDX 

the PROCTAB and the SEGINDX tables 
contain debugging information created 
in response to a reguest for the 
statement number (STATE) option. 



INIT1 



TGT 



PGT 



RPT 



the Task Global Table contains 
information and work areas used by the 
program. 



the Program Global Table contains 
address constants and literals 
referred to by procedure instructions. 



Report Writer routines to process the 
Report Section. This field is 
discussed in "Appendix C: Report 
Writer Subprogram." 

PROCEDURE 

procedure instructions for the 
program. In a segmented program, this 
field contains only the instructions 
for the root segment. 

Q-ROUTINES 

compute the length of variable-length 
fields defined by the OCCURS clause 
with the DEPENDING ON option, and the 
locations of the variably-located 
fields which follow them. 



DATA AREA 



TGT 



PGT 



RPT 



PROCEDURE 



Q-ROUTINES 



COUNT TABLE 



INIT2 



INIT3 



PROCTAB 



SEGINDX 



Figure 74. 



Storage Map of a COBOL Object 
Module 



IN ITIALIZATION 1 ROUTINE ( INIT1) 



The initialization 1 routine begins at 
relative location 0. The coding of the 
routine is identical for every program; 
however, the address constants it contains 
differ with program requirements. These 
address constants were provided by phase 6 
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or 64. This routine performs the following 
functions, in the order listed: 

1. Saves the registers of the calling 
program and the pointer to it's Task 
Global Table or save area. 

2. Establishes address constants for this 
program's Task Global Table, Program 
Global Table, first instruction to be 
executed, and initialization 1, 2, and 
3 routines. 

3. Branches to INIT2 (described later in 
this chapter. 

4. Branches to ILBOINTO COBOL Library 
Subroutine to do initialization for 
VSAM file processing. 

In addition to its initialization 
functions, the INIT1 routine also contains 
the following: 

1. A DCB exit routine for the QISAM 
delete code. 

2. A "no-space" condition exit routine 
for BSAM and QSAM files. 

3. A DCB exit routine for a BISAM file 
CORE-INDEX option, if specified in the 
program. 

4. A save area. This is used if the 
program is re-entered. It contains 
the register contents as they were 
left when the program was last 
executed, to be loaded by INIT3. 



| Working-Storage 

F 

| Exit list 

I- 



|DCB, FIB 



I— 

|DECB 



Buffer (unless the file is direct BSAM 
with key, direct BDAM, or named in a 
SAME AREA or SAME RECORD AREA clause) 



Record area if any WRITE. . .ADVANCING 
statement was written for this file 



| Buffer for a direct BSAM file with keys 
| or a direct BDAM file 



J Record area, followed by buffer, for a 
| SAME AREA or SAME RECORD AREA file 

t p_ 

Figure 75. Format of the Data Area 



Formats for DCBs (data control blocks) 
and DECBs (data event control blocks) may 
be found in 0S/VS1 System D ata Areas , and 
QS/VS System Data Areas. 

A special discussion is given for exit 
lists since the system-defined format is 
not specific, and the compiler always 
generates exit lists with specific format 
and contents. 



EXIT LISTS 



DATA AREA 



The data area of the COBOL program contains 
space for information provided in the 
source program Data Division. It holds 
control blocks, buffers, and record areas 
for files, and reserved storage for the 
Working-Storage Section, with data items 
initialized if the VALOE clause was 
specified. 

The format of the data area is shown in 
Figure 75. 

In the first part of the data area, all 
the information for each file is contiguous 
in storage. The information exists in the 
order in which FDs were written in the 
source program. 

The data area was generated by phase 22, 
which indicated space allocation by setting 
the LOCCTR cell in COMMON and which placed 
some constants in exit lists, DCBs, DECBs, 
and Working-Storage where the VALUE clause 
was specified. 



The compiler generates an exit list for 
each file. At execution time, the exit 
list is located in storage immediately 
preceding the DCB for that file. Exit list 
entries are accessible to the COBOL program 
because of their location relative to the 
DCB. The list is accessed by the operating 
system via the DCBEXLST field of the DCB. 
This field contains the address of the exit 
list, which was placed there by phase 21. 

General information on exit lists may be 
found in the publication OS/VS Data 
Ma na gement, Services Guide . 

The compiler always generates the exit 
list in the order specified in Figure 76. 
If the object program does not contain one 
of the routines specified, the exit list 
entry is present, but deactivated. 

The primary function of the exit list is 
to provide the addresses of routines which 
are to be called by the operating system 
under certain conditions. However, the 
COBOL-generated exit list contains 
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additional information for use by the COBOL 
program. These exit list entries are 
masked off from the system by having a 
hexadecimal '00' in the first byte of the 
entry- 



Figure 76 shows the format of the exit 
list and the text that follows describes 
each entry, which is a full word in length. 



-f ullword- 



o code 1 may be: 



I^lue Meaning 

01 input 

02 output 
00 inactive 



o Code 2 may be: 



Value 
04 
00 
0C 
0D 



Me ani ng 
output 
inactive 
input SDL 
input NSL 



I - -1 ... . .. ....... 

| code 1 | A (BOF,BOV-RTN) | 

1 | A 


| code 2 | A(EOV-RTN) | 


| code 2 | A (EOF-RTN) | 

I 1 „,.„,.„ 8 


J 1 if 
| 0A | A (TOTALING AREA) | 


I 05 | A(DCB-EXIT-RTN) | 
i 1 j 


| 08 | A(ERROR-BIT-RTN) | 


| 00 | A (INV-KEY-GN) | 


| 00 | A (USE-ERROR-RTN) | 

1,1 , ,,. n 


| 00 | reserved | 


I 1 i i 
| 00 | n |NSL Max. Size | 
i i. t p 


| 06 | =V(ILBOCKP1) | 


| 80 | A(CKPTDCB) | 

| ;, Li 1 


| . # DCB | 


l. .J 



Figure 76. Fields of the Exit List 



BOF,BOV-RTN 

address of a routin 
labels. This routi 
the source program 
[ BEGINNING] LABELS 
section. The same 
both the FILE (begi 
REEL/UNIT (beginnin 
options,, since the 
distinguish between 
and beginning of vo 
initialized before 
to contain the addr 
beginning-of-f ile r 
Immediately after t 
the address of the 
routine is moved in 
instructions which 
are part of the COB 
for the OPEN verb. 



e to process header 
ne was written in 
as a USE. . . 
declarative 
entry is used for 
nning-of -file) and 
g- of- volume) 
system does not 

beginning of file 
lume. The entry is 
the file is opened 
ess of the 
outine. 

he file is opened, 
beginning-of -volume 
to the entry. The 
change the entry 
OL-generated code 



If the user did not provide a 
beginning-of -file label routine, the entry 
is initially inactive. If no 
beginning-of-volume routine was provided, 
the entry is deactivated after the file is 
opened. 



EOV-RTN 

address of the routine to process 
end-of- volume trailer labels. This 
routine was written in the source 
program as a USE. . .[ENDING ][ REEL/UNIT] 
LABELS declarative section. The entry 
is initialised at OPEN time* 



EOF-RTN 

address of the routine to process 
end-of-file trailer labels. This 
routine was written in the source 
program as a USE. ..[ ENDING ][FILE ] 
LABELS declarative section. The entry 
is initialized at OPEN time. 

TOTALING AREA 

address of the area specified as the 
TOTALING AREA data-name in the LABEL 
RECORDS clause. 

DCB-EXIT-RTN 

address of a routine called by Data 
Management during execution of OPEN 
for all QSAM or QISAM files and for 
BISAM files with the CORE-INDEX 
option. For QISAM, the routine sets 
the delete code in the DCBOPTCD field 
of the DCB. For BISAM, it initializes 
fields in the DCB for CORE-INDEX. The 
routine for QISAM or BISAM is located 
in INIT1. The exit list entry for 
these files is set by phase 21 for 
QSAM, the address is that of the COBOL 
| library subroutine ILB0EXT1 which sets 
the DCBRECFM field of the DCB. The 
exit list entry for a QSAM file is set 
by phase 51 . 

The instructions necessary for the QISAM 
DCB exit routine are always generated, even 
if the program uses no QISAM files. Phase 
6 or 64 determined whether to generate the 
BISAM DCB exit routine by testing the 
INITBIT bit of the PH1BYTE cell in COHHOK. 
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This bit is turned on during compilation if 
CORE-INDEX was specified. 

ERROR-BIT-RTN 

address of a routine used for BSAM and 
QSAM files, if a WRITE statement 
failed to execute because of a 
no-space condition. This routine sets 
the return code to indicate why the 
WRITE statement failed, and returns to 
the system, which then takes the SYNAD 
exit. The coding for this routine is 
located in the INIT1 routine. It is 
always generated, even if no BSAM or 
QSAM files are used in the program. 
The exit list entry pointing to the 
routine is set by phase 21. 



INV-KEY-GN 

address of the routine to handle an 
INVALID KEY condition for a particular 
READ, WRITE, REWRITE, or START 
statement. If no routine was written 
by the user, this entry is rendered 
inactive by placing a 1 in the 
low-order bit. 



The contents of this entry are changed 
or rendered inactive before each READ, 
WRITE, REWRITE, or START statement executed 
for the file. This is done because each 
INVALID KEY routine applies only to the 
statement for which it was written. When 
an input/output operation is executed, this 
entry always contains the address of the 
proper routine, or it is rendered inactive 
if no routine applies. 



The exit list entry is masked off from 
the system. It is not given control 
directly by the system, but by 
COBOL-generated code in the following 
manner. When an error occurs during an 
input/output operation, the system gives 
control to the routine specified in the 
DCBSYNAD field of the DCB. This is the 
COBOL library subroutine ILBOSYN. If the 
error was caused by an invalid key, ILBOSYN 
checks for an active entry in this exit 
list position. If one is found, control is 
passed to the address specified, that is, 
the user's INVALID KEY routine* If none is 
found, but an active entry is found in the 
USE-ERROR-RTN exit list position for this 
file, control is passed to the USE... ERROR 
routine. If neither of these routines was 
written by the user, the ILBOSYN routine 



takes its own actions, as described in the 
pu bl ic at io n IBM OS/VS C OBO L Subroutine 
Program Logic . 



USE-ERROR-RTN 

address of a routine to handle 
input/output errors for non-VSAM 
files. This routine was written by 
the user as a USE AFTER STANDARD ERROR 
declarative section. It is masked off 
from the system, and is given control 
after an input/output error in the 
same manner as the INVALID KEY 
routine, through the COBOL library 
subroutine ILBOSYN. This entry is 
interrogated first for any 
input /out put error which is not caused 
by an invalid key condition. The 
address is placed in this entry when 
the file is opened. FS is posted if 
present. 



NSL Max. Size 

maximum number of bytes required for 
nonstandard labels for this file. If 
nonstandard labels are used, the user 
has written an SVC routine to process 
these labels, and has incorporated 
this routine into the system at 
installation time. This entry is 
available for interrogation by the SVC 
routines. It is masked off from the 
system's exit list examination. 
Further description of the 
requirements for nonstandard labels 
may be found in the publication IBM 
OS /VS COBOL C omp iler a nd Library 
Programmer's Guide . 



• n represents: 



Va lu e 
00 
04 
08 



Meaning 
input 
output 
1-0 



ILBOCKP1 

address of a second entry point to 
ILBOCKP0. The checkpoint subroutine 
is entered through ILB0CKP1 when the 
"END OF REEL/UNIT" option is specified 
in the RERUN clause. 

CKPTDCB 

address of the checkpoint file DCB for 
a file in which checkpoints are being 
taken at "END OF REEL/UNIT." 
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TASK GLOBAL TABLE (TGT), 



The Task Global Table is used to record and save information needed daring execution of 
the object program. It begins with a series of fixed-length fields followed by a series 
of variable-length fields. These fields are illustrated in Figure 77 and are described 
in this section. 



r 

| Relative 


""! 

Location 


Field | 


l 

| Hex 






1 o 





SAVE AREA | 


| 48 


72 


SWITCH | 


| 4C 


76 | 


TALLY | 


| 50 


80 


SORT SAVE | 


I 54 


84 


ENTRY -SAVE | 


1 58 


88 | 


SORT CORE SIZE | 


1 5C 


92 


RET CODE | 


1 5E 


94 


SORT RET | 


| 60 


96 


WORKING CELLS | 


I 190 


400 


SORT FILE SIZE | 


| 194 


404 | 


SORT MODE SIZE | 


| 198 


| 408 


PGT-VN TABLE | 


| 19C 


412 I 


TGT-VN TABLE | 


I 1A0 


| 416 


Reserved | 


| 1A4 


420 


LENGTH OF VN TBL | 


I 1A6 


422 


LABEL RET | 


| 1A7 


| 423 


Reserved | 


i 1A8 


424 


DBG* R14SAVE | 


| 1AC 


| 428 


COBOL INDICATOR J 


| 1B0 


432 | 


A(INIT1) | 


I 1B4 


436 


DEBUG TABLE PTR | 


| 1B8 


I 440 


S0BCOM PTR | 


| 1BC 


444 | 


SORT- MESS AGE | 


| 1C4 


452 


SYSQUT DDNAME | 


I 1C5 | 


453 | 


Reserved | 


| 1C6 


454 | 


COBOL ID | 


I 1C8 


| 456 


COMPILED POINTER | 


| 1CC 


460 | 


COUNT TABLE ADDRESS | 


| 1D0 


464 


Reserved J 


I 1D8 | 


472 | 


DBG R11 SAVE | 


| 1DC 


476 | 


COUNT CHAIN ADDRESS | 


I 1E0 


480 


PRBL1 CELL PTR | 


I 1E4 


484 | 


Reserved | 


f 1E9 


489 


TA LENGTH | 


| 1EC 


492 


Reserved j 



r ■" ■ ■ i 

| Relative Location 
j 


■ ■"■ — " - ■ ■- —■ i 

Field | 


4 

| Hex Dec 




| 1F4 500 


PCS LIT PTR | 


| 1F8 504 


DEBUGGING | 


| 1FC 508 


CD for INITIAL INPUT | 


| 200 512 


OVERFLOW CELLS | 


I beginning of 


BL CELLS | 


| Variable-length 


DECBADR CELLS | 


| portion 


FIB CELLS | 




DEBUG TRANSFER | 




DEBUG CARD | 




DEBUG BLL | 




DEBUG VLC | 




DEBUG MAX | 




Reserved | 




DEBUG PTR | 




TEMP STORAGE | 




TEMP STORAGE-2 | 




TEMP STORAGE-3 | 




TEMP STORAGE-4 | 




BLL CELLS { 




VLC CELLS | 




SBL CELLS | 




INDEX CELLS | 




SUBADR cells | 




ONCTL CELLS | 




PFMCTL CELLS | 




PFMSAV CELLS | 




VN CELLS | 




SAVE AREA=2 | 




SAVE AREA=3 | 




XSASW CELLS | 




XSA CELLS I 




PARAM CELLS j 




RPTSAV AREA | 




CHECKPT CTR | 




VCON TBL | 




DEBUG TABLE | 



Figure 77. Fields of the Task Global Table 



The lengths of the variable-length 
fields are determined by the reguirements 
of the program (if not reguired, a 
particular field may not exist in the 
object program) • The lengths of these 
fields are computed in phase 6 or 62, In 
the chapter "Phase 6," Figure 36 shows the 
source of each variable TGT field. 

SAVE AREA 

the program's save area; used to 
provide standard subroutine linkage 
when this program is called (by the 
Operating System or by another 
program) and when this program calls 
other programs. 



SWITCH 

a fullword switch, 
bits are used: 



Only the following 



Bit Meaning 

~0~ Indicates a size error in series 
addition or subtraction. If a 
SIZE ERROR clause was included 
in the source statement, and a 
size error occurs before all 
data items in the series have 
been added or subtracted^ this 
bit is set to 1. It is tested 
after the entire addition or 
subtraction is complete. If 
the value is 1, the 
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instructions generated for the 
ON SIZE ERROR clause are 
executed. 

Used for TRACE. It is set to 1 
by the execution of a READY 
statement, and reset to by a 
RESET statement. If the 
program uses a TRACE statement, 
there are instructions to test 
this bit at the point of 
definition for every source 
program procedure- name (PN) . 
If it is on, the DISPLAY 
subroutine (ILBODSPO) is called 
to print the card number of the 
procedure-name (see the 
publication IBM OS/VS COBOL 
Subroutine Library, Program 
Logic for a description of the 
DISPLAY subroutine) - 

Indicates program initialization. 
Set to 1 by routine INIT3 to 
show that initialization has 
been performed. Tested by 
INIT3 so that if the module is 
re-entered, INIT3 can perform 
re-entry functions instead of 
initialization functions. See 
"Initialization 3 Routine" in 
this appendix. 

Main or subprogram switch. Set 
by INIT2, if this is a main 
program (see the subroutine 
ILBOSTPO in the publication 
referred to above) . 

Used for SYMDMP. It is set to 1 
by phase 65 if the symbolic 
debug option is in effect for 
the program. This bit is 
tested by the object -time COBOL 
library debugging control 
subroutine ILBODBGO. 

Used for FLOW. It is set to 1 by 
phase 65 if the flow trace 
option is in effect for the 
program. This bit is tested by 
the object-time COBOL library 
debugging control subroutine 
ILBODBGO. 

Compile-time STATE bit. It is 
set to 1 by phase 65 if the 
statement number option is in 
effect for the program. At 
execution time, this bit is ■■;..;;■ 
relocated to bit 10 by 
ILBODBGO. At execution time, 
this bit is set to 1 by 
ILBOREC0 when the MESSAGE 
condition being tested is true; 
it is also set to 1 by ILBOSTG0 
(for the STRING verb) or by 
ILBOUST0 (for the UNSTRING 



verb) if an overflow condition 
occurs. This execution- time 
use is tested by generated 
code. 



Used for OPT. It is set to 1 by 
phase 62 if optimization has 
been requested for the program 
or by phase 65 if the SYMDMP, 
or STATE and OPT, or FLOW and 
OPT options have been 
specified. 



| 8 Reserved 

9 Used for CALL, CANCEL, or a 

recursive CALL. Set to 1 by 
the generated code for the CALL 
or CANCEL verb„ Tested by 
INIT2 to determine if a 
recursive call condition 
exists. 

10 Execution-time STATE bit, 
relocated from bit 6 by ILBODBGO 
and tested by the debugging 
subroutines. 

1 1 Set to 1 by the compiler if TEST 

option is in effect. 

12 QUOTE IS APOST bit. Set to 1 if 

the apostrophe is to be used to 
delineate literals and to be 
used in the generation of 
figurative constants. 

13 DBGFLPT bit. Set to 1 by phase 

65 if ff when SYMDMP is 
requested** there is a 
floating-point item in the 
program* Tested by ILBODBGO. 
Indicates that, following call 
to ILBODBGO, INIT3 contains DC 
of 2-byte displacement from 
beginning of PGT of virtual for 
ILB0TEF3. 

14 LONGTGT bit. Always set to 1. 

15 Indicates maximum length for a 

variable-length field. Before 
the execution of a Q-Routine, 
this bit is set to 1 if the VLC 
and SBL for the field are to be 
set to their maximum possible 
values, rather than a value 
depending on the current value 
of a data item. The maximum 
value is the value of X in the 
clause "OCCURS X TIMES 
DEPENDING ON.. . ". 

16 SRVBIT bit. Indicates ILBOCOM 

subroutine is link edited with 
the object module. 
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17 Set to 1 if ENDJOB is specified. 



18 Indicates that OBJECT-COMPUTER 

IBM-370 was specified. Used by 
COBOL Library subroutines. 

19 Indicates that Q-routines are to 

be executed in initialization 
mode. 

20 Set to 1 if COUNT is specified. 

21 Set to 1 if the TRACE verb is 

specified. 

22 Indicates that an invalid SYNADAF 

was performed in the ILBOSYN0 
COBOL Library subroutine. 
Tested by code generated for 
Error Declarative. 

24-31 DECIMAL-POINT IS COMMA clause 
byte. If this clause was 
specified, the byte contains a 
comma in EBCDIC. If not, it 
contains a decimal point. 

TALLY 

a fullword used for source program 
references to the special register 

TALLY. 

SORT SAVE 

a fullword used during the execution 
of a SORT/MERGE RETURN statement to 
contain the GN for the next sequential 
instruction following the RETURN. 

ENTRY-SAVE 

a fullword used to save the entry 
point of the program during INIT2 and 
INIT3 execution. 

SORT CORE SIZE 

a fullword for the SORT-CORE-SIZE 
special register as used in the source 
program. 

RET CODE 

a halfword for the RETURN-CODE special 
register, which is used in the source 
program to provide a completion code 
on a STOP RUN, EXIT PROGRAM, or GOBACK 
statement, or to store the return code 
from a called program. It is the 
user's responsibility to set this 
code. 

SORT RET 

a halfword used to contain the return 
code from a SORT/MERGE operation. 

WORKING CELLS 

variable-length cells used by COBOL 
library subroutines called by the 
program. The total length of the 
field is 304 bytes. 



SORT FILE SIZE 

a fullword for the SORT-FILE-SIZE 
special register as used in the source 
program. 

SORT MODE SIZE 

a fullword for the SORT-MODE-SIZE 
special register as used in the source 
program. 

PGT-VN TBL 

a fullword pointer to that part of the 
VN field of the PGT containing VNs for 
independent segments. 

TGT-VN TBL 

a fullword pointer to that part of the 
VN field of the TGT containing VNs for 
independent segments. 

LENGTH OF VN TBL 

a halfword containing the length of 
that part of the VN field (the length 
is the same for both the TGT and PGT) 
containing VNs for the independent 
segments. 

LABEL RET 

the LABEL-RETURN special register for 
nonstandard labels. If an error 
occurs in such a label , it is the 
user's responsibility to place a 
nonzero value into this 1-byte cell. 

DDBG R14SAVE 

contents of register 14. Phase 51 
generates a call to ILB0DBG4, the Save 
register 14 routine of the Debug 
control subroutine (ILBODBG0) , before 
any instruction which passes control 
outside the COBOL program. The 
address of this instruction is saved 
in this cell by ILB0DBG4. 

COBOL INDICATOR 

identifies the object program as 
compiled by an OS/VS COBOL or American 
National Standard COBOL compiler. 

A(INIT1) 

address of INIT1 used for GOBACK, STOP 
RUN, and EXIT PROGRAM instructions, 
and for segmentation coding. 

DEBUG TABLE PTR 

if the FLOW, STATE, SYMDMP, or TEST 
option is specified, this field 
contains displacement from the 
beginning of INIT1 to the Debug Table. 

SUBCOM PTR 

address of the Subroutine 
communications area. 

SORT-MESSAGE 

eight bytes for the SORT-MESSAGE 
special register which is used in the 
source program to allow the user to 
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indicate to the Sort/Merge program 
where to place the messages it issues. 

SYSOUT DDNAME 

character which will be concatenated 
with "SYSOU" to create DISPLAY and 
TRACE EXHIBIT SYSOUT DDname. If field 
is zero, "T H is assumed. 

COBOL ID 

a 2-byte field containing a binary 
number number that indicates the type 
and version of the compiler. The 
number is 0008 (hexadecimal) for the 
OS/VS COBOL compiler, release 1. 

COMPILED POINTER 

an address (INIT1+88) pointing to the 
WHEN-COMPILED information. 

COUNT TABLE ADDRESS 

relative address of the COUNT table 
from the beginning of the TGT. The 
COUNT table, which is generated by 
phase 60 or phase 64 if COUNT is 
specified, is located between the 
Q-routines, if any, and the INIT2 
routine. The count table is used only 
when the program terminates. 

DBG R11SAVE 

contents of register 11. When 
ILBODBG5, the Dynamic dumping routine 
of the Debug control subroutine 
(ILBODBG0) receives control, it places 
the return address to the inline code 
of the calling program in register 11. 
Therefore, the contents of register 11 
must be saved before the call to 
ILBODBG5. 

COUNT CHAIN ADDRESS 

address of the COUNT CHAIN for this 
program. The address is initialized 
to zero if count is specified; the 
address is filled in at execution 
time. 

PRBL1 CELL PTR 

a fullword cell containing the address 
of the first PROCEDURE BLOCK cell in 
the PGT. 

TA LENGTH 

a halfword initialized by phase 6 or 
64 to the length of the largest 
segment with a nonzero priority. 

PCS LIT PTR 

a fullword cell containing the address 
of the PCS x (Program Collating 
Seguence) alphabet. 

DEBUGGING 

a fullword cell containing the address 
of the beginning of the debugging 
cells in the variable portion of this 
table. 



CD FOR INITIAL INPUT 

a fullword cell containing the address 
of the CD area with INITIAL INPUT 
clause. 

OVERFLOW 

if the TGT is longer than 4096 bytes, 
this field contains one fullword cell 
pointing to each 4096-byte area after 
the first. The cell is loaded into a 
register when a base is reguired for 
the overflow area. 

BL 

base locators. Each BL cell is a 
fullword containing an address in the 
data area. There is one BL pointing 
to the beginning of the Working- 
Storage Section and one for each file 
in the File Section. More than one BL 
is assigned if an area is larger than 
4096 bytes. The BL assignments are 
made by phase 22. The BLs for gueued 
files do not contain initial values 
and are changed by the execution of 
certain input/output operations. 

DECB ADR 

DECB addresses. There is one fullword 
cell pointing to the address of the 
DECB for each basic file. 

FIB 

File Information Block addresses. 
There is one fullword cell pointing to 
the address of the FIB (address of the 
FCB during execution) for each VSAM 
file. 

DEBUG TRANSFER 

a one byte cell indicating the DEBUG 
type for a PN. 

DEBUG CARD 

a three-byte cell containing the card 
number. 

DEBUG BLL 

a two-byte cell containing the 
displacement to the BLL cell. 

DEBUG VLC 

a two-byte cell containing the 
displacement to the VLC cell. 

DEBUG MAX 

a two-byte cell containing the maximum 
size of a DEBUG-ITEM. 

DEBUG PTR 

a fullword cell containing a pointer 
used by ILBOBUG to reference the debug 
subscript table. ; 

TEMP STORAGE 

temporary storage for arithmetic 
operations. TS space is allocated in 
doubleword blocks by phase 50. See 
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"Register and Storage Allocation" in 
the chapter "Phase 50." 



TEMP STORAGE-2 

temporary storage for nonarithmetic 
instructions. These cells are 
variable in length. An example of the 
use of TS-2 may be found under 
"Nonarithmetic Conversions" in the 
chapter "Phase 51." 

TEMP STORAGE-3 

temporary storage used to align fields 
of data described by the SYNCHRONIZED 
option. The field begins on a 
doubleword boundary. 

TEMP STORAGE-4 

temporary storage cells used for the 
SEARCH ALL table-handling verb. The 
field starts on a doubleword boundary. 



BLL 



VLC 



SBL 



base locators for the Linkage Section. 
Each BLL cell is a fullword containing 
the address of an area passed as a 
result of an ENTRY statement* a label 
record, a totaled area, a SORT 
description entry, or a GIVING option 
in a USE. ..ERROR statement. 



variable-length cells. Each VLC is a 
halfword whose value is set by the 
execution of a Q- Routine. It contains 
the current length of a variable- 
length field. There is one VLC for 
each OCCURS. . .DEPENDING ON clause and 
all items to which it is subordinate. 



secondary base locators. Each SBL 
cell is a fullword set by the 
execution of a Q-Routine. It contains 
the current address of a field which 
is variably located because it follows 
a variable-length field. 



INDEX 



fullword cells, each containing the 
current value of an INDEX-NAME. There 
is one IND cell for each INDEX-NAME 
defined in an INDEXED BY clause. 



PFMCTL 

PERFORM control counters and DEBUG 
saved location. Each PFMCTL cell is a 
fullword used for a PERFORM n TIMES 
statement to count the number of times 
the procedure has been performed. The 
instructions which use these cells are 
generated by phase 51. For DEBUG, a 
PFMCTL cell is used to save the 
contents of register 14 when the DEBUG 
packet is entered. DEBUG packets are 
called by BALR 14,15. See "PERFORM 
Statement" and "DEBUG Card" in the 
chapter "Phase 4." 

PFMSAV 

PERFORM saved locations. Each is a 
fullword used to contain an address. 
The statements using these cells are 
generated by phase 4. For PERFORM, 
the cell is used to store the address 
of the next sequential instruction 
after the performed procedure, when 
that procedure is being executed 
because of a PERFORM. This is to 
enable the procedure to be executed 
inline. 

VN 

variable procedure-names. Each VN 
cell is a doubleword containing the 
current address of a branch point 
which may change during program 
execution because of an ALTER or 
PERFORM statement. See "ALTER 
Statement" and "PERFORM Statement" in 
the chapter "Phase 4. " 

SAVE AREA-2 

pointer to the save area provided for 
label- and error-processing 
declaratives. 

SAVE AREA-3 

variable number of fullwords used for 
OPEN parameters. 



XSASW 



1-byte EXHIBIT switches. These are 
used as first-time switches for the 
coding generated for the EXHIBIT 
CHANGED statement. They are also used 
in certain types of SORT statements 
and ON statements. 



SUBADR 

subscript addresses. Each SUBADR cell 
is a fullword containing the address 
for a subscripted reference. See 
"Resolving Subscripted and Indexed 
References" in the chapter "Phase 50." 



XSA 



ONCTL 



control counters for ON statements. 
Each is a fullword initialized to 
zero. See "Other Nonarithmetic Verb 
Strings" in the chapter "Phase 51" 
which discusses the ON statement. 



EXHIBIT saved area cells. These are 
variable in length and are referred to 
in the coding generated for an EXHIBIT 
CHANGED statement. There is one XSA 
for each operand to be exhibited with 
a CHANGED option. These cells are 
also used for SORT and RELEASE verbs. 



PARAM 



parameter area of fullwords, 
containing parameter lists for macro 
instruction expansions of certain 
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source statements. The size of the 
parameter area equals the largest 
number of words required for any one 
expansion. 



RPTSAV 

six words used to save branch 
addresses during the execution of 
Report Writer routines, if the Report 
Writer is used. 



If the SYMDMP and FLOW options are 
specified: 

Byt es Contents 

P Number of traces requested 
1-5 The same as shown above for the 
SYMDMP option. 



PROGRAM GL OBAL TABLE (PGTV 



CHECKPT CTR 

fullword cells used to count the 
number of file records processed for a 
file for which checkpoints are to be 
taken. 

DEBUG TABLE 

this table is used by the flow trace 
statement number, and symbolic debug 
COBOL library subroutines. It is also 
used by the IBM OS COBOL Interactive 
Debug Program Product. It is built by 
phase 65; the format depends on the 
options specified. 

• If the FLOW option is specified: 



The Program Global Table contains data 
which procedure instructions reference. 
All the fields in the PGT are variable in 
length. The data contained in the PGT is 
generated by phase 6 or 62. PGT data is 
never modified by procedure instructions; 
rather, it remains constant throughout 
program execution. In the chapter "Phase 
6," the sections "Optimizing Storage for 
the Program Global Table" and "Allocating 
Storage for the Program Global Table" 
describe how the PGT is generated. 

The fields in the PGT are illustrated in 
Figure 78 and described in the text below. 



Byte Contents 

0^ Number of traces requested. 
1-3 Unused 

• If the STATE option is specified: 



Byte 
0-3 

4-7 



8-11 



12-15 



16-19 



Contents 

Start of Q-Routines, or if 

none, start of INIT2. 

Size of Declaratives (not 

including Report Writer) 

Section. 

Address of PROCTAB in object 

module relative to beginning of 

INIT1. 

Address of SEGINDX in object 

module relative to beginning of 

INIT1. 

Address of end of SEGINDX in 

object module relative to 

beginning of INIT1. 



• If both the FLOW and STATE options are 
specified: 

Byte Cont en ts 

Number of traces requested. 
1-19 The same as shown above for the 
STATE option. 

• If the SYMDMP or TEST option is 
specified: 

Bytes Conte nts 

0-3 Start of Q-Routines or, if none 
start of INIT2. 

4-5 Hashed compilation indicator 
(see PROGSUM table in 
"Section 5. Data Areas.") 



| DEBUG LINKAGE AREA 

| : 

ICOUNT LINKAGE AREA 
I 



| TEST LINKAGE AREA 

| , 



| OVERFLOW 
«- 



| VIRTUAL 
I 



f VIRTUAL EBCDIC NAMES 

i 

jPN 

I : — 



|GN 



I • 

IDCBADR 



I 

|VNI 
h< 



| LITERAL 



J 

{DISPLAY LITERAL 



| PROCEDURE BLOCK 



Figure 78. Fields of the Program Global 
Table 



DEBUG LINKAGE AREA 

12-byte area which contains the 
linkage for dynamic dumps. The area 
contains the following code: 

ST 11, DBG R11SAVE in TGT 
L 11,=V(ILBODBG5) 
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BR 11 
(2 slack bytes) 

If the SYMDMP option is not specified, 
this 12-byte area does not exist. 

COUNT LINKAGE AREA • 

8-byte area which contains the linkage 
to the COUNT routine. If the COUNT 
option is not specified, this 8-byte 
area does not exist. 



loaded are listed; in addition, if 
DYNAM is in effect, the EBCDIC names 
of all user subprograms that are to be 
dynamically called are listed. Each 
VIRTUAL EBCDIC NAME cell is a 
doubleword containing the name of the 
subroutine or subprogram, left 
justified and padded with blanks if 
necessary. If neither DYNAM or 
RESIDENT is in effect, this field does 
not exist. 



TEST LINKAGE AREA 

16-byte field which contains the 
linkage to the IBM OS COBOL 
Interactive Debug Program Product 
(Program No. 5734-CB4) when TEST was 
'..-. specified for compilation. At the 
start of execution the field contains 
the, following: 



PN 



LR 


14,0 


BCTR 


14,0 


BCTR 


14,0 


MVI 


(14) ,X>07« 


LR 


14,0 


BR, 


14 



(2 slack bytes) 

OVERFLOW 

if the entire PGT exceeds 4096 bytes 
in length, there is one fullword 
OVERFLOW cell pointing to each 
4096-byte section after the first. 
The cell is loaded into a register 
when a base is needed to refer to the 
section of the PGT. 

VIRTUAL 

each virtual is a fullword containing 
the address of an external procedure 
(the result of an ESD and RLD in the 
object module) unless the DYNAM or 
RESIDENT option is in effect. If 
either option is in effect, the 
virtuals corresponding to library 
subroutines are written as EBCDIC 

•/ 00 00 00« 

If the DYNAM option is in effect, the 
virtuals corresponding to user 
subprograms contain the relative 
displacement of the subprogram name 

from the beginning of the PGT. It is 

required because of a CALL statement 
in the source program or a branch to a 
COBOL £ library ob j ec t- time subroutine . 
Because of phase 6 or 62 optimization, 
a given virtual is stored only once no 
matter how many times it is used. 

VIRTUAL EBCDIC NAMES 

EBCDIC names of library subroutines 
and user subprograms. If the DYNAM or 
RESIDENT option is in effect, the 
EBCDIC names of all library 
subroutines that are tp be dynamically 



GN 



source program procedure-names. When 
the OPT option is in effect, only 
those PNs associated with ALTER and 
declaratives references receive PN 
cells. Each PN cell is a fullword 
containing the address of the first 
instruction in a block of coding. The 
addresses of the PNs are in the same 
order as their definition in the 
source program. The program branches 
by loading an address from the PGT and 
then branching to it. 



compiler-generated procedure- names. 
When the OPT option is in effect, only 
those GNs associated with AT END and 
INVALID KEY references receive GN 
cells. Each GN is a fullword 
containing the address of the first 
instruction in a block of coding. GNs 
are used in the same way as PNs. They 
were generated to provide addresses 
for branches implied but not stated in 
the source program. They are stored 
in the PGT in the order in which they 
were generated. 

DCBADR 

DCB addresses. Each DCBADR cell is a 
fullword containing the address of a 
data control block in the data area of 
the program. There is one DCBADR cell 
for each DCB generated by phase 21. 

VNI 

variable procedure-name initialization 
cells. There is one doubleword VN 
cell for each variable procedure-name 
in the program. It contains the 
initial value of the VN, and is used 
to initialize the VN values in the 
TGI. VNs are generated by phase 4 to 
contain branch addresses which vary 
because of PERFORM or ALTER 
statements. See "PERFORM Statement" 
and "ALTER Statement" in the chapter 
"Phase 4" for a description of the 
generated logic. 

LITERAL 

literals referred to by procedure 
instructions. The literals are 
variable in length. There is no 
duplication in storage, since 
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duplicate literals were removed by 
phase 6 or 62 optimization. 

DISPLAY LITERAL 

literals used by calling sequences 
rather than instructions. They are 
variable in length. Duplication was 
eliminated by phase 6 or 62 . 

PROCEDURE BLOCK 

each cell is a fullword containing the 
address of a Procedure block. The 
compiler assigns these cells only when 
the OPT option is in effect. 



REPORT WRITER, ROUTINES (RPT^ 



This area of the program contains the 
special routines which handle the Report 
Writer feature. It is discussed in 
"Appendix C. Report Writer Subprogram." 



PROCEDURE 



length changes , and to update the location 
of the field which follows it. The actual 
output of a Q-Routine is a new value in the 
appropriate VLC cell of the TGT and the 
corresponding SBL cell (see the description 
of the TGT in this chapter for the meaning 
of these cells) . 

Only the Q-Routine updates the pointers; 
it does not change the contents of the data 
area involved. For this reason, if the 
OCCURS... DEPENDING ON area is followed by 
another field within the same 01-level 
item, and the OCCURS. . .DEPENDING ON area 
becomes longer, the information immediately 
following the area before it changed is now 
no longer accessible: the pointer to it, 
in the SBL, has been moved. This can be 
avoided in the source program by moving 
data out of the SBL field before any change 
in the value of the DEPENDING ON object, 
and moving it back after the change. 

This problem does riot arise between one 
01-level item and the next, because each 01 
field of data is allotted enough space for 
the maximum number of occurrences. 



In this area is located the object code for 
the instructions described in the source 
program Procedure Division. The area does 
not contain any COBOL library subroutines; 
these routines, if required for execution, 
are added to the load module by the linkage 
editor or, if the RESIDENT or DYNAM option 
is in effect, these routines are 
dynamically loaded at object time. If the 
program is segmented, this area contains 
the Procedure Division sections for the 
root segment. See "Segmented Object 
Module" in this chapter. 

The object code for this area is 
produced by phase 6 or 64, which also 
generates code for the Report Writer and 
Q-Routine areas. Note that phase 6 or 64 
does not make any distinction among these 
three areas. They occur in the object 
module in this order because PO-text was 
written in that order: by phase 12 for 
Report Writer, by phase 1B for the 
Procedure Division, and by phase 22 for 
Q-Routines. From phase 3 on, the compiler 
did not recognize the end of one area and 
the beginning of the next. 



Q-ROUTINES 



Q-Routines are special routines generated 
for data items described by the 
OCCURS... DEPENDING ON option. The function 
of these routines is to update the length 
of the variable-length data item when that 



COUNT TABLE 



The COUNT table is used by the COBOL 
library subroutine ILBOTC30. It contains 
entries for each procedure- name and source 
verb. This table is present only if COUNT 
was specified. The format of each entry 
is: 



lite 




♦2-4 
*5-6 



*7 

or 
*7 to n+1 



Contents 
Identification code 

Code Meaning 

~00 end of table 

01 procedure^id 

02 verb^-id 

Length of entry. If byte 
contains 00, this byte 
contains zero. 

Card number 

Block number 

If byte contains 01 , these 
bytes contain zeros. 

If byte contains 02, the 
block number of the count 
block for executable 
verbs; the count block is 
00 for non- executable 
verbs. 

If byte contains 02, the 
verb number (PL-code) 

If byte contains 01, the 
EBCDIC name of the 
procedure 
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INITIALIZATION 2 ROO TINE (INIT2) 



The initialization 2 (INIT2) routine is 
entered from INIT1 each time the program is 
executed. It is generated by phase 6 or 
64. The routine performs the following 
functions: 

1. Stores the address of the save area 
(located at the beginning of the TGT) 
for this program, which is contained 
in register 13, into the save area of 
the calling program or the job 
scheduler. 

2. Stores the location of the save area 
of the calling program or job 
scheduler into this program's save 
area, which is located at the 
beginning of the TGT. 

3. Stores the address of the first 
executable instruction in the ENTRY 
SAVE cell of the TGT in case Register 
14 is needed. INIT2 checks the SWITCH 
field of the TGT to determine if the 
program has been entered before. If 
so, it checks the SWITCH field to 
determine if this program has called 
another program and not yet received 
control back via a GOBACK or EXIT 
PROGRAM statement. This condition is 
known as a recursive call and causes 
the job step to be terminated. If 
INIT2 finds a recursive call, it 
passes control to ILB0SRY1 to issue an 
error message and terminate 
processing. 

4. If neither the RESIDENT nor the DYNAM 
option is in effect, branches and 
links to the COBOL library subroutine 
ILBOSRVO (see the publication IBM 
OS/VS COBOL Subroutine Library Progra q 
Logic to determine whether this is a 
main program or a subprogram in the 
run unit. Sets a bit in the SWITCH 
field of the TGT according to the 
information returned. If the DYNAM or 
RESIDENT option is in effect, INIT2 
loads the COBOL library Subroutine 
communications area (SOBCOM) and 
stores the address in the TGT* It 
tests the SCMAIN flag in SOBCOM to 
determine if it is the main program. 
If it is a main program, INIT2 loads 
the COBOL library ENTER subroutine, 
ILBONTRO, and stores the address in 
SOBCOM. Otherwise, INIT2 issues a 



DELETE macro instruction for SOBCOM to 
reduce the system responsibility 
count. If ILBONTRO has not yet been 
loaded, INIT2 loads it and saves the 
address in SOBCOM. Then INIT2 obtains 
the address of ILBONTRO from SOBCOM, 
sets the SCLDLST flag in SOBCOM, and 
passes control to ILBONTRO to load all 
necessary COBOL library subroutines. 



INIT IA LIZATION 3 ROOTINE (INIT3) 



The initialization 3 (INIT3) routine is 
executed whenever the program is entered. 
It is generated by phase 6 or 64. The 
functions of the routine are determined by 
testing a bit in the SWITCH field of the 
TGT to determine whether this is the first 
time the module has been entered. If it 
is, the INIT3 routine: 



1. 



2. 



3. 



4. 



5. 



Initializes the VN cells in the TGT 
from the values contained in the VN 
cells of the PGT. 

Relocates each address constant in the 
TGT and PGT to its absolute location. 
(Ontil this routine is executed, the 
addresses are relative to the 
beginning of the program.) This 
relocation is accomplished by adding 
the absolute location of the beginning 
of the program (the address of INIT1, 
which is in register 11) to the 
relative addresses. 

Loads and BALRs to the addresses of 
Q-Routines to initialize the VLC and 
SBL cells in the TGT for 
OCCORS... DEPENDING ON fields that 
depend on an item in Working-Storage. 



Loads permanent ba 
cells in the TGT, 
is in effect, load 
registers from BL, 
cells in the TGT a 
meaning of permane 
explained in the c 
under "Execution-T 
Assignment. ") 



se registers from BL 
or if the OPT option 
s permanent base 

BLL, and OVERFLOW 
nd PGT. (The 
nt base registers is 
hapter "Phase 6" 
ime. Base Register 



♦This field is not present if byte 
contains 00. 



Branches to the first executable 
instruction in the object program (at 
location START, whose address is in 
register 14), or to the entry point in 
the coding generated for an ENTRY 
statement, which is the instruction 
following the BALR in the ENTRY 
coding. If the FLOW, STATE, SYMDMP, 
or COONT option is in effect, the 
COBOL library debugging subroutine, 
ILBODBG0, is loaded and branched to 
before the branch to the instruction. 
If TEST was specified at compile time. 
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INIT3 determines if the TEST command 
has been issued for execution time. 
If it has, INIT3 branches to the IBM 
OS COBOL Interactive Debug Program 
Product (Program No. 5734-CB4) . If, 
additionally, there is a 
floating-point item in the program, 
the branch to ILBODBGO is followed by 
a DC of the 2-byte displacement from 
the beginning of the PGT where the 
virtual for the ILB0TEF3 subroutine is 
located. 

If the testing of the SWITCH field 
reveals that the module was entered 
previously, INIT3 resets the program to its 
previous state by loading registers from 
the save area in INIT1. Then it branches 
as described in item 5, above. 



PROC TAB Table (PRO CTAB) 



The PROCTAB table is used by the 
object-time COBOL library subroutine for 
the statement number option. It contains 
entries for all the card numbers and verb 
numbers in the COBOL program. The format 
of each entry is: 



Site 
0-2 



3-4 



Contents 

Card number and verb number. The 
verb number is contained in the 
low-order 4 bits of byte 2. 
Displacement of the verb within 
the fragment. 



SEGINDX Table (SEGINDX) 



The SEGINDX table is used by the 
object-time COBOL library subroutine for 



the statement number option. It contains 
an entry for each fragment of the program. 
The format of each entry is: 



C onte n ts 
Zero. 

Fragment address. 
Relative address of first PROCTAB 
entry for this fragment. 
7-9 Relative address of last PROCTAB 
entry for this fragment. 



SEGMENTED OBJECT MODULE (TRANSIENT AREA) 



In a segmented program, the segment 
initialization subroutine ILBOGDO is always 
among the routines present. This routine 
is described in the publication IBM QS/V S 
COBOL Subroutine Library P rogram L ogic . 

If the user did not specify any 
Procedure Division sections with a priority 
lower than SEGMENT-LIMIT (or 49 by 
default) , the procedure area of the root 
segment contains code generated by the 
compiler. 

There are two types of nonroot segments: 
fixed segments and independent segments. 
Fixed segments are always made available in 
the state in which correspond to the 
LANGLVL(n) option while independent 
segments have any GO TO statements reset to 
their initial values, if they have been 
modified by ALTER statements. The 
subroutine ILBOSGM0 performs this resetting 
when necessary. It reinitializes those VN 
cells in the TGT which apply to this 
segment from the corresponding VN cells in 
the PGT. 
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APPENDIX C: REPORT WRITER SUBPROGRAM 



This chapter describes the Report Writer 
Subprogram (RWS) , its structure, elements, 
and response to verbs in the Procedure 
Division. The RWS. is generated by phase 12 
from statements in the Report Section of 
the Data Division. The operation of phase 
12 and associated activities in other 
phases are described in the chapter "Phase 
12". 

If the OPT option is specified, the code 
generated for the Report Writer Subprogram 
is optimized for procedure-name 
addressability and register usage by phases 
62, 63, and 64 in the same manner as is the 
code generated for the other parts of the 
Procedure Division. The operation of 
phases 62, 63, and 64 is described in the 
chapters "Phase 62," "Phase 63," and "Phase 
64." 



STRUCTURE OF THE REPORT WRITER SUBPROGRAM 

JfiSSL 



FIXED ROUTINES 



Fixed routines never vary in logical 
content. Phase 12 generates one and only 
one copy of each of them after all of the 
statements under an RD have been scanned. 
The three fixed routines are 1ST-R0UT, 
LST-ROUT, and WRT-ROUT. 



1ST-R0UT Routine 



The 1ST-R0UT routine causes the first 
headings to be printed by calling on the 
RPT-ROUT and the CHF-ROUT routines. 
Routine 1ST- ROUT is executed when either 
GENERATE report-name or the first 
occurrence of GENERATE detail- name is 
encountered. 



Each RWS is a complete subprogram which, 
when executed, produces a report according 
to the specifications coded in one RD 
statement and its associated group and 
elementary items. The RWS has a fixed 
logical structure; that is, it contains 
fixed, parametric, and group routines in a 
prescribed order and quantity. In certain 
cases, dummy routines are inserted to 
maintain the structure. The RWS produced 
contains all linkages and exits needed. 
Figure 79 shows the logic of a Report 
Writer Subprogram. The coding in the boxes 
is intended to be indicative rather than 
comprehensive. 



BfrEMEflff?, OF A, REPORT WRITER 

iS Ml 



LST-ROUT Routine 



The LST-ROUT routine terminates the report. 
It causes the highest level control break 
(by setting CTL.LVL to 1) and then causes 
the final footings to be printed by calling 
routines CFF-ROUT and RPF-ROUT. Routine 
LST-ROUT transfers control to the LAST-ROLL 
routine, which provides return linkage to 
the main program. (LAST-ROLL is the name 
of a STORE instruction located just before 
the ROL-ROUT routine. It is not itself an 
RWS routine.) Control then falls through 
to the ROL-ROUT routine. 



An RWS includes data items and three types 
of routines: fixed, parametric, and group. 
The data items are assigned special 
data-names; these can be either COBOL 
words, which may be used in the source 
program, or nonstandard words, which may 
not. These routines and data-names are 
discussed later, together with the special 
internal Report Writer verbs generated by 
the compiler. 



WRT-ROUT Routine 



The WRT-ROUT routine writes a record from 
the output work area, RPT.RCD. It then 
moves blanks to CTL.CHR and to RPT.LIN. 
This routine contains two sets of coding if 
the program specifies two output files. 
The programmer may suppress printing of a 
line by coding "MOVE 1 TO PRINT-SWITCH". 
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(INITIATE report-name) 



REPORT-CALL INT-ROUT- 



-© 



(GENERATE report-name) 



REPORT-CALL 1ST-ROUT- 
REPORT-CALL CTB-ROUT- 



REPORT-CALL USM-ROUT (for each detail in report, in order of sequence)- 



1#3 



(GENERATE detail-name) 



REPORT-CALL DET-ROUT (for this detail)- 



-© 



(TERMINATE report-name) 



REPORT-CALL LST-ROUT ■ 



1ST-ROUT 



REPORT-SAVE-2 
IFFRS.GEN NOT = 
REPORT-RETURN-2. 

REPORT-CALL WRT-ROUT 

MOVE1 TOFRS.GEN 
*MOVE1 TO PAGE-COUNTER 

REPORT-CALL RPH-ROUT 

REPORT-CALL CHF-ROUT 

REPORT-RETURN-2 



© 



CHF-ROUT 



REPORT-SAVE-3 

02-coding 
GO TO CTH-ROUT (highest 
level) or (if no controls exist) 
REPORT -RETURN-3 



RPH-ROUT 



REPORT-SAVE-4 

02-coding 
GOTOPGH-ROUT- 



*Generated only if there is a PAGE clause. 



LST-ROUT 



REPORT-SAVE-6 

IFFRS.GEN = 

REPORT-RETURN-6. 

MOVE 1 to CTL. LVL, TER.COD 

REPORT-CALL (LAST-ROLL) 

REPORT-CALL CFF-ROUT 

MOVE 2 TO TER.COD 

REPORT-CALL PGF-ROUT — 

GO TO RPF-ROUT 



(LAST-ROLL) 



REPORT-SAVE-2, then 
fall through to 
ROL-ROUT routine 



RPF-ROUT 



02-coding 
REPORT-CALL WRT-ROUT - 
REPORT-RETURN-6 



t 



CFF-ROUT 



REPORT-SAVE-3 

02-coding 
REPORT-RETURN-3 



1_£ 



PGH-ROUT 



02-coding 
IF LIN.SAV = 0, GOTO 
(GNNN) ELSE MOVE 
LIN.SAVTOABS.LIN 
* REPORT-CALL ALS-ROUT - 
REPORT-CALL WRT-ROUT - 
(GNNN) 

MOVE TO LIN.SAV, 
FRS.GRP, GRP.IND 
REPORT- RETURN-4 



PGF-ROUT 



REPOfeT-SAVE-4 

02-coding 
IF TER.COD = 2 REPORT- 

RETURN-4. 
REPORT-CALL WRT-ROUT 
GO TO PGH-ROUT 



3 






© 



Figure 79 (Part 1 of 4). Logic of the Generated Report Writer Subprogran 
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DET-ROUT (for this detail group) 



REPORT-SAVE-1 

REPORT-CALL 1ST-ROUT- 
REPORT-CALL CTB-ROUT- 



REPORT-CALL USM-ROUT- 

02-coding 
REPORT-RETURN-1 







USM-ROUT (for this DET-ROUT) 



REPORT-SAVE-2 ' 

for each statement with UPON 
clause whose object is this 
DE and each statement with 
SOURCE-SUM correlation: 

ADD operand TO sum bucket. 

(may be more than one operand 
or sum bucket) 
REPORT-RETURN-2 



*Source-control is the name 
specified in the CONTROL 
clause of the source program. 

** Control-field save area name. 
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&. 







CTB-ROUT 



REPORT-SAVE-2 
MOVE TO 

CTL.LVL. IF FRS.GEN NOT= 2 
MOVE 2 TO FRS.GEN GO TO RST-ROUT- 
(highest level) 

ADD 1 TO CTL. LVL 
one set IF source-control* 
per NOT = -nnnn** 
control MOVE TO GRP.IND 
level GO TO ROL-ROUT 



(after lowest level) 
REPORT-RETURN-2 



— © 







ROL-ROUT 



one set 
per 

control 
level 



(lowest level) 

ADD (this level bucket) 
TO (higher level bucket) 
IF (this level-number) = 
CTL.LVL 

RPT-CALLSAV-ROUT" 
GO TO (lowest level) 
CTF-ROUT 



(next-higher level) 



REPORT-RETURN-2 




Figure 79 (Part 2 of 4) . Logic of the Generated Report Writer Subprogram 
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RST-ROUT 



(lowest level) 

IFFRS.GEN=1 RPT-RETURN-3. 
MOVE TO sum bucket. 
MOVE source-control**TO 

-nnnn.*** 
IF this level number=CTL LVL 
REPORT-RETURN-2. 
(next higher level) 



REPORT-RETURN-2 







CTF-ROUT (lowest level) 



02-coding 
IF (this level number)=CTL. LVL 
RPT-CALL RET-ROUT 



GO TO (this level) CTH-ROUT. , 

GO TO (next higher level) CTF-ROUT 



CTF-ROUT (highest level) 



-© 



RPT-CALL RET- ROUT — 
IF TER.COD=0 GO TO 

CTH (highest level). 

GO TO RST-ROUT. 



-© 



©• 



WRT-ROUT 


If 2 files, 

code 

repeated 


RPT-SAVE-5 

WRITE FILE-NAME RECORD-NAME 
(-nnnn) FROM RPT. RCD AFTER 
ADVANCING LIN.NUM LINES 
GO TO (GNBB). 


MGNAA) 

If 2 files, 

code 

repeated 


RPT-SAVE-5 

WRITE FILE-NAME RECORD-NAME 
(-nnnn) FROM RPT. RCD AFTER 
ADVANCING C01 LINES. 




MOVE TO LINE-COUNTER 
ADD 1 TO PAGE-COUNTER.* 


(GNBB) 


MOVE SPACES TO RPT. LIN 
MOVE TO LIN.NUM 
RPT-RETURN-5 



CTH-ROUT (highest level) 



CTH-ROUT (control break level) 

02-coding 
GO TO (next lower level) CTH-ROUT 



CTH-ROUT (next lower level) 



CTH-ROUT (lowest level) 
GO TO RST-ROUT. 



-0 



Note: All calls of the WRT-ROUT routine are 
not shown. Other routines call it as 
often as necessary to print all output 
lines to be produced. 

* Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 

Figure 79 (Part 3 of 4) . Logic of the Generated Report Writer Subprogram 
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JL 



ALS-ROUT* 



REPORT-SAVE-5 

IF LINE-COUNTER = MOVE 1 TO 

LINE-COUNTER. 
MOVE 1 TOFRS.GRP 
SUBTRACT LINE-COUNTER FROM 

ABS.LIN GIVING LIN.NUM 
MOVE ABS.LIN TO LINE-COUNTER. 
REPORT-RETURN-5 



SAV-ROUT 


One for 

each 

control 


REPORT-SAVE-5 

MOVE source-control** (CTB 

value) TO -nnnn*** 
MOVE -nnnn+1 

(value previous to CTB) 

TO source-control. 

REPORT-RETURN-5 



RLS-ROUT* 



REPORT-SAVE-5,. 

IF LINE-COUNTER -0 MOVE 1 TO 

LINE-COUNTER. 
IF LINE-COUNTER LESS THAN 

(integer for FIRST DETAIL) 
SUBTRACT LINE-COUNTER FROM 

(FIRST DETAIL MINUS 1) GIVING LIN.NUM 

MOVE (FIRST DETAIL MINUS 1) 

TO LINE-COUNTER. 
IFFRS.GRP = ADD 1 TO 

LINE-COUNTER ADD ) TO 

LIN.NUM. 
REPORT-RETURN-5 



One for 

each 

control 







RET- ROUT 



REPORT-SAVE-5 
MOVE -nnnn*** TO 
source-control .** 



REPORT-RETURN-5 



Note ; Not all calls to ALS-ROUT and 
RtS-ROUT are shown since each routine 
will be called as many times as necessary 
to determine line spacing. 

*Generated only if there is a PAGE clause. 
**Source-control is the name specified in the 
CONTROL clause of the source program. 
*** Control-field save area name. 



INT-ROUT 



REPORT-SAVE-2 

MOVE TO CTL. LVL, PRINT SWITCH, 
GRP.IND, FRS.GEN, TER.COD, 
FRS.GRP, LIN.NUM, ABS.LIN, 
LIN.SAV, & all sum counters 
*MOVE TO LINE-COUNTER 
*MOVE 1 TO PAGE-COUNTER 
REPORT-RETURN-2 



Figure 79 (Part 4 of 4) . Logic of the Generated Report Writer Subprogram 
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PARAMETRIC ROUTINES 



RST-ROUT Routine 



Parametric r 
structure bu 
obtained fro 
level-49) st 
include stat 
that are rep 
noted under 
ALS-ROUT, th 
copy of each 
parametric r 
following pa 



outines gene 
t vary accor 
m the source 
atements. T 
ements or bl 
eated as nee 
USM-ROUT, RL 
e RWS contai 

parametric 
outines are 
ragraphs. 



rally are fixed in 
ding to the data 

(level-01 through 
hey may also 
ocks of statements 
ded. Except as 
S-ROUT, and 
ns one and only one 
routine. The nine 
discussed in the 



The RST-ROUT routine moves the current 
contents of sum buckets to control-field 
save areas and sets the sum buckets to zero 
for all control levels just processed by 
the ROL-ROUT routine. The RST-ROUT routine 
contains one block of coding for each 
control level, when the level number of 
the block being executed is equal to the 
value in CTL.LVL, control is returned to 
the routine that called the CTB-ROUT 
routine. 



USM-ROUT Routine 



SAV-ROUT Routine 



The USM-ROUT routine adds the operands of 
all SUM clauses that either have UPON (this 
detail-name) or that appear as SOURCE items 
in a TYPE IS DETAIL group to as many sum 
buckets as required. A sum bucket is a 
work area that may be given a data-name by 
the programmer or else is assigned an 
S-point name by the compiler. (S-point 
names are described under "Nonstandard 
Data-names" in this appendix.) Phase 12 
generates one USM-ROUT routine for each 
DET-ROUT routine. If there is no DET-ROUT 
routine in an RWS, no USM-ROUT routine is 
generated. 



The SAV-ROUT routine moves the current 
control name contents to a save area and 
the previous control name values to the 
current control names. 



RET-RO UT R outine 



The RET-ROUT routine resets the control 
names to their current values. 



CTB-ROUT Routine 



The CTB-ROUT routine 
break supervisor. I 
value of a control f 
with the highest lev 
either the lowest le 
control break occurs 
control to be passed 
routine, leaving the 
number in location C 
routine contains one 
each control level. 



ROL-ROUT Routine 



acts as a control 
t tests for a change in 
ield, always beginning 
el and continuing until 
vel is tested or a 
A break causes 

to the ROL-ROUT 

current control level 
TL.LVL. The CTB-ROUT 

block of coding for 



Note: Routines SAV-ROUT and RET-ROUT are 
used only when processing TYPE IS CONTROL 
FOOTING or TYPE IS CONTROL FOOTING FINAL 
report groups. Therefore, any source 
control name areas contain the previous 
value (that is, the value prior to the 
control break) . 



INT-ROUT Routine 



The INT-ROUT routine sets initial values of 
all switches, counters, and SUM-names 
(data-names or S-point names) . Routine 
INT-ROUT is called when an initiate 
statement is encountered. 



The ROL-ROUT routine add 
operands originally defi 
control group. It start 
level and continues unti 
of the current block is 
found in CTL.LVL. At th 
is transferred to the lo 
routine. Routine ROL-RO 
block of coding for each 



s SUM-clause 
ned in another 
s with the lowest 
1 the level number 
equal to the value 
is point, control 
west level CTF-ROUT 
UT contains one 
control level. 



ALS-ROUT Routine 



The ALS-ROUT routine determines the line 
spacing for absolute lines. The ALS-ROUT 
routine is generated only if the RD entry 
contains a PAGE LIMIT clause. 
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RLS - ROUT R outine 



The RLS-ROUT routine determines the line 
spacing for relative lines. Routine 
RLS-ROUT is generated only if the RD entry 
contains a PAGE LIMIT clause. 



there is neither an actual nor a dummy 
CTH-ROUT routine generated. 



CTF-ROUT Routine 



GROUP ROUTINES 



Phase 12 generates one group routine for 
each level-01 record description 
encountered. The group routine selected is 
determined by the TYPE clause of the 
level-01 statement. The coding within the 
routine varies according to the level-01 
through level-49 statements associated with 
it. A level-01 elementary item contains 
all necessary information and, hence, 
results in a complete routine. 

If any of the group routines, except as 
discussed under DET-ROUT, CTH-ROUT, and 
CTF-ROUT routines, is not generated because 
there is no corresponding level-01 
statement, phase 12 supplies a dummy 
routine to maintain the fixed logical 
structure of the RWS. The nine group 
routines are discussed in the following 
paragraphs. 



The CTF-ROUT routi 
footings. There i 
for each control ( 
source program. I 
CONTROL FOOTING gr 
group, a dummy CTF 
generated for each 
highest (FINAL) le 
are no controls (a 
there is neither a 
CTF-ROUT routine g 



CHF-ROUT Routine 



ne produces the control 
s one CTF-ROUT routine 
except FINAL) in the 
t results from a TYPE IS 
oup. If there is no such 
-ROUT routine is 

control below the 
vel. If, however, there 
gain, except FINAL) , 
n actual nor a dummy 
enerated. 



The CHF-ROUT routine produces the heading 
for the highest (FINAL) level control. 
There is one CHF-ROUT routine in an RWS. 
It results from a TYPE IS CONTROL HEADING 
FINAL group. If there is no such group 
defined, or if there is no CONTROL clause 
in the program, a dummy CHF-ROUT routine is 
generated. 



RPH- ROUT R outine 



The RPT-ROUT routine produces the report 
heading. There is one RPH-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
HEADING group. 



RPF-ROUT Routine 



The RPF-ROUT routine produces the report 
footing. There is one RPF-ROUT routine in 
an RWS; it results from a TYPE IS REPORT 
FOOTING group. 



CTHrSSUl^outine 



The CTH-ROUT routine produces the control 
headings. There is one CTH-ROUT routine 
for each control (except FINAL) in the 
source program. It results from a TYPE IS 
CONTROL HEADING group. If there is no such 
group, a dummy CTH-ROUT routine is 
generated for each control below the 
highest (FINAL) level. If, however, there 
are no controls (again, except FINAL) , 



CFF-ROUT Routine 



The CFF-ROUT routine produces the footing 
for the highest (FINAL) level control. 
There is one CFF-ROUT routine in an RWS. 
It results from a TYPE IS CONTROL FOOTING 
FINAL group. If there is no such group 
defined or if there is no CONTROL clause in 
the program, a dummy CFF-ROUT routine is 
generated. 



PGH-ROUT Routine 



The PGH-ROUT routine produces the page 
headings. There is one PGH-ROUT routine in 
an RWS; it results from a TYPE IS PAGE 
HEADING group. 



PGF-ROUT Routine 



The PGF-ROUT routine produces the page 
footings. There is one PGF-ROUT routine in 
an RWS; it results from a TYPE IS PAGE 
FOOTING group. 
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PET- ROUT Routine 



The DET-ROUT routine produces a detail line 
(or group of lines) of the report. There 
is one DET-ROUT routine for each TYPE IS 
DETAIL group. If there is no such group in 
the source program , there is neither an 
actual nor a dummy DET-ROUT routine 
generated. 



DATA-NAMES 



Report Writer data-names are generated to 
identify counters, switches, and control 
fields. There are two types of data-names 
used in an RWS, COBOL word data-names and 
nonstandard data-names. 



"-.nnnn" (for example , E.0OG1) and 
control-filed save area names have no limit 
and are uniquely numbered; the other nine 
appear once per report. The nonstandard 
data-names ares 



CTL.LV L: A counter used by the CTB-ROUT, 
R0L-R0UT, CTF-R0UT, and RST-ROUT routines 
to coordinate control break activities. It 
is initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine* 

FRS.GEN s A 1-byte switch used by the 
1ST-R0UT and CTB-ROUT routines to ensure 
that routine 1ST-R0UT is executed once 
only. After the 1ST-R0UT routine is 
finished* FRS.GEN has a value of 1; after 
routine CTB-ROUT is executed, the value is 
2. FRS.GEN is also tested by routine 
LST-ROUT to determine whether a TERMINATE 
was coded without an earlier GENERATE. 



COBOL Word Data-names 



The COBOL word data-names follow the rules 
for coding COBOL names and are accessible 
to the source programmer. They are 
PAGE-COUNTER, LINE-COUNTER, and 
PR INT- SWITCH. 

PAGE-COUNTER ; A counter generated only if 
there is a PAGE LIMIT clause in the RD 
entry. There can be only one PAGE-COUNTER 
in an RWS. If present, it is initialized 
to 1 by the INT-ROUT routine and used by 
the WET-ROUT routine. 



GRP.IN D: A work area consisting of 1-byte 
switches. There is one switch for each 
GROUP INDICATE clause in a TYPE IS DETAIL 
group. The switches are turned on by the 
CTB-ROUT routine and individually tested by 
DET-R0UT routines after control or page 
break activities so that items specified in 
a GROUP INDICATE clause will be moved to 
the output line work area. The switches 
may be treated as a group or individually, 
as follows: 

© GRP.IND: Group name (level-01) for a 
set of GP.nnnn names. It is set to 
after a page or control break by the 
PGH-ROUT or the CTB-ROUT routine. 



LINE-COUNTER: A counter generated only if 
there is a PAGE LIMIT clause in the RD 
entry. There can be only one LINE-COUNTER 
in an RWS. If present, it is initialized 
to zero by the INT-ROUT routine and reset 
to zero by the WRT-R0UT routine for each 
new page. 

PRIN T-SWIT CH: A 1-byte switch generated by 
phase 12 for any program that contains a 
Report Section. (It may then be used by 
any RWS generated for that program.) It is 
set to by the INT- ROUT routine, 
indicating that the current line is to be 
printed. The source programmer can use 
PRINT-SWITCH to suppress printing of a 
report group by coding "MOVE 1 TO 
PRINT-SWITCH". 



Nonstandard Data-names 



The nonstandard data-names contain the 
special character "." or begin with a 
hyphen; they cannot, therefore, be used by 
the programmer. Data-names in the form. 



© GP.nnnn: Elementary names (level-02) 
following the GRP.IND. They are tested 
and, if zero, set to 1 by the DET-ROUT 
routine for a specific TYPE IS DETAIL 
group. Each GP.nnnn represents one 
1-byte switch. 

TER.COD : A 1-byte switch tested by the 
PGF-ROUT routine to prevent printing of an 
extra page heading, and by the CTF-R0UT 
routine (highest level) to determine if > 
control headings should be produced. It is 
initialized to by the INT-ROUT routine 
and set to 1 by the LST-ROUT routine. 

RPT.RCD: The eork area for the record 
containing the output print line. It is 
133 bytes long and consists of either two 
or three parts (CODE-Cell is optional) in 
the following order: CODE-Cell, a 1-byte 
cell used to hold the code specified in the 
CODE clause of the RD statement and defined 
in the SPECIAL-NAMES paragraph; CTL.CHR, a 
1-byte cell used to hold the carriage 
control character; and RPT. LIN, which 
contains the actual output print line. 
Note that* if there is no CODE clause there 
will be no CODE-Cell and 'RPTiLIN will be 
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132 bytes. The equivalent COBOL coding for 
the RPT.RCD group would be: 

01 RPT.RCD, 

02 FILLER PICTURE X VALUE code. 

02 CTL.CHR PICTURE X VALUE SPACE. 

02 RPT.LIN PICTURE X(131) VALUE SPACE. 

ABS.LIN : A 2-byte counter used by the 
ALS-ROUT routine for absolute line spacing. 
It is initialized to by the INT-ROUT 
routine and set to the appropriate value as 
report lines are produced. It is set, 
therefore, by all group routines generated 
as a result of source statements, but not 
by dummy group routines. 

LIN. SAV ; A 2-byte save area. It contains 
either zero or an absolute line to be 
skipped to after a page heading is 
produced. If a Control Footing, Control 
Heading, or Detail report group contains a 
NEXT GROUP IS integer clause and if, after 
the presentation of that report group, the 
value of integer is less than or equal to 
LINE-COUNTER, then the integer is saved in 
LIN. SAV and the report group will space up 
to and including FOOTING. 

LIN.NUM: A work area used in the WRT-ROUT 
routine in conjunction with the WRITE AFTER 
ADVANCING. ..LINES clause. LIN.NUM can be 
set by any group routine or by either the 
AlS-ROUT or the RLS-ROUT routine. Routine 
WRT-ROUT fills in LIN.NUM with zeros before 
exiting. 

FRS.GRP : A switch set to after the 
PGH-ROUT routine is executed. It is tested 
and set to 1 by a CTH-ROUT, CTF-R0UT, or 
DET-R0UT routine. If one of these groups 
is to be printed and if its first line is 
relative (that is, LINE PLUS integer) , and 
if FRS.GRP is 0, the first relative line 
will be printed on either FIRST DETAIL or 
(LIN. SAV + 1) . 

C ontrol-field Save Area Name s; Data -names 
in the form "-nnnn" are names of 
control-field save areas. (There are two 
save areas per control level.) 

A "-nnnn" name is also generated for any 
FD that contains a REPORT clause. The size 
of the level-01 item is determined from the 
RECORD CONTAINS clause or is 133 characters 
by default. 

E-point Data-names : Data-names in the form 
"E*nnnn" are generated from COLUMN clauses 
in elementary record descriptions. They 
use the special RW-redefines of "RPT.LIN + 
COLUMN - (integer-1) «. 

N- point Data -names : Data-names in the form 
"N.nnnn" are counters used to hold the 
number of lines in a report group that 
contains a relative NEXT GROUP clause, at 



least one relative LINE clause, or both.„ 
Using the N-point counter, the initial 
coding for a report group determines 
whether there are enough lines left on a 
page to print the entire group. 

S-point Data-names: Data- names in the form 
"S.nnnn" are used for accumulators (sum 
buckets) for Control Footing record 
descriptions that have a SUM clause but no 
data-name specified. They are generated so 
that coding of MOVE sum bucket TO E.nnnn 
can be produced. Attributes of the SUM 
clause are picked up in the normal manner 
except for the PICTURE which is picked up 
from the corresponding E.nnnn name 
generated for the sum bucket. If the 
statement has a data-name, S.nnnn is not 
generated. However, its PICTURE is picked 
up in the same manner as an S.nnnn name. 



SPECIAL REPORT WRITER VERBS 



Phase 12 generates five special verbs for 
use in the RWS: REPORT-CALL, REPORT-SAVE, 
REPORT-RETURN, REPORT-ORIGIN, and 
REPORT-REORIGIN. The first three of these 
are used for linkage between the main 
program and the RWS -- for example, as a 
result of a GENERATE statement — and 
between routines of the RWS itself. Their 
equivalent assembler language coding is 
shown below. The remaining two verbs are 
used to process USE BEFORE REPORTING 
sentences. In the following descriptions, 
the PO-text and P1-text verb codes are 
shown in parentheses after each verb. 



REPORT-CAL L (4F) 

is: ~ 



The equivalent coding 



L 15, A (Called routine) 
BALR 1,15 

REPQRT -SAV E-0 through REPQR T-SA VE-n 
(50-55): The equivalent coding is: 



ST 



1,Save-cell-n 



REP0RT-RETURN-0 through REPQRT-RETURN-n 
(56-5B) : The equivalent coding is: 

L 1 ,Save-cell-n 
BCR 15,1 

REPORT-ORIGIN (5C) : The execution of this 
verb causes the address counter to be set 
to the address of the RW-NOP statement at 
the start of the specified routine. A link 
to the USE routine is inserted at this 
point. 

REPORT-REORIGIN (5D) : The execution of 
this verb causes the address counter to be 
reset to the address it contained before 
the REPORT-ORIGIN was encountered. 
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RESP ONSE T O PR OCED URE DIVISI ON VERBS 



Once the Report Writer Subprogram has been 
generated , it is called at particular entry 
points and executed as a result of 
INITIATE, GENERATE, and TERMINATE 
statements in the Procedure Division of the 
source program. These responses are as 
follows: 

Response to INITIATE ; As a result of 
INITIATE, a branch is made to the INT-ROOT 
routine of the particular report. Routine 
INT-ROUT is executed and control returns to 
the next instruction after the INITIATE, 



To find cell CTL.LVL, turn to the memory 
map and find the BL cells in the TGT. BL1 
is located at the address listed there and, 
8 bytes farther, BL3. To the contents of 
BL3 add the displacement (DISPL), 88. The 
result is the address of CTL.LVL. 



Note that if there are registers 
available for each BL needed in the 
program, one register is assigned 
permanently to BL3 and listed in the 
REGISTER ASSIGNMENT column of the memory 
map. In that case, add the DISPL to the 
contents of that register. 



Response to GENERATE ; The response to a 
GENERATE statement depends on whether the 
statement is the first such GENERATE or a 
subsequent one. Figures 80 and 81 
illustrate the two cases. The logic flow 
shown is that for GENERATE detail-name 
statements. The logic for GENERATE 
report-name statements is the same except 
that all DET-ROUT routines are skipped and 
all USM-ROUT routines, in the order of 
their DET-ROUT routines, are executed. 

Response to TERMINAT E; The response to a 
TERMINATE statement is illustrated in 
Figure 82. 



LOCATING DATA ITEMS IN THE OBJECT MODULE 



To find references to a data item in the 
object module, note its internal name in 
the glossary and refer to the 
cross-reference dictionary. A portion of 
the cross-reference dictionary would look 
like this (again using CTL.LVL as the 
example) : 



DATA NAMES 



DEFN 



REFERENCE 



FINDING THE ELEMENTS OF A REPORT WRITER 
SUBP ROGRAM , (RWS), r 



CTL.LVL 



0052 



00100 00118 



It may become necessary to locate, in the 
object module or in a storage dump, the 
data items and routines that make up the 
RWS. This can best be done using a listing 
that includes a glossary and a 
cross-reference dictionary. The following 
discussion assumes the use of the DMAP and 
SXREF or XREF options. 



LOCATING DATA ITEMS IN A STORAGE DUMP 



The glossary lists the cells, switches, and 
work areas mentioned under "Data-names" in 
this appendix. A portion of the four 
pertinent columns of a typical glossary 
look, for example, like this: 



SOURCE NAME 



CTL.LVL 



BASE 



BL=3 



DISPL 



088 



INTRNL NAME 



DNM= 2-426 



To the left of the object module appear 
the numbers of the source statements that 
generate each section of code; to the 
right, in the remarks column, are the 
internal data- names. Among the 
instructions generated for source 
statements 00100 and 00118 will be found 
references to item "DNM=2-426 M , the 
internal name for CTL.LVL. 



LOCATING ROUTINES IN A STORAGE DUMP 



To locate RWS routines in storage, identify 
the desired routine in the object module 
(discussed below), add the relative address 
to the load address (shown in the Linkage 
Editor map), and proceed as in finding any 
other instruction or routine. ' 
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MAIN PROGRAM 



(IN-LINE CODE) 



GENERATE 
detail-name 
Next sequential 
instruction 




Figure 80. First GENERATE Statement Logic Flow 
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Control 

break 

path 



CTB- 
ROUT 



MAIN PROGRAM 



(IN-LINE CODE) 



GENERATE 
detail-name 
Next seq. instr. 



STOP RUN 



DET-RQUT 



G> 



d> 



0- 



SAV- 
ROUT 



ROL- 
ROUT 



CTF- 
ROUT 



• (Minor) 



Non- 
control 
break 
path 



CTF-ROUT 
( Inter- 
mediate- 1) 



CTF-ROUT 

(Inter- 
mediate-n) 



CTF- 
ROUT 

(Major) 



CTH-ROUT 
(Major) 



RET- 




RET- 




RET- 




RET- 


ROUT 




ROUT 




ROUT 




ROUT 



CTH-ROUT 

(Inter- 
mediate-n) 



CTH-ROUT 

(Inter- 
mediate-!) 



CTH-ROUT 
(Minor) 



RST- 
ROUT 



CTF-LOGIC: 

IF the CTF level = the control break level, 

GO to CTH for that level; else 

GO to CTF for next higher level. 



USM- 
ROUT 



Figure 81. Logic Flow of All GENERATE Statements After the First 
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MAIN PROGRAM 



(IN-LINE CODE) 



TERMINATE 
REPORT-NAME . 



Next Seq. Instr.<« 



STOP RUN 



LST-ROUT 

0- 



0- 



©- 

Or 



RPF- 
ROUT 



ROL- 
ROUT 



SAV- 
ROUT 



CTF- 
ROUT 

(Minor) 


through 


CTF- 
ROUT 

(Major) 




RE1 










ROui 




















40 















RST- 
ROUT 



CFF- 
ROUT 



PGF- 
ROUT 



Figure 82. TERMINATE Statement Logic Flow 



LOCATING ROUTINES IN THE OBJECT MODULE 



Locating PET-ROUT and USM-ROUT Routine s 



RHS routines can be found by scanning the 
name field of the object module for their 
GN numbers. Most of their GN numbers can 
be found by using Figure 83. Phase 12 
reserves 24 6N numbers while scanning each 
RD statement and assigns 17 of them to 
routines as shown in this table. (The 
other four routines, DET-ROUT, USM-ROUT, 
CTH-ROUT, and CTF-ROUT, are discussed 
separately below.) The GN numbers in 
Figure 83 may be considered absolute for 
the first Rfls and relative for any 
succeeding RWSs generated. In the latter 
case, the GN number of the INT-ROUT routine 
can be used as a base. It may be found 
from the coding for the INITIATE statement, 
which is a branch to the INT-ROUT routine, 
with the GN number of that routine 
indicated in the remarks column. 



There is one DET-ROUT routine generated for 
each detail group in the source program. 
Each DET-ROUT routine has one corresponding 
USM-ROUT routine. The DET-ROUT routines 
can be found by tracing from the level-01 
statement containing the TYPE IS DETAIL 
clause. The generated instruction would 
probably be: 



GN=032 



EQU * 



This is the first instruction of the 
DET-ROUT routine and 032 is the GN number. 



Each DET-ROUT routine has one 
corresponding USM-ROUT routine. The 
USM-ROUT routine is assigned a GN number 
one less than its DET-ROUT routine, in this 
case 031 . 
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I GN 


ROUTINE 


1 


1 01 


I RPH-ROUT 




j 02 


RPF-ROUT 




I 03 


PGH-ROUT 




I 04 


PGF-ROUT 




| 05 


1ST-ROUT 




I 06 


LST-ROUT 




| 07 


WRT-ROUT 




| 010 


CTB-ROUT 




| 011 


ROL-ROUT 




I 012 


RST-ROUT 




| 016 


CHF-ROUT 




| 017 


CFF-ROUT 




| 020 


INT-ROUT 




| 021 


ALS-ROUT 




I 022 


RLS-ROUT 




I 023 


SAV-ROUT 




| 024 


RET-ROUT 





Locating CTF-ROUT and CTH-ROUT Routines 



One CTF-ROUT and one CTH-ROUT routine are 
assigned to each control after the highest 
(FINAL) level control (whose heading and 
footing are provided by the CHF-ROUT and 
CFF-ROUT routines) . If they are described 
in the source program, they may be found in 
the same way as the DET-ROUT routines. If 
not, they can be found by tracing the 
logic, using Figure 79 as a guide. 



Figure 83. 



Report Writer Subprogram GN 
Numbers 
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APPENDIX JD: INTERFACE .WITH CONVERSATIONAL MONITOR SYSTEM (CMS) 



The COBOL-CMS Interface routine is a module 
executable under the Conversational Monitor 
System (CMS) which allows the terminal user 
to compile a COBOL source program by 
invoking the IBM 0S/VS COBOL Compiler. 



INTRODUCTION 



The COBOL-CMS Interface routine 
terminal user a conversational m 
specifying the options, input an 
data sets, and libraries to be u 
COBOL compiler. It also dynamic 
allocates all data sets for the 
stores the compiled code for exe 
either under OS/VS or under cont 
(for information on the interfac 
the compiled code and CMS see IB 
COBO L Subrouti n e P rogram Logic . 



FUNCTIONS 



allows the 
eans of 
d output 
sed by the 
ally 

user. It 
cution 
rol of CMS 
e between 

m os/ys 



The COBOL-CMS Interface routine is 
initiated when the COBOL command is issued 
through a terminal, such as the 2741 
Communications Terminal- 



Input to th 
file specified 
This is the CO 
device types: 
valid as input 
FILEDEF comman 
source program 
file resides e 
virtual reader 
DISK. 



e COBOL compiler is from the 
in the filename parameter. 

BOL source program. Only the 
DISK, READER, and TAPE, are 
source file devices. The 

d for a DDname of a COBOL 
must be issued if the source 

ither on tape or in the 
The default medium is 



Diagnostic, informational, and prompting 
messages are typed at the terminal. 

The LISTING file which is produced by 
the compiler may be written on disk, the 
spooled printer, or to a dummy device. The 
object (TEXT) file produced by the compiler 
may be written as a disk file, a spooled 
punched deck, or to a dummy device. 



The COBOL-CMS Interface routine analyzes a 
COBOL command string from the terminal, 
constructs an option list, issues CMS 
FILEDEF commands according to the options 
specified, and calls IKFCBLOO to compile 
the source file. The relationships among 
the DMSCOB routine, the COBOL compiler, and 
CMS are described in Figure 84. 



ENVIRONMENT 



The COBOL-CMS Interface routine, DMSCOB, 
(known to CMS as the COBOL command module) 
operates under the Conversational Monitor 
System (CMS) in the virtual machine 
environment of the IBM Virtual Machine 
Facility/370 (VM/370) . 



PHYSICAL CHARACTERISTICS 



The COBOL-CMS Interface routine resides on 
the CMS system disk with the IBM OS/VS 
COBOL Compiler and is given control by the 
initialization routine of CMS. It consists 
of two object modules, DMSCOB and DMSCBD. 
DMSCOB constructs the option list, handles 
linkages to and from the compiler, and 
returns control at the end of compilation 
to the CMS command level. 

DMSCBD contains directory information 
about each phase of the compiler. After 
installation, DMSCBD is physically part of 
the DMSCOB module. 
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Vfc/l/370 



C&1S-GOBOL Interface 



CMS 



«^i&T?i^ 



CMS Service 
Routines 



<#I£1 



DMSCOB 



Initialization 
procedure 



&& System 

functions 



^. 



Call Compiler 



Search File Status 
Table and DMSFST 
macros — -— — 

Load Module 




^jj&k^,*; 



DMSCBD 



DMSFST macros 
(Compiler 
Directory 
Information) 



COBHAND 



WRITE ENTRY card 
forDMSILB 



COBOL Compiler 




IKFCBLOO 



LOADIKFCBL01 



OPEN TEXT or 
SYSPUNCH file 



COBEND 



Final 

processing 
RETURN 



m RETURN 



Legend : 

> 

indicates pointer in main storage 



Figure 84, Relationships Among CMS-COBOL Interface Routine, the COBOL Compiler, and CMS 



530 Appendixes 



Licensed Material - Property of IBM 



OPERATIONAL CONSIDERATIONS 



The DMSCOB routine is invoked when a COBOL 
com sand is entered at the terminal. The 
command consists of: 



• The command name COBOL 

• The source program "filename 1 

• Any optional parameters that the 
terminal user may wish to specify 



The parameters specified in the COBOL 
command are used to build the option list 
and to issue the CHS FILEDEF commands 
needed for the output from the compiler and 
the DMSCOB routine. 



Source program Filename 



The source program filename is a required 
positional parameter. It specifies the 
filename of the data set containing the 
COBOL source program that is to be 
compiled. The file must have a filetype of 
COBOL and have fixed-length records with a 
logical record length permissible for that 
device type. Standard search rules are 
followed to locate the specified file among 
those disk directories currently accessible 
to the user. 



SE£io& Jfist 



The option list consists of all parameters 
specified or implied in the COBOL command. 
These parameters may appear in any order in 
a set of parentheses following the 
filename. When an option and its default 
are both specified, the last to appear is 
generally the one assumed. If any of the 
following mutually exclusive options are 
specified, the last to appear is assumed: 

CLIST •■ PMAP 

XREF - SXREF 

PRINT - DISK 

A maximum of TOO characters, including 
delimiter blanks, between options are 
allowed within the set of parentheses. The 
options are listed in Figure 85. 



i 


■ f ■'" i 




i 


| Option 


(Default 


Alternate Names 


I 

3 


fNOSOORCE 


| SOURCE 


NOSOU,SOU 


...^ 


(CLIST 


| NOCLIST 


CLI,NOCLI 




|DMAP 


INODMAP 


DMA,NODMA 




JPHAP 


INOPMAP 


PMA,NOPMA 




INOLOAD 


I LOAD 


NOLOA,LOA 




| DECK 


INODECK 


DEC,NODEC 




I NOSEQ 


|SEQ 






IFLAGE 


IFLAGH 


LAG,LAGW 




ISUPMAP 


INOSUPMAP 


SUP,NOSUP 




ITRUNC 


INOTRUNC 


TRU,NOTRU 




ISPACE2 


ISPACE1 


ACE2,ACE1 




ISPACE3 


ISPACE1 


ACE3,ACE1 




|NUM 


INONUH 






I QUOTE 


jAPOST 


QUO,APO 




| STATE 


INOSTATE 


STA,NOSTA 




IFLOWnn 


(NOFLOf? 


FLO,NOFLO 




jXREF 


(NOXREF 


XRE,NOXRE 




| SXREF 


INOSXREF 


SXR,NOSXR 




|ADV 


INOADY 


ADV,OADV 




(NOTERM 


| TERM 


NOTER,TER 




INOLIB 


jLIB 






| BATCH 


INOBATCH 


BAT,NOBAT 




(NAME 


(NONAME 


NAM,NONM3 




INOZWB 


(ZWB 






ISYMDHP 


| NOSYMDMP 


SYM,NOSYB 




(OPT 


| NOOPT 






IRES 


INORES 






(DYNAM 


\ NODYNAM 


DYN^NODYN 




| SYNTAX 


1N0SYNTAX 


SYN,NOSYN 




ICSYNTAX 


INOSYNTAX 


CSYN,NOSYN 




| PRINT* 


I DISK* 


PRI,DI 




JNOPRINT* 


(DISK* 


DI,NOPRI 




ISIZE 


181920 


siz yyy 




I yyyyyy 








|buf yyyyy 


| 2768 


BUF yyy 




ISYSX 


|SYST 






(NOVERB 


| VERB 


NOVER,¥ER 




IOSDECK 




OSD 




(LSTCOMP 


JNOLST 


LSTC,OLST 




ILSTONLY 


INOLST 


LSTO,OLST 




ICDECK 


f NOCDECK 


CDE,0CDE 




| FDECK 


INOFDECK 


FDE,OFDE 




(LC0L1 


ILCOL2 I 


0L1,0L2 




(L120 


JL132 | 


L12,L13 




| COUNT 


(NOCOUNT 


COU,OCOU 




IVBREF 


INOVBREF | 


VBR,OVBR 




(VBSUM 


(NOVBSUM j 


VBS,0?BS 




(NODUMP 


(DUMP 


ODUM,DUM 




|LVL 


| NOLVL 


LVL,OLVL 




(ADV 


INOADV 


ADV,OAD¥ 




| |LANGLVL(1) 


|LANGLVL(2) j 
■ < 


L.. , -,■,-, ■ ' " ,. ", 


fl 


jsee Note below. 




i 
S 



Figure 85. COBOL Compiler Options Under 
CHS 

Note : The PRINT, NOPRINT, and DISK options 
apply only in the CMS environment. An 
explanation follows: 

• PRINT specifies that a program listing 
is to be produced. The listing 
includes page headings, line numbers of 
the statements in error, message 
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identification numbers, severity 
levels, 'and message texts (as well as 
any other output requested by SOURCE, 
CLIST, DMAP, PMAP, XREF, or SXREF) . 
The listing is printed at the spooled 
printer. 



DISK specifies that a program listing 
(as described for PRINT above) is to be 
produced, but that it is to be written 
to the appropriate read/write disk with 
a filetype of LISTING instead of to the 
spooled printer. 



Iss uin g CMS FIL EDEF Comman ds 



The DMSCOB module calls routine DMSFLD to 
issue FILEDEF commands. This command is 
used to specify the input/output devices 
and data set characteristics that are 
required according to the user specified 
options. These data sets are listed in 
Figure 86. For a description of CMS see 
IBM Virtual Machine Facility/370 
Conv ersa ti onal Monitor Syst em (CMS) Program 
LogicT Order No. SY20-0881 . 



NOPRINT specifies that the listing file 
described for PRINT above is not to be 
written either to the spooled printer 
or to the read/write disk described for 
DISK. 



METHOD OF OPERATION 



OSDECK specifies that the object 
program is to be executed under OS/VS. 
If OSDECK is not specified, it is 
assumed that the object program is to 
be executed under CMS. 



The DMSCOB routine is invoked by the CMS 
command processor in response to a COBOL 
command from a terminal user. DMSCOB 
performs the initialization that is needed 
to call the IBM OS/VS COBOL Compiler. 



The DISK option is not recognized by the 
compiler. The FDEFLIST routine of DMSCOB 
processes this option by directing the 
compiler output specified for SYSPRINT to a 
disk file called LISTING. 



After compilation is complete or, if any 
D- or E-level messages have been issued, 
after error processing is complete, DMSCOB 
receives control to close all files and 
return control to the CMS command 
environment. 



The other options that appear in Figure 
85 are described in "Compiler Options" in 
the chapter "Introduction." 



| Filetype/Filenamel Condition Required | Comment 



I 

ISYSUT1-SYSUT4 



H 

{Always created 



« 

ISYSUT5 



Erased at end of compilation. 



I 

| LISTING 
| (SYSPRINT) 



| TEXT 



| SYMDMP option 



H ■ : 

| SOURCE, DMAP, PMAP, 
| CLIST, XREF, SXREF, 
| DISK options 



Written to disk where source file resides if that 
is read/write; if not, to its parent disk if that 
is read/write; or else to primary disk if that is 
read/write. 



-I 

| No E- or D-level 
| error messages 
j produced 



I — 

ISYSLIB 



Machine-language code created by compiler; 
written to same disk as SYSUT5 and/or LISTING. 



■i 

| LIB option 



I 

ISYSTERM 
I 



|TERM option 
I 



COPY or BASIS statements in source program. 



Progress and diagnostic messages and compiler 
statistics written to the terminal. 



H 

| DECK option 

H 



ISYSPUNCH 
I 



Object module is written on spooled punch. 



ISYSUT6 



|LVL option 
I 



Compiler SYSPRINT output passed on SYSUT6 to 
FIPS processor; erased at end of compilation. 



Figure 86. FILEDEF Commands Issued for Compilation Under CMS 
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INITIALIZATION 



The operations of DMSCOB 
are described in Figure 
processing is described 
Descriptions" section of 
the sections "option Lis 
FILEDEF Commands" under 
Considerations" for furt 
Additional explanations 
for: 



at initialization 
87. Most of the 
in the "Extended 

the diagram. See 
t" and "Issuing CMS 
"Operational 
her information, 
are given below 



• Special processing for TEXT and 
SYSPUNCH files. 



(For a description of the execution-time 
COBOL-CMS interface, see IBM QS/VS COB OL 
Sub routi ne Library P ro g ram Log ic . For a 
description of the CMS commands see IBM 
Virtual Machin e, Facilit y/3 70 Command 
Langua ge User's Guide , Order 
No. GC20-1804.r 

Note; If a program is compiled under CMS 
and the 0SDECK option is specified, the 
ENTRY control card is not written in the 
object file. The program cannot 
subseguently be executed under CMS. 



• Compiler directory information. 

• Error processing. 



Special Processing for TEXT and SYSPUNCH 
Files 



After the FILEDEF comman 
above) have been issued 
SYSPUNCH files, the DMSC 
flag in the CMS Control 
to indicate that the aux 
routine COBHAND is to be 
these files are opened d 
The CMS OPEN procedure p 
COBHAND after the OPEN h 



ds (described 
for the TEXT and 
OB routine sets a 
Block for each file 
iliary processing 

given control when 
uring compilation, 
asses control to 
as been completed. 



When the COBHAND routine is called, it 
writes a CMS Loader ENTRY control card on 
the TEXT or SYSPUNCH file. The control 
card is the first card in the compiled 
program. It starts in column 1 and 
specifies that ILBCMS is the external name 
of the module that is to be loaded with the 
compiled program. This is the entry point 
of the execution-time COBOL-CMS Interface 
routine, DMSILB. 

At execution time, when the user issues 
the LOAD command, the Loader loads the 
DMSILB routine along with the compiled 
COBOL program. When the user issues the 
START command, the DMSILB routine is given 
control to do the initialization necessary 
to run the compiled program under CMS. 



Compiler D irectory Informa tion 



At installation time the DMSGND routine of 
CMS resolves the necessary directory 
information for each phase of the COBOL 
compiler. This information is stored in 
the form of a DMSFST macro instruction in 
the DMSCBD module. After initialization, 
DMSCBD is physically part of the DMSCOB 
module. 

During compilation the CMS Loader 
searches the File Status Table and all 
DMSFST macros whenever a LOAD instruction 
is issued for a phase of the compiler. It 
uses this information to locate the phase. 

For descriptions of the DMSGND routine, 
the DMSFST macro instruction, the CMS 
loader, and the File Status Table see IBM 
Virtual Machine Facili t y/370 Conversa t iona l 

Monitor System (CM S) Progra m Logic , Order 

No. SY20-0881. 



Error Proc essi ng 



During initialization, DMSCOB issues error 
messages for user errors involving the 
filename parameter, the file containing the 
COBOL source program, or any of the options 
specified. The error messages issued by 
DMSCOB are listed in the section 
"Diagnostic Aids." 
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INPUT 



PROCESSING 



OUTPUT 



Start 



filename 
options 



COBOL 

source 

program 




& 



4> 



INITIALIZATION 

(T) Set flag in nucleus 

(?) Validate filename 

(3) Define output files 

(4) Build option list 

(5) Prepare work files 

(6) Call compiler 



b OSS FLAGS 



# 



option list 



Control passes to 
IKFCBLOD 



Extended Description 


Label 


Chart 


(7) Set compile switch in OSSF LAGS located in NUCON (see IBM Virtual Machine Facility/370 Conversational Monitor System (CMS) Program Logic, 
Order No. SY20-0881 for the format of NUCON) 


DMSCOB 


VM01A1 


(2) Check command line from terminal for filename. 
Call CMS control program to verify filename. 
Determine that file has fixed-length records. 


CKFNAME 
STAT 


VM01D1 
VM01F1 


Qn Call CMS control program to define a disk for permanent output files. 

Use COBOL source program disk if it is read/write; if read only, use its parent disk if that disk is read/write; if read only, use primary disk if that 
disk is read/write. 


FINDRW 
ANYRW 
USEIT 


VM01J1 
VM01G3 
VM02G1 


(4) Build parameter list for specified compiler options in EBCDIC format. 
Set switches to control allocation of output devices. 
Flag invalid options. 


OPTSCN 


VM02B4 


\5J Call CMS control program to determine read/write disk with most space for utility files. 

Call CMS control program to erase any old TEXT, LISTING, and utility files with same filename as file being compiled. 
Call CMS control program to issue the CMS FILEDEF commards required by options specified. 


FDEFS 
FDEFLIST 


VM03G1 
VM03H1 


Q>) Issue GETMAIN for storage needed by compiler. 

Set address of DMSCBD in File Status Table Extension. 
Call I KFGBLOO to compile source file. 


NOOPT 
STDPLIST 


VM03A1 
VM03G2 



Figure 87. Operations of DMSCOB Routine at Initialization 
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RETURNING CONTROL TO THE CHS COMMAND 
ENVIRONMENT 



When DMSCOB receives control from IKFCBLOO, 
it saves the return code issued by the 
compiler and issues a warning message for 
any nonzero return code. It then calls 
other modules to perform required 
functions. The routines and their 
functions are as follows: 

Routin e Functio n 
DMSFNSA Close all files 



contains all the executable code that is 
required for initialization and for 
transfer of control to the OS/VS COBOL 
Compiler. DMSCBD contains the directory 
information that is required by the Loader 
to locate the phases of the compiler. 
After system installation, DMSCBD is 
physically part of the DMSCOB module. 

This section describes the organization 
of the Interface Routine. A standard 
flowchart and directory information are 
provided. 



DMSERS Erase all utility files 

DMSAUPD Update the user file directory 

DMSFLD Clear all file definitions 

DHSSMN Reinitialize storage 

Then the routine resets switches, 
indicates that the virtual storage pages 
used by the compiler are no longer required 
and can be released, sets a return code, 
and returns to the CMS command environment. 
Linkages to these routines are described in 
"Linkages" in the section "Diagnostic 
Aids." 

For descriptions of the routines see IB M 
Virtual Mach i ne Facility /370 Conversationa l 

Monitor System (CMS) P rogram Logic , Order 

No. SY20-0881. 



PROGRAM ORGANIZATION 



The COBOL-CMS Interface routine consists of 
two modules, DMSCOB and DMSCBD. DMSCBD 



DIRECTORIES 



This section contains four directories to 
be used in conjunction with microfiche 
listings of the interface routine. 

Figure 88 associates load modules with 
the CSECTs they contain. Figure 89 
associates external symbols with the load 
modules in which they appear. Microfiche 
names are usually the same as the load 
module names shown in these directories. 

Figure 90 is a directory of all the 
labels that appear in the flowchart in this 
appendix. 

j , j , , 

| External Symbol | Type | Load/Object Module | 



| COBOL 

| DMSCBD 

I 

| DMSCOB 

| NUCON 



1 

LD IDMSCOB 

ER IDMSCOB (after 
| installation) 

SD IDMSCOB 

ER | NUCON 
i - , 



Figure 89. External Symbol Directory 



Load Module 



Entry 



I CSECT Names | Function 



■H — 

| Contains directory information for 
j compiler phases (part of DMSCOB after 
| installation) . 



DMSCBD 



Non-executable | DMSCBD 
code | 

I 



H 

| DMSCOB 
| COBHAND 

j ; ; 



DMSCOB 



COBOL 



| Initialization; link to compiler. 
| ENTRY card for object module. 
.j 



Write 



Figure 88. Load Module Directory 
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Chart VM (Part 1 of 3) • DMSCOB (COBOL-CMS Interface Routine) 



****A1********* 

* *> 

* COBOL * 

* * 
*************** 



*****£!********* 

* 

♦SAVE REGISTERS 

+ SET 

♦ADDRESSABILITY 

* 

**************** 



***Q1********, 

SET COMPILE 
SWITCH IN 
OSS FLAGS 

************** 



*****£)!*** ****** 

* 

♦ CHECK COMMAND 

♦ LINE FOR 

♦ FILENAME 
* 
**************** 



THE DMSCOB ROUTINE IS 
CALLED AT ENTRY POINT 
"COBOL" WHEN THE COBOL* 
COMMAND IS ISSUED AT 
•THE TERMINAL. 



ERROR1 

*****E2********** 
♦ ♦ CALL DMSERR ♦ ♦ 
♦* TO PRINT ♦♦ 

>** ERROR MSG ♦♦ 

DMSCOB001E ♦♦ 

** 

************* 



** 



***FH********** 


*****F2** ******** 




CALL DMSSTT ♦♦ 


* * 




TO ISSUE *♦ 


♦SET RETURN CODE+ 




STATE COMMAND ♦♦ 


♦ 1 * ■> 

: I 




FOR "FILE NAME ♦♦ 




COBOL" ♦♦ 




*************** 


********************** 








♦ 02 ♦ 








♦ D3+ 


**** 






* * 


♦01 ♦ 






* 


* G3 *—-, 

* * 1 


V 




**** 


.♦. 


STATERR 


ANYRW V 


Gl ♦. 


*****G2* ********* 


*****Q3 ******** 


.♦ ♦. 


♦SET "COBSW2" TO* 


** 


♦ ♦. NO 


♦ INDICATE * 


** 


FILE FOUND .♦ 


~ — >♦" STATE" COMMANDS 


>**CALL DMSLADW 


*• 


.* 


♦ ERROR * A ♦♦ 






DMSLADW GETS ACTIVE 
DISK TABLE OF 1ST 
R/W DISK 



***************** 



ERROR3U 

*****X2********** 

♦ * CALL DMSERR ♦♦ 
♦♦ TO PRINT ♦♦ 

>** ERROR MSG ♦♦ 

♦* DMSCOB03HE ♦♦ 

♦ ♦ ** 
***************** 



*J2********** 
* 
SET RETURN CODE* 



**************** 



**** 
->+02 ♦ 
♦ D3 ♦ 



***************** 



n 



.♦. 


ERROR6 






H3 ♦. 


***** H cj********** 


.♦ ♦. 


** 


CALL DMSERR ♦♦ 


♦ ANY R/W ♦. NO 


** 


TO PRINT ♦♦ 


DISK ACCESSED. ♦ 


>** 


ERROR MSG *♦ 


♦. . ♦ 


** 


DMSCOB006E ♦♦ 


♦ . .* 


** 


♦ * 


*. .* 




************** 


♦YES 








1 **** 
L_>*02 ♦ 














♦ CI ♦ 








* * 








**** 












V 




****** 




♦ 


* 




♦SET RETT 


JRN CODE* 



***************** 

*♦** 
L_>*02 * 
♦ A3 ♦ 



***** 

♦ 02 ♦ 

* Al* 



536 Appendixes 



Licensed Material - Property of IBM 



Chart VM (Part 2 of 3) . DMSCOB (COBOL-CMS Interface Routine) 



***** 

• 02 * 

♦ Si* 



*****&!********** 
♦♦CALL DMSLADW ** 
♦♦TO GET ACTIVE*^ 
♦♦ DISK TABLE ♦♦ 
*♦ FOR PARENT ♦♦ 
♦* DISK ♦* 
***************** 



***** 

♦ 02 ♦ 

* A3^ 



**Y) 

♦ ♦♦♦ I 

♦ 02 ♦ 

♦ c V -> 

♦ *** I 

EIT V 



♦ ♦♦♦♦ 

♦ 01 * 

♦ G3 + 



***************** 



FDEFCOB 

*****Q1********** 
*♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ SOURCE *♦ 
♦ # ♦♦ 

***************** 



Fl *. 
.♦COBSW2 ♦. 
♦ INDICATES ♦. YES 
"STATE" ERRORS 



♦ N< 

1 



.♦ ♦. 
♦ ♦ 

DEVICE TYPE 



DISK > 

RDR > 

TAP > 



♦ F2 ♦ 

♦ ♦-_ , 
♦ ♦♦♦ I 

ERROR 2 V 

4****^2********** 
♦♦ CALL DMSERR *♦ 
♦♦ TO PRINT ** 
— .,>*♦ ERROR MSG *♦ 
♦* DMSCOB002E ** 

♦ ♦ ♦♦ 
***************** 



m*+G2********** 



********** ******* 



* 

I 



♦ ♦♦♦ 

♦ ♦ 

♦ AU ♦ 



ERROR7S 

*****J1********** 
*♦ CALL DMSERR ♦♦ 
♦♦ TO ISSUE ** 
♦♦ ERROR MSG ♦♦ 
♦♦ DMSCOB075E ♦♦ 
***************** 



****K1********* 
SET RETURN CODE' 



.♦C0BSW2 ♦. 

INDICATES 
STATE ERROR 



♦♦ FILEDEF' S ♦♦ I ♦. .♦ 

♦♦ ♦♦ I V ♦. -♦ 

********************* ***♦ *. .♦ 

♦ ♦ ♦ ♦!" 

♦ A3 ♦ F2 ♦♦♦♦♦ I 

♦ * * * 
*♦♦♦ ***** B4 ♦ 

♦ *->J 
♦♦♦♦ v 



***************** 



*****C3********** 

♦ ♦ 
♦CLEAR FST (FILE+ 

♦ STATUS TABLE) * 

♦ EXTENSION ♦ 

♦ ♦ 
***************** 



♦♦*♦ 
RESETSWT 

*****D3********** 



***************** 



*****E3********** 



***************** 



*****p3********** 



***************** 



****G3^++*++ + * 

♦ ♦ 

♦ RETURN ♦ 

♦ ♦ 
*************** 



.♦ FILEID ♦. 

♦.CONFLICT WITH. 

♦. COMMAND .* 



♦♦ CALL DMSERR ♦♦ 
r — >^TO ISSUE MSG ♦♦ 
♦♦ DMSCOB038E ♦♦ 
♦ ♦ ♦♦ 

***************** 



*****B5* ********* 



***************** 

L**** 
>* ♦ 

♦ A3 ♦ 

* * 
**** 



♦♦ CALL DMSERR ♦♦ 

->++TO ISSUE MSG ♦♦ 

♦♦ DMSCOB 07 0E ♦♦ 



***************** 



*****D5* ******* 



*♦♦♦♦ 

♦ 03 ♦ 

♦ Al* 



***************** 

♦ ♦♦* 
♦ 
A3 ♦ 



[->.' 



***************** 



F4 



.♦ 



.♦ 



NO 



.OPTION VALID .♦ 

,♦ 

.♦ 
. .* 
♦ YES 



♦INVALID OPTION ♦ 

>* TO ERROR ♦ -. 

♦ MESSAGE * I 
********************* 



♦♦ CALL DMSERR ** 

_>»*TO ISSUE MSG ** 

♦♦ DMSCOB052E *♦ 



*****H4* ********* 
♦PROCESS OPTION ♦ 

♦ BITS, ADD TO ♦ 

♦ COMPILER * 
♦PARAMETER LIST ♦ 

♦ ♦ 
***************** 

♦ ♦♦♦ 



***************** 



*****H5********** 



***************** 



ERROR3 

*****j5* ********* 

♦ ♦ ♦♦ 
♦♦ CALL DMSERR ** 

-^♦♦TO ISSUE MSG ♦♦ 
♦♦ DMSCOB003E ♦♦ 

♦ ♦ ♦♦ 
***************** 



*****K5********** 



***** 

♦ 03 ♦ 

♦ Al* 



♦SET RETURN CODE+ 

: 3 : 
* ♦ 
***************** 




♦♦♦♦ 

L->* ♦ 
♦ A3 * 
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Chart VM (Part 3 of 3) • DMSCOB (COBOL-CMS Interface Routine) 



* *__. 
**** 1 

EFTEXT V 



* SET FIRST * 

* EXTENSION * 

* 'ADDRESS * 

* * 
***************** 



*****B1********** 
♦ ♦ CALL DMSSMN ** 
** TO GET ** 
** STORAGE FOR ♦ ♦ 
** COMPILER ♦♦ 
***************** 



*****d********** 

♦♦CALL DMSLADW ♦♦ 
♦♦ TO GET R/W ♦♦ 
♦♦ DISK WITH ♦♦ 
♦♦ MOST SPACE ♦♦ 
** ** 

***************** 



*****£!* ********* 

* * 
♦SAVE DISK MODE ♦ 

* FOR UTILITY * 

* FILES * 

* * 
***************** 



*♦ CALL DMSERS ' 
♦♦ TO ERASE 
** FILES 

*************** 



FDEFS 

*****Gl*******«*« 

♦♦ CALL DMSFLD *♦ 
♦♦ TO ISSUE *♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ SYSLIB ** 
** ** 

***************** 



FDEFLIST 

*****H1*** ******* 
♦♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE : ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ LISTING PER ♦* 
♦♦ OPTIONS ♦♦ 
***************** 



TERMFIL 

*****J1* ********* 
♦♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ SYSTERM ♦♦ 
** ** 

***************** 



FDEFTEXT 

*****A2*** *♦♦*♦♦* 
♦♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ TEXT ♦♦ 
** ** 

***************** 



*****B2* ********* 

♦ INDICATE ♦ 
♦AUXILIARY PROC ♦ 

♦ COBHAND FOR ♦ 

♦ TEXT FILE ♦ 

♦ * 
***************** 



FDEFLOAD 

*****C2* ********* 
♦♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦ SYSPUNCH ♦♦ 
** ** 

***************** 



*****Q2* ********* 

* INDICATE ♦ 
♦AUXILIARY PROC ♦ 

♦ COBHAND FOR ♦ 

♦ SYSPUNCH FILE * 

* * 
***************** 



FDEFUT5 

*****E2+* ******** 
♦* CALL DMSFLD *♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
** SYSUT5 



** 



************** 



FDEFUT1 

*****F2***^****^* 
♦♦ CALL DMSFLD ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ FILEDEF FOR ♦♦ 
♦♦UTILITY FILES^* 
♦* SYSUT1-U ♦♦ 
***************** 



*****G2* ********* 



************* 



AA01A1 
*«***H2**^ ******* 
♦IKFCBLOO ♦ 
*_*_*_*_*_*_*_*_* 

* LINK TO ♦ 

* COMPILER ♦ 

* * 
***************** 



.. ♦ ERROR ♦ . 

♦. RETURN FROM .♦ 

♦.COMPILER .♦ 



T- 



RCU — -> 

RC8 > 

RC12-— -> 

RC16- > 

RCO — -> 



♦ A3 ♦ 

* *_-, 
**** I 

ERROR 1»W V 

*****A3** ******** 
♦♦ CALL DMSERR ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ ERROR MSG ♦♦ 
♦♦ DMSCOB00UW ♦♦ 
** ** 

***************** 



***** B 3********** 

* * 
♦SET RETURN CODE^ 

* U ♦-■ 

* * 

* * 
***************** 

**** 

* * 

* C3 



RECEIVES CONTROL VIA 
DMSSOP WHEN COMPILER 
ISSUES OPEN INSTRUC- 
TION FOR TEXT OR 
SYSPUNCH FILES 



ROR8W V 



ERROR8W 

*****C3********** 
♦♦ CALL DMSERR ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ ERROR MSG ♦♦ 
DMSCOB008W ♦♦ 
** 
********* 



** 

******* 



*«***D3********** 
* * 

♦SET RETURN CODE* 



***************** 



**i 



W V 



ERROR12W 

*****E3********* 

♦♦ CALL DMSERR ♦ 
♦♦ TO ISSUE ♦ 
** ERROR MSG ♦ 
** DMSCOB012W ♦ 
** * 

**************** 



*****P3******> 
♦SET RETURN CODE- 



ERROR16W V 

*****G3* ********* 
♦♦ CALL DMSERR ♦♦ 
♦♦ TO ISSUE ♦♦ 
♦♦ ERROR MSG ♦♦ 
♦♦ DMSCOB016W ** 



**** 



************ 



*****H3********** 



***************** 



ENTRY CARD NAMES 
EXECUTION-TIME 
COBOL-CMS INTERFACE 
ROUTINE (DMSILB) 
AS ENTRY POINT OF 
OBJECT MODULE 



****&5********* 

* * 
— «•- ♦ COBHAND ♦ 

* * 
*************** 



***** B 5********** 

* * 

* * 
♦SAVE REGISTERS ♦ 



WRITE V 

*****C5* ********* 
♦♦ CALL DMSSBS ♦♦ 
♦♦ TO WRITE ♦♦ 

**ENTRY CARD ON** 

** OUTPUT FILE ** 



**** 



****** 



V 



*****D5********* 

* ' 

* 

♦RESET SWITCHES 

* 

* 

**************** 



*****£5******** 



***************** 



****F5********* 

* * 

♦ RETURN ♦ 
*************** 



•*"1 



' ♦♦CALL DMSFNSA ♦♦ 

.— >**TO CLOSE ALL ♦♦ 

♦♦ FILES ♦♦ 

** ** 

***************** 



*****jl|********** 
** ** 

♦♦ CALL DMSERS ♦♦ 
♦♦ TO ERASE ♦♦ 
♦♦UTILITY FILES++ 
** * + 

***************** 



UPDTDIR 

**«**K(J********** 

♦♦CALL DMSAUPD ♦♦ 
♦♦ TO UPDATE ♦♦ 
♦♦ USER ♦♦ 
*♦ DIRECTORY ♦♦ 
** ** 

***************** 



***** 
♦02 ♦ 
♦ A3^ 
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FLOWCHART LABEL DIRECTORY 



1 1 


■■■ 1 


-■-•■■-» 






i 






Definition 


Refer 


ence | 


(Label 


Chart 


Page 


Block 


Page 


Block | 
i 


IANYRW 


VH 


01 


G3 


01 
01 
02 


1 

K1 J 
G2 | 
B1 | 


ICKFNAHE 


VH 


01 


D1 


01 


C1 | 


ICOBCODE | 


VH 


03 


J2 


03 


H2 | 


ICOBEND 1 


VM 


02 


A3 


01 
02 
02 
02 
02 
02 
02 
02 
03 


J4 | 
K1 | 
G2 | 
J2 I 
B5 | 
D5 | 
H5 | 
K5 | 
K4 ! 


(DOFINIS 


VH 


03 


H4 


03 
03 
03 
03 
03 


J2 | 
B3 | 
D3 | 
F3 | 
H3 | 


|ERAS 


VH 


03 


FT 


03 


E1 | 


IERROR1 


VM | 


01 


E2 


01 


E1 | 


IERROR12W 


VH 


j 03 


E3 


03 


J2 | 


IERROR16W1 


VM 


03 


G3 


| 03 


J2 | 


IERR0R2 


VM 


02 


F2 


02 
02 


F1 ! 
A4 | 


| ERR OR 3 


VH 


02 


J5 


02 


K4 | 


1ERROR34 


VH 


| 01 


H2 


01 


H1 I 


IERROR38 


VM | 


02 


A5 


02 


B4 j 


IERROR4W j 


VM 


03 


A3 


03 


J2 | 


IERROR52 


|VM 


| 02 


G5 


| 02 


G4 f 


| ERROR 6 


VM 


01 


H4 


01 
03 


H3 j 
D1 | 


IERROR70 


VM 


02 


C5 


02 


C4 | 


IERROR75 


VM 


02 


J1 


02 


H1 j 


IERRQR8W 


VM 


| 03 


C3 


03 


J2 | 


IFDCOBDSKI 


VH 


02 


A4 


02 


G1 | 


IFDEFCOB 


VH 


| 02 


D1 


02 


C1 | 


|FDEFLIST| 


VM 


03 


H1 


03 


G1 | 


IFDEFLOAD 


VM 


03 


C2 


03 


B2 | 


IFDEFS 


|VM 


| 03 


G1 


03 


F1 | 


IFDEFTEXT 


VM 


03 


A2 


03 


J1 | 


IFDEFUT1 


VM 


| 03 


F2 


I 03 


E2 I 


(FDEFUT5 | 


VM 


03 


E2 


03 


D2 | 


IFINDRW | 


VM 


01 


J1 


01 


H1 | 


(GETNXT 


VM 


02 


J4 


02 
02 


H4 | 
F5 | 


| NOOPT 


VM 


, 03 


A1 


02 
02 


D4 | 
M j 


| NOT FOUND 


VM 


02 


F5 


02 


F4 | 


(NXTOPTN 


|VM 


02 


E4 


| 02 
02 


D4 f 
J4 | 


(OPTSCN 


|VH 


02 


C4 


| 02 


B4 | 


(PRECOBFD 


VM 


02 


G1 


| 02 
02 


E1 j 

F1 | 


(RESETSWT 


| VH 


I 02 


D3 


| 01 

01 

| 02 


F2 | 
J2 | 
C3 J 



I I 


y ■« 
| Definition 


i 

Reference | 


| Label | Chart 

1 . i , 


| Page 


Block 


Page 


Block | 
i 


u 1 

ISTAT | VII 


| 01 


F1 


01 


I 

E1 | 


ISTATERR |VH 


| 01 


G2 


01 
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This section contains information for 
use in diagnosing difficulties with the 
COBOL-CMS Interface. Information is 
provided about: 

o Data set activity., 

o Register usage, 

o Elements of program design. 



DATA SET ACTIVITY 



The DHSCOB routine issues FILEDEF commands 
for each of the data sets that are used by 
the compiler according to the user 
specified options. These commands are 
described in Figure 86 in the section 
"Operational Considerations." 



REGISTER USAGE 



Register usage is described in Figure 91. 



ELEMENTS OF PROGRAM DESIGN 



Elements in the design of the DHSCOB 
routine can be used to determine 
information in case of error. This section 
provides information about: 

© Error messages issued by DHSCOB 

o CHS service routines called by DHSCOB 

o Register saving 



Error Messages Issued by DHSCOB 



The error messages issued by DHSCOB are 
listed in Figure 92- 
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j Register | Usage 



\ 

| 1-10 
| 11-12 
I 13 
1 14-15 

i 



H 

| Work 
| Base 
| Work 
| Work/Linkage 



Figure 91. Register Usage by DMSC0B 



i r— - . - - - — - - , — T - .,.-. , 

| Message | Explanation I Issued by| 


(DMSCOB004W (Minor errors were detected during compilation; successful JCOBCODE j 
| | execution of program is probable. Compilation is completed with |ERR0R4W | 
| | error code of 4. I | 


(DMSCOB008W (Errors were detected during compilation; execution is possible, JCOBCODE | 
| | Compilation is complete with code of 8, |ERR0R8W | 


IDMSCOB012W J Serious errors were detected during compilation. Successful JCOBCODE | 
j jexecution of program is not probable. Compilation is completed | ERROR 12W | 
| |vith code of 12. I j 


IDMSCOB016W | Very serious errors were detected during compilation. |COBCODE | 
j jcompilation is not complete. Results are not predictable. Error | ERROR 1 6W | 

{ jcode of 16 is returned. I I 
i i . j i 


II - 1 l 


IDMSCOB001E | No filename was specified in the COBOL command. Compilation is |CKFNAME | 
l (terminated with an error code of 24, IERR0R1 | 


IDMSCOB002E | The file named "filename COBOL" is not found on an access disk. JFDEFCOB | 
j jcompilation is terminated with an error code of 28. JERR0R2 | 


IDMSCOB003E (The option(s) specified is not valid for the COBOL command. (GETNEXT | 
| jcompilation is terminated with an error code of 24. JERR0R3 | 


JDMSCOB006E |No disk is currently accessed in a read/write status. | STATERR | 
j jcompilation is terminated with an error code of 36. IERR0R6 | 


(DMSCOB034E | The specified file must have fixed-length records to be |STAT j 
j (acceptable as input to the CMS COBOL command. Compilation is JERR0R34 | 
( (terminated with an error code of 32. I j 


(DMSCOB038E | A previously issued FILEDEF for DDname COBOL to a disk device did(FDCOBDSK | 
j (not contain the same filename and/or filetype as specified and |ERROR38 | 
( (implied by the COBOL command. Compilation is terminated with an j | 
j |error code of 40. | j 


JDMSCOB052E (More than 100 characters of options including one blank between (NXTOPTN ( 
j (each option were specified. Compilation is terminated with error (ERROR52 | 
j | code of 24. ( j 


JDMSCOB070E (The specified parameter is not expected in the COBOL command (OPTSCN j 
| (line. Compilation is terminated with error code of 24. (ERROR70 j 


(DMSCOB075E (The specified device type is illegal for input to the COBOL (PRECOBFD | 
j jcompiler. Compilation is terminated with an error code of 40. (ERR0R75 | 



Figure 92. Error Messages Issued by DMSCOB 
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CMS Service Routines Cal led by DHS COB 



The DMSCOB routine calls several routines 
to perform functions such as erasing disk 
files, issuing FILEDEF commands and error 
messages. These routines and the 
subroutines of DMSCOB which call them are 
listed in Figure 93. 



Regi ster Savin g 



Normal OS/VS conventions are used for 
register saving. SAVE and RETURN macros 
are used in DMSCOB. 



1" '~'T- -— 1 

I Service Routine | DMSCOB Subroutines | 
| Called | | 


| DMSAUPD | UPDTDIR | 


| DMSERR | ERROR 1 | 
| | ERR0R12W | 
| | ERR0R16W | 
| | ERR0R2 | 
| | ERR0R3 | 
| | ERROR34 | 
| | ERROR38E | 
| | ERR0R4W | 
| | ERROR52E | 
| | ERR0R6 | 
| | ERROR70 | 
| | ERROR75 | 
| | ERR0R8W | 

J 1 9 


A 1 I 

| DMSERS | ERAS | 
| I DOFINIS | 


| DMSFLD | COBEND | 
| | FDEFCOB | 
| | FDEFLIST | 
| | FDEFLOAD | 
| | FDEFS | 
| | FDEFTEXT | 
| | FDEFUT1 | 
| | FDEFUT5 | 
| | TERMFIL | 


| DMSFNSA | DOFINIS | 


| DMSLADW | ANYRW | 
| | FINDRW | 
| | NOOPT | 


| DMSSBS | WRITE | 


| DMSSMN | COBEND | 
| | NOOPT | 


| DMSSTT | STAT | 



Figure 93. CMS Service Routines Called by 
DMSCOB 
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GLOSSARY 



The words listed below are defined 
according to their usage in this 
publication. In the case of generic terms, 
the definitions would not necessarily be 
applicable outside of this context. 



A~text (Assembler-text): Internal compiler 
text generated in phases 22, 21, 50 and 51, 
and used in phase 6 or 62, 63, and 64 to 
produce the object module for the linkage 
editor. This includes Data A-text, 
Procedure A-text, Procedure A1-text, and 
Optimization A-text. See "Section 5. Data 
Areas" for formats. 



ACCgSS: A group of routines loaded into 
main storage along with phases 1B, 20, 22, 
21, 25* and 3 that build and access the 
compiler's dictionary. See "Appendix A: 
Table and Dictionary Handling." 



COBOL library subroutines ; Subroutines 
used for operations that are too extensive 
to be coded in-line each time they are 
used. Stored in the COBOL library and 
linkage edited with the object module to 
produce an executable load module. 



COBOL sp ace; An area in main storage 
representing the difference in length 
between the longest compiler phase and the 
phase currently processing, available to 
store tables and dictionary sections. 



COMMON : A communications area resident in 
main storage throughout compilation as part 
of phase 00 and accessible via a DSECT to 
every phase. Used to store miscellaneous 
information and to pass information from 
one phase to another. The format is given 
in "Section 5. Data Areas". 



ATF- text s An internal compiler text 
generated by phase 2 for phase 22. It is 
used in preparing entries for the 
dictionary. See "Section 5. Data Areas" 
for formats. 

ATM-text : An internal compiler text 
generated by phase 4 for phase 15. It is 
used in creating P 2- text for the UNSTRING 
verb. See "Section 5. Data Areas" for 
formats. 



base locator (BL) : A fullword cell in the 
TGT containing the address of a location in 
the data area of the object module. Phase 
22 assigns one or more base locators to the 
Working-Storage Section, Communication 
Section, Report Section, and each file in 
the File Section, Phase 6 or 62 assigns a 
register to each base locator. 

base l ocator for L in kage Section (BLL1 : 
Fullword in the TGT containing the address 
of an area passed as a result of an ENTRY 
statement, the address of a file label area 
provided by the control program, or the 
address of an SD area. BLLs are assigned 
by phase 22. 

BL: See b ase locato r. 

BLL: See bas e, lo cato r for Link age Sectio n. 

CD-text: A Data IC-text type that 
describes communication description 
entries. 



CONTROL record : An 8-byte record 
associated with a DATA record. It is used 
during the sorting process when phase 6A is 
producing an alphabetized cross-reference 
listing. 

COUNT Tabl e: A part of the object module 
only when the COUNT option is specified. 
It contains entries for each procedure-name 
and verb in the source program. 

critical program break : In Data IC-text, 
these are the Data Division header. Data 
Division section-names (File, 
Working-Storage , Linkage, Communication, 
and Report), the beginning and end of 
Q-Routine text, and the beginning and end 
of Report Writer text. In Procedure 
IC-text, they are Data Division headers, 
Report Section names. Procedure Division 
headers. Declaratives, End of Declaratives, 
beginning of debug packets, and end of 
program. 



Data A-tex t: Text generated by phases 22 
and 21 for~phase 6 or 64 to generate the 
data and global table areas of the object 
module. See "Section 5. Data Areas" for 
format. 

Data IC-text; Data Division information 
collected by phases 10 and 12 and merged 
with Environment Division information for 
use by phases 20, 22, and 21 in producing 
Data A-text and data-name dictionary 
entries. 
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d ata operand ; A literal, figurative 
constant , or data item described by a 
Record Description entry (with a numeric 
level number) and used as an operand in the 
source program. 

DATA record; A 48-byte record built by 
phase 6A which contains information about a 
procedure -name or a data -name obtained from 
input DEF-text. It may also contain 
references to the procedure-name or 
data-name. 

Debuq-text ; Text generated by phase 6 or 
63 and used by phase 65 for the STATE or 
SYMDMP option. It contains card numbers, 
their displacement within the object 
module, the priority of each segment, and 
discontinuity elements (produced by phase 
63 only) • 

DEF-text ; Text produced by phases 22 and 3 
for phase 6A to use in generating the 
cross-reference listing, if the SXREF or 
the XREF option is in effect. 

delimite r; 4 An internal compiler text 
category that consists of the following 
elements; critical program breaks, verbs, 
source procedure-names at point of 
definition, and compiler -generated 
procedure-names at point of definition. 

delimiter pointe r; A field in dictionary 
entries for Data~Division group items and 
Procedure Division section -names. For a 
group item, the delimiter pointer contains 
the section number and displacement of the 
next group item on the same or lower level. 
For section-names, it contains the section 
number and displacement of the next 
section^ name. 

dictionary ; A special table, built by 
phases 1B, 22, and 21, into which all the 
attributes of every data operand, nondata 
operand, and procedure-name in the source 
program are collected. Unlike TAMER 
tables, the dictionary may be spilled. onto 
external storage if storage space is not 
sufficient.. 

dictionary attribute s; Descriptive 
information about every source program name 
placed into the dictionary by phase 1B for 
procedure-names and by phases 22 and 21 for 
Data Division names, and incorporated by 
phase 3 into Pt-text. 

dictionary pointer ; The dictionary section 
number and displacement of a dictionary 
entry. The pointer is stored in the HASH 
table at a location depending on the hash 
value of the name the entry describes. If 
two or more names hash to the same value, 
special processing is required. See 
"Appendix A; Table and Dictionary 
Handling." 



E-text. .(Eo: or- ; te xt ? ; Text generated by 
phases 10 through 51 whenever a source 
program error is encountered. The text is 
collected by phase 6 or 64 and used by 
phase 70 to generate error messages. 



elemen t (text element) : One logical unit 

of a string of text, such as the 

discription of a single data item or verb, 
preceded by a unique code identifying the 

element type. Each type has a fixed 

format, as given in "Section 5. Data 
Areas" . 

entry (table entry) ; Contiguously- placed 

information in a table that describes one 
item. Ill entries in any one table are 
usually fixed in length and format. See 
"Section 5. Data Areas". 

error; A deviation from source language 
rules discovered in the source program. 

ESP-test; External Symbol Dictionary cards 
that are punched in phase 6 or in phases 62 
and 64 , containing control information 
which identifies each external symbol in 
the module. They are used by the linkage 
editor to put the modules identified by the 
external-names into the load module. 



FD-tex t: A type of Data IC-text that 
describes files. 

fragment; A portion of code having a 
maximum size of one less than 64K bytes 
(65,535). A fragment begins with the first 
byte of a verb and ends with the last byte 
of a verb preceding the verb with a final 
relative displacement greater than 64K 
bytes. This unit is used in processing for 
the STATE or SYMDMP option. 



global, table; See Task Gl obal T ab le and 
Program T Global, Table. 

GN ; See procedure-name g compiler- 
generated. 



hi e rarchy of operator s; The order in which 
operations must be performed in an 
arithmetic expression. 



IC-text (Internal Com piler text ) ; Text 

generated in phases 10, 12, and 1B from the 
source program, modified by subsequent 
phases, and eventually converted to A-text 
or dictionary entries. see "Section 5. 
Data Areas" for formats. 
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inline procedure; The set of procedural 
instructions that are part of the main 
sequential and controlling flow of the 
source program, that is, not part of the 
Declaratives Section or Sort input/output 
procedures. 



Intermediate A-text: Text generated by 
phase 50 consisting of intermediate forms 
of Procedure A-text and Optimization 
A-text. Used only for input to phase 51. 



Intermediate E-text: Text generated by 
phase 50 consisting of E-text to which an 
identification prefix has been added for 
phase 51 . 



in terme diate result: Where the source 
program specified an arithmetic computation 
using more than two operands , the output of 
one step in the computation which is then 
used as an operand in the next step. At 
execution time, intermediate results are 
held in registers or in the TEMP STORAGE 
field of the TGT. 



LD^texts A Data IC-text type that 
describes level- numbered entries* 



Hain w Free Area : Main storage permanently 
allocated for tables and/or dictionary 
sections. The Main Free Area is in that 
portion of main storage immediately higher 
than COBOL space, 

major code: A 4-bit binary code 
identifying thexdif f erent types of 
dictionary entries. All data entries start 
with 0, and all nondata entries start 
with 1 . 

Mast er of an OC C URS clause w ith the 
DEPE NDING ON .option: A data -name for a 
variable-length group item which does not 
itself contain an OCCURS clause with the 
DEPENDING ON option, but at least one of 
its subordinate items at the next level 
does contain such an OCCURS clause. 

minor code: A 4-bit binary code 
identifying the different categories of LD 
entries. 



ob ject hierarc hy: The order of all group 
and elementary items defined within the 
second group item in a MOVE CORRESPONDING 
statement. 



ob ject module: The output of a single 
execution of~the compiler, and the input to 
the linkage editor. 



Optimization A- te xt: Text generated by 
phases 50 and 51 to be used in phase 6 or 
62 to eliminate storage duplication for 
virtuals, literals, and procedure- names. 
See "Section 5. Data Areas" for format. 

out -of f line procedure : A section in the 
Declaratives portion of the Procedure 
Division, preceded by a USE statement. 

OVERFLOW recor d : A 16-byte record chained 
to a DATA record. It contains references 
to the procedure-name or data-name which 
would not fit in the DATA record. 



PGT: See Pr og ram G lobal T a bl e. 

phase : One load module of the compiler. 



PN: 



See p roce d ure ^name, source program* 



priority : The number assigned to a section 
in the~Procedure Division. All sections 
having the same priority are loaded 
together as a segment. One of these, the 
root segment, resides in main storage 
throughout execution of the program. The 
other segments are loaded in order of the 
priority number, each segment overlaying 
the one before. 

procedure- name, compiler-generated (GM : A 
point in the procedure instructions which 
the compiler designates to be the object of 
a branch instruction and, therefore, 
defines by means of a GN number. 

procedure- name j source pro g ram 1£SL : A 

user-assigned name which appears in Area A 
of the source program Procedure Division 
once, and which may be used as the object 
of procedure-branching source statements. 

procedure-name, variable (V N) ; The object 
of a branching instruction which may vary 
at execution time because it is modified by 
a PERFORM or ALTER statement. 



nondata operand: A file description, 
communication description, sort 
description, report description, or 
condition- name used as an operand in the 
source program. 



Procedure A-text : A text of assembler 
language-like instructions produced by 
phase 51 and used by phase 6 in generating 
machine instructions for the object module 
or used by phases 62 and 63 in generating 
Procedure A1-text for phase 64. See 
"Section 5. Data Areas" for format. 
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££^®fl^£§...ii.i:i^vL 5 A 2 & tesi't of assembler 
language- like instructions produced by 
phase 63 and used by phase 6 4 in generating 
machine instructions for the object module* 
See "Section 5 Data Areas' 1 for format* 



Pr o c edur e_ bl o c k s On it of addressability in 
the optimizer version of the machine 
language program. Each Procedure block 
consists of approximately 4096 bytes of 
code. Host Plis and GHs uithin a Procedure 
block are addressed as displacements added 
to a base register which contains the 
address of the first instruction of the 
Procedure block, 

P r pc efl u r e t _, I j>; t e xt : k te^'t based on the 
source program Procedure Division and 
Report Writer statements in the Data 
Division <, It is generated in its initial 
(P0) form by phases 12 ^ 1B^ and 22 e - and 
modified by phases 3 and 4 a Phases 50 and 
51 use it to generate Procedure Ik-test a 

Program Global Table (PGffi,; An area of 
main storage in the object module which 
contains virtuals? literals y and address 
constants used by the object code of the 
generated prcgra&o 

£^2S^£§§_E © s sacge i K message written to the 
SYSTEM data set by phase 00 when the 
compiler is operating under the Time 
Sharing Option (TSO) of the operating 
system • 

P0- texts The form of Procedure ic-text 
created firsts by phases 12 (for Report 
Writer) g 1B {Lot ^h® Procedure Division) * 
and 22 (f or Q-Routines) a as input to phase 
3o 

P1-te:its The form of Procedure ic-test 
created by phase 3 as input to phase 4. 

P2-texts The form of Procedure lot est 
created by phase 4 as input to phases 50 
and 51 • 



Q-Routines: Object module subroutines 
generated by phase 22 and used to calculate 
the length of a variable -length field 
defined by an OCCURS „ « .DEPENDING ON clause 
and the location of the variably-located 
field which follows it. 



qualified name; A u 
must be referred to 
to be unique ^ since 
more than one item i 
For data-names* the 
of a group to which 
subordinate, and for 
qualifier is the sec 
section in which the 



ser- assigned name which 
along with another name 
it is used to define 
n the source program, 
qualifier is the name 
this item is 

procedure-names the 
tion-name of the 

procedure is defined. 



REF-te^ts ?». test produced by phase 6 or 64 
for phase 6A y if the SXREF or the XREF 
compiler option is in effect* to be used in 
producing a cross-reference listing. Each 
element indicates the card number of the 
statement in which a user-assigned name was 
referred to. 

EMLzfe§.£t • Information produced by phase 6 
or 64 for the linkage editor* indicating 
all address constants in the object module 

which must be relocated. 

£0°jL-§®MQ nt : That portion of a segmented 
object module which is resident in storage 
throughout object program execution. 



SDL: See secondary base locator. 

.Sj);:te T fft: The form of Data I C- text 
describing sort description entries. 

second ar^base_^^ A full word 

cell in the TGT containing the address of a 

field in the data area which is variably 

located because it follows an 

OCCURSoo .DEPENDING ON field in the same 

record. 

section: A series of source program 
procedure instructions grouped under the 
same section-name. 

sec£ments That portion of a segmented 
object module which constitutes one load 
module „ It consists of all the 
instructions in those sections with the 
same priority., 

segmentation; The feature by which the 
source programmer can organize his object 
program into several load modules* or 
segments* which may overlay each other 
during execution. 

source module: The source program input to 
a single execution of the compiler. 

subjec t hi erarchy: The order of all group 
and elementary items defined within the 
first group item to appear in a MOVE 
CORRESPONDING statement. 



table (compiler table) % A contiguous area 
in main storage containing information of a 
particular type. A table is composed of a 
variable number of entries of a fixed* 
usually identical* format. 

table- locator: A field divided 
conceptually into two parts* the first of 
which identifies the block within a table 
and the second of which specifies the 
displacement within the block at which an 
entry may be found. 



Glossary 545 



Licensed Material - Property of IBM 



TAMER [Tab le Access Ma nageme nt Executive 

Ro utines ) : A group of routines resident 
throughout compilation in phase 00 and 
accessible to all phases 9 which get space 
for, build, and provide access to compiler 
tables. 

TAMER space ; Space in main storage 
occupied by TAMER tables. It follows (that 
is, is in higher storage) COBOL space. 

Task Global Table (TGT) : An area of main 
storage in the object module containing 
information and work areas for use by the 
object program. Its format is given in 
"Appendix B: Object Module." 

temporary result ; A field temporarily 
allocated in the TS portion of the TGT to 
hold the result of an arithmetic 
computation, where that result must be 
placed in several receiving fields and each 
receiving field may reguire conversion or 
truncation. The space is allocated by 
phase 50. 

text ; Information created and written on a 
work file by one phase for subseguent 
reading by another phase, representing a 
stage in the translation of the source 
module into an object module. 

TGT; See Task Glo ba l Tabl e. 

TIB (Table Informa ti on Block) ; One of 36 

eight-byte cells in COMMON used to provide 
information about TAMER tables. The TIBs 



are numbered and can be reassigned after a 
table has been released. See "Appendix A; 
Table and Dictionary Handling." 



transient, , area ; A portion of main storage 
reserved during execution time to contain 
segments which are not permanently resident 
in main storage. It contains one such 
segment at a time and is large enough to 
hold the largest non-resident segment in 
the program. 



variable-length field; A data item 
described by an OCCURS. . . DEPENDING ON 
clause, whose length depends on the value 
of the object of DEPENDING ON. 

ver b string; A verb and its operands. 

virtual; The name of a procedure or table 
referenced by a procedure^ but not defined 
in the source module. It is necessary 
because of a CALL to an external procedure 
or a branch to a COBOL library subroutine. 
At execution time y if neither the DYNAM nor 
the RESIDENT option was specified , the 
address of all procedures referred to by 
virtuals (which have been linkage edited 
into the load module) are stored in the 
Program Global Table. If the DYNAM or the 
RESIDENT option is in effect, library 
subroutines are dynamically loaded, and if 
the DYNAM option is in effect, subprograms 
are dynamically loaded. 
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Receives control from; returns control to operating system. 
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Provides Table Area Management Executive Routines (TAMER) for acquiring storage for and 
building tables. 
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Provides Communications area (COMMON) used to pass information between phase?. 
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Communi- 
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(COMMON) 
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Contains installation default values of compilation parameters, determines user options. 
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AB 
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Processes compilation parameters, determines buffer sizes for all phases, obtains storage for 
tables, dictionary, and buffers, enters information in COMMON, opens data sets. 
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Activity of data sets and buffer assignments is summarized in Figure 10. 
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'XY' and 'ZZ' codes are summarized in Figure 5. 
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(A) Inserts syntactic markers to indicate such items as new statement, reference type, 
level number, indentation, and qualifiers. Detects syntax errors and inserts error 
and recovery markers. 
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Qa) Makes two or more passes of input source; inserts pointers at place of definition 
to places of reference and at place of reference to place of definition. 
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Phase 06 


(c) Output is written alternately on SYSUT3 and SYSUT2 at each pass of input 
source. Output of the last pass is always written on SYSUT2. 
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(d) Prints preface consisting of format description, statement number uses, footnote 
use, method of indentation, summary listing; Lister option listing; punches 
source program for later compilation if the FDECK and/or CDECK option is in 
effect; passes source program to phase 10 if the LSTCOMP options is in effect. 
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Translates VALUE and PICTURE clauses 
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Generates Q-routines 
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Reads source cards and stores information in the form of Data IC-text, builds tables, sets 
cells in COMMON, analyzes syntax, writes source on SYSPRINT if SOURCE is in effect 
or on SYSUT6 if LVL is in effect. Reads source from SYSUT4 if LSTCOMP or LIB. 
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Phase 10 


CA-CD 
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If source program contains Report Section, generates Report Writer Subprogram (for the 
structure of this program see the chapter "Report Writer Subprogram") as Data IC-text 
scans input for errors and generates E-text, writes Report Section on SYSPRINT if 
SOURCE is in effect (or on SYSUT6 if LBL is in effect), builds TAMER tables and sets 
COMMON cells. If VERB is in effect generates Listing A-text. Reads source from 
SYSUT4 if LSTCOMP or LI B 
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Translates VALUE and PICTURE clauses from Data IC-text to ATF-text, writes partial 
dictionary entry for each LD, scans input for errors and generates E-text, builds TAMER 
tables. 
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Phase 20 


DA-DD 
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Produces dummy FD and SD dictionary entries, builds CD; LD, RD, and ID entries, 
completes Data A-text, generates Q-routines, produces E-text, builds TAMER tables; 
completes FD and SD entries, writes Data A-text for DCBs and DECBs, determines 
buffer sizes, produces E-text. 
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Reads Procedure Division of source program; creates dictionary entries for procedure-names; 
writes Procedure Division on SYSPRINT if SOURCE is in effect (or on SYSUT6 if LVL is in 
effect); processes Declaratives Section; generates Listing A-text if VERB is in effect. 
Reads source programs from SYSIN or SYSUT4 if LIB or LSTCOMP. 
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Phase 1B 


CK 
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Creates P1-text; replaces source program names with dictionary attributes; builds Data 
Division Glossary of all source program data-names; performs special processing on 
procedure-names in segmented programs, verb strings, and verb strings with 
CORRESPONDING options; performs syntax analysis requiring dictionary; releases 
dictionary. 
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Phase 30 


EA-EC 
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Processes USE FOR DEBUGGING statements, adds to source programs the text necessary to 
cause invocation of the USE FOR DEBUGGING declaratives, only invoked if WITH 
DEBUGGING mode is specified and a USE FOR DEBUGGING is present. 
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Transaltes P1-text from SYSUT3* to P2-text on SYSUT1 ; transforms P2-text to ATM-text 
on SYSUT2** for UNSTRING verb, expands complex and implied verbs. 
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Analyzes and translates UNSTR ING verb from ATM-text on SYSUT2* * to P2-text on SYSUT1 . 


IKFCBL45 


Phase 45 


FD-FF 


Processes arithmetic verbs from SYSUT1 to SYSUT2. 
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Phase 50 


GAGE 


Process input/output verbs and other non— arithmetic verbs from SYSRT2 to 
SYSUT1. 
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Receives P2-text as input on SYSUT1; produces intermediate Procedure A-text, intermediate 
Optimization A-text, and P2-text on SYSUT2, and Optimization A-text on SYSUT3. 
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GD 


Receives intermediate Procedure A-text and intermediate Optimization A-text, P2-text on 
SYSUT2, produces Procedure A-text on SYSUT1. 
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When OPT is not in effect; determines object program storage for Task Global Table and 
Program Global Table; optimizes literals, virtuals, source program procedure-names, and 
compiler-generated procedure-names; generates and writes machine language instructions; 
writes object text for data area of program, writes object text for initialization routines; 
passes E-text to phase 70. 
When OPT is in effect, the functions described in Part 7 of this diagram take place instead. 
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Determines object program storage allocation for Task Global Table; optimizes literals and 
and virtuals by processing Optimization A-text, determines storage allocation in Program 
Global Table for these, for PN and GN cells, and for DCBADR, VNI, and PROCEDURE 
BLOCK fields; calculates displacements; determines object program storage requirements 
for Procedure Division; optimizes usage for both permanent and temporary register 
assignments. 
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Produces Procedure Al-text; inserts information for addressing PNs and GNs and Procedure 
Blocks in instructions; generates all remaining instructions, except Load instructions; 
writes segmented programs in order of ascending priority. 
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Completes instructions from Procedure A1 text, writes object program text and REF-text 
from Procedure AUext; writes INIT1, INIT2. and INIT3; writes RLD-text. 
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Builds tables for SYMDMP 
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If SYMDMP is in effect, builds OBODOTAB table for OCCURS . . . DEPENDING ON clauses, 
builds DATATAB table; writes tables on SYSUT5 data set. 
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For the FLOW option, stores number of traces requested in DEBUG TABLE of Task Global 
Table. For STATE, produces PROCTAB and SEGINDX tables and writes them in object 
module. For SYMDMP, produces CARDINDX, PROCINDX. PROGSUM, PROCTAB, and 
SEGINDX tables and writes them on Debug Data Set (SYSUT5). 
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Produces E-text as it scans source program listing and analyzes syntax. 
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If XREF is in effect, produces a source-ordered cross-reference listing; if SXREF is in 
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effect, produces an alphabetically ordered cross-reference listing. 
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If LVL is in effect, scans COBOL source program after compilation is complete and produces 
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messages indicating deviations from the Federal Information Processing Standard (FIPS). 
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operation. 



Legend: 
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** SEARCH routine determines uniqueness in dictionary names 
in verb string. 
*** GENOP routine replaces names with their dictionary 
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writes DEF-text. 
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processing 
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CARDINDX table 
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(Where more than one page reference is given , the major reference is first.) 



-nnnn (Report Writer data-name) 
description 522 
phase 22 generation of 62 



A-text 

(see also Listing A-text; Data A-text; 
Optimization A-text) 
constant 127,132 
definition 542 
direct 127,132 
generator routine 

description 127-132 
phase 50 flowchart 269 
phase 51 flowchart 275 
use in Arithmetic Translator 
routines 124 
A-text generator 

description 127-132 



flowcharts 




phase 


50 


269 


phase 


51 


275 


A(INIT1) field 


(TGT) 


description 


507 


location 


505 


ABEND codes 


483-484 



523 



80 



abnormal termination 

compiler processing 31,32 
SYMDMP processing for 85 
ABS.LIN (Report Writer data-name) 
access methods 
BDAM 

address elements 80 

block address elements 80 

buffer areas 82,83 

constant definition elements 
BISAM 

address elements 80 

block address elements 80 

buffer areas 82,83 

constant definition elements 80 
BSAM 

address elements 80 

block address elements 80 

bufefer areas 82,83 

constant definition elements 
phase 21 processing 79-84 
QISAM 

block address elements 

buffer area size 82 

buffer areas 82,83 
QSAM 

block address elements 

buffer areas 83 

buffer area size 82 

Q- routine generation 
VSAM 

address element 80 

buffer area size 83 
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80 



ACCESS routines 
definition 542 
description 49 2-500 
ENTDEL 494-495 

494 

4 94 

494 

496 

496 

495 

495 

495-496 

495 
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ENTNAM 

ENTPTR 

GETPTR 

LATACP 

LATGRP 

LATRNM 

LATRPT 

LDELNM 

LOCNXT 

use 

phase 1B 67 
phase 3 88 
ACCESW cell (COMMON) 325 
ACCMET subroutine 79 
ACCUMCTR counter 

incrementing of 171 

use in phase 62 169 
ACMCTR counter 

use in ADINCR routine 176 

use in phase 63 177 
ADATAB cell (COMMON) 330 
ADD string 125 
ADDLGTH routine 583 
ADDRCARD cell (COMMON) 

description 333 

use in phase 02 48 

use in phase 1B 66 

use in phase 10 56 
addressing parameters 72 
address calculation 

indexed references 123 

subscripted references (see subscripted 
references) 
address constant definition element 

Data A-text format 409 

DCB 80,81 

DECB 80,81 

phase 21 processing 80,81 

phase 6 processing 160 

phase 64 action 182 
address constants of TAMER routines 325 
address increment elements 

phase 63 processing of 176 

phase 64 action 185 

procedure A1-text format 441 

use in phase 62 169 
address increments 

phase 6 processing 155 

phase 63 processing 176 

phase 64 processing 185 

Procedure A-text format 435 
address reference elements 

phase 63 processing of 176 

phase 64 action 185 
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address reference elements (continued) 

procedure A1-text format 441 

use in phase 62 169 
address references 

phase 6 processing 155 

phase 64 processing 185 

Procedure A-text format 435 
ADINCR routine 

description 176 

diagram of 583 

flowchart 291 
ADREF routine (phase 63) 

description 176 

diagram of 583 

flowchart 291 

incremented address processing 176 
ADREF routine (phase 64) , flowchart 296 
ADSTAT cell (COMMON) 325 
ADV option 

bit in COMMON 334 

description 29 
AGETALL cell (COMMON) 328 
AHEADER cell (COMMON) 338 
AINSRT cell (COMMON) 325 
ALIBE0D cell (COMMON) 339 
ALIBSYNA cell (COMMON) 339 
ALL literal, Procedure IC-text format 421 
allocating storage for the PGT, 

phase 62 168-170 
alphanumeric literal references, Procedure 
IC-text 

P0 format 411-418 

P1A format 424 

P1 format 419-423 

P2 format 425-432 
ALPHTBL table 

format 341 

use in phase 10 57 
ALS-ROUT routine 64 
ALSTAM cell (COMMON) 325 
ALTER statement, OPT option 

processing 105-109 
ALTSCN routine 58,96 
AMAINF cell (COMMON) 325 
American National Standard Code for 
Information Interchange (see ASCII) 
AMICTR cell (COMMON) 330 
AMILOC cell (COMMON) 331 
AMOVDC cell (COMMON) 328 
ANLZUFDS routine 

description 101 

flowchart 255 
APLSCALL cell (COMMON) 331 
APOST option 

bit in COMMON 333 

description 28 
APPLY clause 58 
APPLY WRITE-ONLY clause, phase 3 processing 

for 88 
APPWRO switch (COMMON) , use in phase 3 88 
APRIME cell (COMMON) 325 
arithmetic operator, Procedure IC-text 

P0 format 412 

P1 format 422 
arithmetic processing switches 125 
arithmetic translator routines 

description 124-127 

switches for 125 



arithmetic verb strings 124-127 

assembler-text (see A-text) 

ATF-text 

definition 542 

format 408 

generation by phase 20 71-72 

ATM-text 

definition 542 
description 433 
format (same as P2) 425 
input to phase 45 118 
phase 4 processing 104 

ATM-text analysis, phase 45 118 

ATFTXT buffer 72 

ATTACH macro instruction 

compilation parameters 46 
invoking the compiler 31 
phase 02 processing 47 



435 



base and displacement element 
phase 64 action 184 
Procedure A-text format 
base displacement data-name element 
phase 64 action 186 
procedure Alrtext format 441 
base locator number 

(see also BL, BLL, SBL) 
BL number 

field in TGT 508 
position in TGT 505 
BLL number 

field in TGT 509 
position in TGT 505 
Linkage Section (see BLL) 
OPT option processing 
optimizing register 

assignments 168-170 
phase 62 processing '168-170 
SBL number 

field in TGT 509 
position in TGT 505 
base locator reference 

phase 6 processing 154 
phase 64 processing 184 
Procedure A-text format 
basic lister format, IPTEXT 



435 
400 



BASIS statement, phase 4 processing 51 
BASISRTN routine 210 
batch compilation (see BATCH option) 
BATCH option 

function 26 

phase 02 processing for 48 

phase 1B processing 66 

phase 10 processing 56 

phase 6 processing 141-142 

phase 62 output 161 

phase 65 processing for 189 

PHZSW2 bit (COMMON) 334 

resetting COMMON cells 324 
BATCHSW cell (COMMON) 

description 336 

phase 02 processing 48 

phase 1B processing 66 

phase 10 processing 56 
BCDCTR cell 

description 332 

use in compiler options 149 
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BCDISP cell (COMMON) 331 
BCDPN table 

(see also TEST option) 

description 466 

phase 65 processing of 187-188 
BDAM access method 

address elements 80 

block address elements 80 

buffer areas 82*83 

constant definition elements 80 
BEGIN routine 71 
BEGPASS routine 

description 88 

flowchart 249 
between phase processing 31-33 
BGALLPN cell (COMMON) 338 
BGALLPRI cell (COMMON) 338 
BISAM access method 

address elements 80 

block address elements 80 

buffer areas 80-83 

constant definition elements 80 
BL 

counter in COMMON 143 

definition 542 

field in TGT 509 

phase 6 processing 154 

phase 64 processing 184 

position in TGT 505 
BL field (TGT) , phase 62 counter for 163 
BL number (see BL) 
BL reference element 18 4 
BLASGTBL table 

format 341-342 

use in phase 62 169 
BLCHNG elements, phase 51 processing 136 
BLCTR cell (COMMON) 

description 328 

use in phase 22 76 

use in phase 6 

Data A-text processing 159 
Procedure A-text processing 154 
space allocation in TGT 143 

use in phase 62 163 

use in phase 64 184 

space allocation 184 
text processing 181 
BLDOBODO routine 

diagram of 87 

flowchart 261 
BLDRD routine 86 
BLL, definition 

field in TGT 509 

phase 6 processing 154 

phase 64 processing 184 
BLL field (TGT) , phase 62 counter for 163 
BLL number (see BLL) 
BLLCTR cell (COMMON) 

description 326 

use in phase 22 76 

use in phase 6 

Data A-text processing 154 
space allocation in TGT 163 

use in phase 62 163 

use in phase 64 184 
block address elements 

Data A-text format 409 

phase 6 processing 154 



phase 21 processing 80 

phase 64 action 181 
block number element, procedure A1-text 

format 441-442 
BLs, optimization of 169-170 
BLSRCH routine 169 
BLUSTBL table 

format 342 

use in phase 50 132 
BLVNTBL table 

format 342 

function 173 

phase 62 processing 165 
BMBSRN routine 72 
branch instructions 

phase 62 processing for 174 

phase 63 processing for 175 
BRANCH routine 

description 175 

diagram of 583 

flowchart 288 
BSAM access method 

address elements 80 

block address elements 80 

buffer areas 80*83 

constant definition elements 80 
BUF option 

description 25 

phase 02 47-48 
buffer pointer table 34 
buffer size 

compilation 47,48 

determination for object module 81 
buffers 

compilation 47,48 

diagnostic aids 487-488 

object program 82,83 
BUFSIZE cell (COMMON) 

description 336 

use in phase 02 48 
BUGBLLNO cell (COMMON) 338 
BUGSTCRD cell (COMMON) 331 
BUGVLCNO cell (COMMON) 338 
building the PNLABTBL and GNLABTBL 

tables 171 
BUSAGE routine 72 



CALL macro instruction 

invoking the compiler 31 
parameters passed to compiler 46 
phase 01 processing 46 
phase 02 processing 44 
CALL string 105 

calling sequence dictionary pointer element 
phase 64 action 185 
Procedure A-text format 436 
calling sequence displacement element 
phase 64 action 185 
Procedure A-text format 436 
card number 
current 

abnormal termination 487 
phase 10 processing 55 
Debug-text 

description 444 

phase 6 processing 151-152 



Index 589 



Licensed Material - Property of IBM 



Procedure A-text 
description 434 
phase 6 processing 152 
PO format 412 
P1 format 422 
P2 format 429 
card number elements 

phase 63 processing of 177 
phase 64 action 183 
CARDINDX table 

building of 188 

format 

compiler 343 
debug data set 46 5 
CARDLOC elements 

debug text processing for 177 ; 

phase 65 processing 187 
CARDNOTE save area, use in phase 65 189 
CBL card 

phase 2 processing 48 

phase 1B processing 66 

phase 10 processing 56 
CD (see communication description) 
CD dictionary entries, format 450,451 
CD entries, data IC-text format 402 
CD for intitial input field (TGT) 

description 50 8 

location 505 
CD-name reference, procedure IC-text 

PI format 419 

P2 format 425 
CD-names, phase 3 processing 95 
CD-text, definition 542 
CDECK option 29 
CDLCCTR cell (COMMON) 331 
CDSCNA routine 60 
CDSECT routine flowchart 240 
CDTEXT routine description 76 
charts 19 7-308 

checkpoint e debug processing 135 
CHECKPT CTR field (TGT) 

description 51 

phase 62 counter for 164 

position 5 05 

use of CKPCTR counter (COMMON) 146 
CHF-ROUT subroutine (Report Writer 
subprogram) 

definition 521 

function 521 

GENERATE statement coding 526 
CHKTBL table (see CKPTBL table) 
CKPCTR cell (COMMON) 

description 326 

use in phase 21 79 

use in phase 6 1 46 

use in phase 62 164 
CKPTBL table 

description 58-59 

format 343 

use in phase 21 79 
clause compatibility 84 
CLIST option 

bit in COMMON 333 

description 27 

phase 2 processing 47 

phase 62 output 161 

phase 64 processing for 179 

register assignment 483 



CLOSE verb, debug processing 135 
CLOSER routine, linkage code for 33 
CLOSET routine 33 
closing data sets 34 
CMS interface routine 

diagnostic aids 539-541 

directories 535 

environment 529 

error messages 540 

flowchart 536-538 

functions 529 

initialization 533 

method of operation 532 

operational considerations 531 

option list 531 

physical characteristics 529 

program organization 535 

relations with compiler 530 

register usage 540 

service routines 541 
CNOP routine 583 
CNTLINE cell (COMMON) 

description 332 

use in phase 00 48 

use in phase 02 47 
CNTLTBL table 

description 190,191 

format 344 
COBEND routine, function 539 
COBHAND routine 

flowchart 537 

function 53 9 
COBOL command 

(see also COBOL Prompter) 

description of options 25-29 

specifying compiler options 25 
COBOL ID field (TGT) 

description 508 

location 505 
COBOL INDICATOR (TGT) 

description 507 

location 505 
COBOL Interactive Debug Program (see TEST 

option) 
COBOL library subroutines, definition 542 
COBOL Prompter 

invoking the compiler 19 

NUM option 26 
COBOL space, definition 542 
COBOL subroutines, definition 542 
COBOL verbs 

code list 413-415 

internal code list 413-415 

phase 50 processing 120 

phase 51 processing 135-137 
COBOL word check 116 
COBOL words, Procedure IC-text 

internal code 416-418 

P0 format 412 

P2 format 428 
CODE clause, RDSCAN routine processing 62 
codes, error, use in phase 03 50 
COLHIVAL cell (COMMON) 331 
COLLITNO cell (COMMON) 331 
COLLOVAL cell (COMMON) 331 
COLUMN clause 62 
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COMFLOW cell (COMMON) 330 
COMMAD cell (COMMON) 
description 328 
use in phase 10 57 
COMMON 

cells, description 

ACCESW 325 

ADATAB 330 

ADDRCARD 333 

ADSTAT 325 

AGETALL 328 

AHEADER 338 

AINSRT 325 

ALIBEOD 339 

ALIBSYNA 339 

ALSTAM 325 

AMAINF 325 

AMICTR 330 

AMILOC 331 

AMOVDC 328 

APLSCALL 331 

APRIME 325 

BATCHSW 336 

BCDCTR 332 

BCDISP 331 

BGALLPN 338 

BGALLPRI 338 

BLCTR 328 

BLLCTR 326 

BUFSIZE 336 

BUGBLLNO 338 

BUGSTCRD 331 

BUGVLCNO 338 

CDLCCTR 331 

CKPCTR 326 

CNTLINE 332 

COLHIVAL 331 

COLLOVAL 331 

COLLITNO 331 

COMFLOW 330 

COMMAD 328 

COMPILES 332 

CORESIZE 330 

COS 325 

CRDNUM 331 

CURCRD 336 

CURSGN 328 

DATABDSP 328 

DATATBNM 330 

DATE 331 

DBGLOC 330 

DBG0DISP 332 

DCBCTR 333 

DCBNOXX 336 

DCPTR 327 

DECBCT 336 

DEFCNT 333 

DICADR 327 

DICND1 327 

DICND2 326 

DICND3 338 

DICPTR 327 

DICTNAME 331 

DLSVAL 327 

ERF4SW 327 

ERRNUM 332 

ERRSEV 327 

ESDID 338 



FIL5BUF 330 
FIPLVL 338 
FLOWSZ 328 
GNCTR 325 
GTLNG 329 
IDBYTES 339 
IDENTL 328 
IDPH00-IDPH80 339 
INDEX 331 
INDEX1 328 
INITSIZE 338 
INTVIRT 331 
IOPTRCTR 328 
KALOUT 337 
KKADS5 337 
KKPGR70 338 
KKPH0SW 337 
KTRMNATE 337 
LABELS 325 
LCSECT 327 
LIBBUF 339 
LINECNTX 332 
LINKCNT 337 
LISTERSW 331 
LOCCTR 325 
LOCTMCTT 331 
LNGBL 331 
LNGDSP 331 
LTLCTR 326 
MAXBGITM 338 
NODECTR 330 
NUMINCR 333 
OBODOTBN 330 
ODOCTR 326 
ONCTR 329 
OPTINSW 333 
OPTINSW1 333 
OPTINSW2 333 
OPTINSW3 333 
OPTINSW4 333 
OPTLSTR 339 
OPTLVL 339 
OPTSWV2 339 
OUTLRECL 339 
PARMAX 330 
PFMCTR 329 
PHZERR 338 
PHZSW 333 
PHZSW1 333 
PHZSW2 334 
PHZSW3 334 
PHZSW4 334 
PH0SW 339 
PH1BYTE 335 
PH25SW 338 
PH6ERR 329 
PNCTR 325 
PRBLDISP 325 
PRBLNUM 330 
PRINTBUF 338 
PROCCTR 330 
PROG ID 325 
PROGSW 338 
PSVCTR 329 
PTYNO 327 
RELADD 325 
RELLOC 329 
RELSPACA 337 
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COMMON cells , description (continued) 

RGNCTR 327 

RPNCNTR 328 

RPTSAV 327 

SA2CTR 327 

SA3CTR 332 

SBLCTR 326 

SDSIZ 328 

SEGLMT 328 

SEQERR 326 

SPACEX 336 

SPACING 330 

STAESW 336 

SUBCTR 329 

SWITCH 334 

SWITCH1 337 

SWITCH2 336 

SWITV2 330 

SYMSK 333 

SYMSK1 334 

SYMSK2 334 

SYMSK3 334 

SYNADR01 332 

SYSTDD 338 

SYSTX 328 

TAMNAD 325 

TIB (Table Information Block) 325 

TMCNTBSZ 331 

TSMAX 326 

TS2MAX 326 

TS3MAX 328 

TS4MAX 328 

VCONDISP 332 

VIOVIRN 331 

VIRCTR 325 

VLCCTR 326 

VNCTR 329 

VNILOC 329 

VNLOC 329 

VTINITVN 331 

V2BUGSW 338 

WCMAX 326 

WSDEF 327 

XSACTR 329 

XSWCTR 329 
counters used for TGT 143,144 
definition 542 
function 

overall design of compiler 21 

phase 00 44 
Program Global Table (PGT) r relationship 

to 324 
register usage 324 
Task Global Table (TGT) , relationship 

general 324 

phase 6 142-146 
use in 

phase 00 44 

phase 02 48 

phase IB 66 

phase 10 56 

phase 21 79 r 80 

phase 3 88 

phase 4 104 

phase 50 127 

phase 51 133-137 

phase 6 148-152 



Communication Description (CD) 
phase 10 processing for 60 
phase 20 processing 73 
communication section dictionary entries, 

phase 22 processing 77 
communications area (see COMMON) 
compilation directives 

DEBUG card 105 
compilation parameters (see options, 

compilation directives) 
compile-time 

arithmetic 125-126 
STATE bit (TGT) 506 
COMPILED POINTER field (TGT) 
description 508 
location 505 
compiler 

COMMON, use of 21 

(see also COMMON) 
control information 25-29 

(see also options; compilation 
directives) 
data sets 21 
design 20-21 
dictionary, use of 21 

(see also dictionary) 
directives (see compilation directives) 
error handling (see error handling in 

compilation) 
generated procedure-name (see GN) 
initialization 47 
input 20 
options 25-29 

(see also options) 

output 20 

overview 549 

parameters (see options; compilation 

directives) 
phases 21-25 

(see also phase 00; phase 01; phase 
02; phase 03; phase 05; phase 06; 
phase 08; phase 1B; phase 10; phase 
12; phase 20; phase 22; phase 21; 
phase 25; phase 3; phase 4; phase 
45; phase 50; phase 51; phase 6; 
phase 62; phase 63; phase 64; phase 
65; phase 6A; phases 70, 71, and 72, 
phase 80) 
physical structure 549 
relationship to operating system 19 
storage reguirements 29-30 
structure 549 
tables 21 

(see also tables used by compiler) 
texts 399-444 

(see also Data A-text; Data IC-text; 
Debug-text; dictionary entries; 
E-text; Listing A-text; Optimization 
A-text; Procedure A-text; Procedure 
A1-text; Procedure IC-text: P0 
format, P1 format, P2 format; XREF 
text) 
COMPILES cell (COMMON) 332 
completing dictionary entries 
description 76-77 
phase 21 processing 79,80 
phase 22 processing 74 
COMPUT routine 111 
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COMPUTE statement 111-113 
COMSCT routine 

flowchart 235 

function 73 
CONDIS table 

description 165 

format 344 

literal allocation 150-151 

optimizing DISPLAY literals 147 

segmented program processing 155 

use in literal allocation 168 
condition* name dictionary entries, 

format 454 
condition- names 95 
conditions causing ABENDS 483-484 
Configuration Section 57 
constant A-text 127 
constant definition elements 

Data A-text format 414 

description 80,81 

phase 21 processing 80,81 

phase 64 action 182 
constucting procedure A1~text 175 
CONTBL table 

format 344 

literal allocation 151 

optimizing literals 148 

phase 62 processing 165 

segmented program processing 155 

use in literal allocation 168 
control breaks in segmentation 134 
control card for linkage editor 

NAME option 26-27 

phase 60 processing 141 
CONTROL clause, RDSCAN routine 

processing 62 
control information (see options, 

compilation directives) 
CONTROL record 

definition 542 

description 190-191 
control-field save-area names 61 
Conversational Monitor System (see CMS 

interface) 
COPY statement, phase 4 processing 51 
COPYPROC routine 212 
COPYRN routine 51 
COPYRTN routine 211 
CORESIZE cell (COMMON) 

description 330 

use in phase 00 48 

use in phase 02 48 
CORRESPONDING options 89-91 
CORRTN routine 

CORRESPONDING option 89,88 

phase 3 operations 89-91 
COS cell (COMMON) 325 
COUNT CHAIN ADDRESS field (TGT) 

description 508 

location 505 



159 



COUNT LINKAGE AREA field (PGT) 

description 510 
COUNT location 510 

option 29 
COUNT TABLE ADDRESS field (TGT) 
description 508 
location 505 
counters 

AMICTR 330 
BLCTR 

Data A-text processing 

description 32 8 

Procedure A-text processing 154 

TGT space allocation 143-144 
BLLCTR 

Data A-text processing 154 

description 326 

space allocation in TGT 143-144 
CKPCTR 

description 326 

use in phase 21 79 

use in phase 6 146 
COMPILES 332 
DCBCTR 

address and constant definition 
elements 80 

Data A-text processing 159 

DCBADR allocation 151 

description 333 

FD dictionary entries 79 
DECBCT 

address and constant definition 
elements 80,81 

Data A-text processing 159 

description 336 

FD dictionary entries 

TGT space allocation 
ERRNUM 

description 332 

phase 6 output 142 
GNCTR 

DEBUG CARD processing 

Declaratives processing 

description 325 

GN allocation 150 
INDEX1 

description 328 

TGT space allocation 144 
LOCCTR 

block and working-storage section 
address elements 80 

description 325 

phase 6 output 142 

Procedure A-text processing 151 

segmented programs 153 
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70 
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counters (continued) 

LTLCTR 

description 3 26 
phase 50 processing 

NODECTR 330 

ODOCTE 3 26 

ONCTL 

description 509 
phase 51 processing 

ONCTR 

description 329 
phase 51 processing 
phase 6 processing 

PARMAX 

description 330 
phase 6 processing 

PFMCTL 509 

PFMCTR 

description 329 
phase 4 processing 
phase 6 processing 

PNCTR 

description 329 
phase 1B processing 
phase 51 processing 
phase 6 processing 

PROCCTR 330 

PSVCTF 

description 329 
phase 6 processing 

RGNCTR 3 27 

RPTSAV 

description 327 
phase 6 processing 
. SA2GTR 

description 327 
phase 6 processing 

SA3CTR 

description 332 
phase 6 processing 

SBLCTR 

description 326 
phase 6 processing 

SBSCTR 143 

SEQERR 326 

SUBCTR 

description 329 
phase 51 processing 

TSMAX 

description 326 
phase 50 processing 
phase 6 processing 

TS2MAX 

description 3 26 
phase 6 processing 

TS3MAX 

description 328 
phase 6 processing 

TS4MAX 

description 328 
phase 6 processing 

VIRCTR 

description 325 
phase 50 processing 
phase 6 processing 
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148 



143 



143 
137 



VLCCTR 

description 326 

phase 6 processing 
VNCTR 

description 329 

phase 6 processing 
VNLOC 

description 329 

Procedure A-text processing 154 

TGT space allocation 143 
XSACTR 

description 329 

phase 6 processing 
XSWCTR 

description 329 

phase 6 processing 

phase 51 processing 
CRDNUM cell (COMMON) 331 
critical program breaks 

Data IC-text format 404 
definition 542 
Procedure IC-text 

P0 format 412 

P1 format 421 

P2 format 428 
cross-reference listing 

alphabetically ordered 191 
compiler options 25-29 
phase 6A processing 190-191 
source ordered 190 
CSECT names in phases 317-320 
CSYNTAX option 

description 26 
E-text processing 192 
phase 00 processing for 45 
phase 02 processing for 47 
phase 21 processing 79 
phase 3 processing 96 
phase 4 processing 116 
phase 50 processing 119 
phase 51 processing 133 
SYSUT4 contents with 158 
CTB-ROUT routine 
description 520 
GENERATE statement processing 

first statement 525 

subsequent statements 526 
generation of 64 
use of CTL.LVL counter 522 
CTF-ROUT routine 

CTL.LVL counter 522 ' 
description 521 
FRS.GRP switch 523 
GENERATE statement processing 526 
generation of 64 

locating routine in object module 528 
logic of Report Writer 
subprogram 516,517 
CTH- ROUT routine 
description 521 
FRS.GRP switch 524 
GENERATE statement processing 

first statement 525 

subsequent statement 526 
generation of 64 
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locating routine in object module 528 

logic of Report Writer 
subprogram 516/517 
CTL.LVL (Report Writer data-name) 522 
CTLTBL table 345 
CURCRD cell (COMMON) 

description 336 

use in phase 10 56 

use in phase 4 104 
CURGCN cell 56 
current card number 

abnormal termination 487 

phase 1A processing 56 
CURSGN cell (COMMON) 328 
CVIRTB table 

format 345 

optimizing storage for PGT 148,149 

Segmented program processing 155 

use for compiler options 149 

use in phase 62 166 
CO routine diagram of 583 
C1REF routine flowchart 292 



Data A-text 

definition 542 

formats 409-410 

generation of 77 

input/output operations 37-43 

phase 20 processing 72 

phase 21 processing 83 

phase 6 processing 
description 22 
flowchart 280 

phase 64 action for 181 

phase 64 processing 179 
description 179 
flowchart 294 
DATA AREA field (object module) 502 
DATABDSP cell (COMMON) 328 
Data Control Block (see DCB) 
Data Division 

flow 221 

general description of processing 20 

phase 10 processing 59-60 

glossary 88 
Data Event Control Block (see DECB) 
data management for compiler (see 

input/output reguests) 
data operand, definition 543 
DATA record 

definition 543 

description 190,191 
Data IC-text 

definition 542 

formats 40 2-40 4 

input/output operations 37-43 

LD-text 

definition 544 
description 59 

phase 10 processing 59 

phase 21 processing 79 

phase 21 processing 84 
data set activity 

CMS interface routine 439 

compiler 37-43 



data-name DEF-text element 

A-text generation 79 

phase 64 action 182 
data-name definition elements, DEF-text 

format 443 
data-name information for UNSTRING elements 

created by phase 45 118 

procedure IC-text 426 
data-name references, Procedure IC-text 

P1 format 420 

P2 format 426 
data-name subscripts 

phase 50 processing 121,122 

Procedure IC-text format 426 
data-names for Report Writer (see Reporr 

Writer) 
DATATAB table 

built by phase 25 86 

format 458-464 
DATATBL table 

description 190,191 

format 346 
DATATBNM cell (COMMON) 33C 
DATE cell (COMMON) 

description 331 

use in phase 02 4 7 

use in phase 10 57 
DATE-COMPILED clause 57 
DBG R11SAVE field (TGT) 

description 508 

location 505 
DBGFLPT bit (TGT) 50 6 
DBGL0C cell (COMMON) 330 
DBGTBL table 

format 346-347 

phase 4 processing 105 
DBGTEST routine 

description 135 

flowchart 272 
DBGTXT table 

description IOC- 
format 3 47 
DBG0DISP cell (COMMON) 332 
DC definition elements 

format 435 

phase 64 action 184 
DCB (Data Control Block) 

address elements 
creation 80,81 
Data A-text format 409 
description 80,81 

building for object module 

address and constant definition 

elements 80,81 
FD dictionary entries 79 

manipulation for compiler files 44 
DCB address element, phase 64 action 181 
DCB ADR field (PGT) 

description 511 

location 510 

phase 62 allocation 169 

phase 64 processing for 181 
DCBCTR cell (COMMON) 

address and constant definition 
elements 80,81 

Data A-text processing 159 

DCBADR allocation 150 

description 333 



Index 595 



Licensed Material - Property of IBM 



DCBCTR cell (COMMON) (continued) 

FD dictionary processing 79 

use in phase 62 168 
DCBNOXX cell (COMMON) 336 
DCPTR cell (COMMON) 327 
DDBG R14SAVE field (TGT) 

description 507 

location 505 
DDSCN routine 

communication section processing 60 

Data Division processing 59 

flowchart 225 

phase 10 overview 56 
DEBUG BLL field (TGT) 

description 508 

location 505 
DEBUG card 

description (TGT) 508 

location (TGT) 505 

use in phase 4 105 
debug data set 

description 455 

format 455-469 

phase 25 processing for 85 
DEBUG LINKAGE AREA field (PGT) 

allocation for 166 

description 510-511 

location 510 
DEBUG MAX field (TGT) 

description 508 

location 505 
debug options 

COBOL Interactive Debug Program (see 
TEST option) 

phase 65 processing 187-189 

TGT allocation for 164 
DEBUG PTR field (TGT) 

description 508 

location 505 
DEBUG TABLE field (TGT) 

description 510 

location 505 

phase 65 processing 189 
DEBUG TABLE PTR field (TGT) 

description 507 

location 505 

phase 6 5 processing 18 9 
debug-text 

construction in phase 63 176 

data sets used for 151 

definition 543 

description 151 

format 4 44 

input/output operations 37-43 

phase 6 processing 151 

phase 6 3 processing of 176-177 

phase 65 processing 187-189 
DEBUG TRANSFER field (TGT) 

description 508 

location 505 
DEBUGGING field (TGT) 

description 508 

location 505 
debugging (see diagnostic aids) 
DEBUG VLC field (TGT) 

description 508 

location 505 



DECB (Data Event Control Block) 

address elements 

Data A-text formats 409 
creation 80, 81 
description 80,81 

building for object module 

address and constant definition 

elements 80,81 
FD dictionary entries 79 

manipulation for compiler files 44 
(see also DECBCT cell) 
DECB address element, phase 64 action 181 
DECBADR field (TGT) 

DECBCT cell (COMMON) 336 

DECBCT counter (phase 6) 143 

description 508 

location 50 5 

phase 62 counter for 164 
DECBCT cell (COMMON) 

Data A-text processing 159 

description 336 

TGT space allocation 143 

use in phase 2 79 

use in phase 62 164 

use in phase 64 181 
DECIMAL-POINT IS COMMA clause 

COMMAD cell (COMMON) 328 

phase 10 processing 57 
DECK option 

bit in COMMON 333 

description 28 

phase 02 processing 47 

phase 62 output 161 
Declarative Section 

description 70 

error declaratives 70 

label declaratives 70 
DEF-text 

compiler processing 24-25 

definition 543 

formats 444 

input/output operations 37-43 

phase 22 processing 75 

phase 6A processing 190,191 

phase 64 action for 181 

phase 64 processing of 179 

phases involved 316 
DEFCNT cell (COMMON) 333 
DEFLD11 routine 

description 171 

diagram of 581 
DEFSBS table 347 
delimiter, definition 543 
delimiter pointer 

definition 543 

format 447 
design of compiler 

diagram 581 

general description 20 
destination table entry, Data IC-text 404 
DESTROY element 

function 120 

use in phase 62 169 
DET-ROUT routine 

description 522 

FRS.GRP switch 523 

GENERATE statement logic flow 526 
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logic of Report Write 

subprogram 527,316 
phase 1B processing 
DETTBL table 

description 66 
format 347-348 
output of phase 12 6 
DEVTYPE macro instructio 
diagnostic aids 

ABEND codes 483-484 
abnormal termination 
buffers 487-488 
CE worksheet 490-491 
compiler error messag 
current phase 486-48 
description 470-491 
registers 

assignment 483 
saving 487 
usage by phases 4 
system error recovery 
tables 313-315,488 
terminal error condit 
version of compiler 
DICADR cell (COMMON) 32 
DICND1 cell (COMMON) 
description 327 
use in phase 3 88 
DICND2 cell (COMMON) 32 
DICND3 cell (COMMON) 33 
DICOT table 
format 348 
input to phase 25 85 
organization of the d 
use in phase 1B 67 
DICPTR cell (COMMON) 32 
DICSPC routine 499 
DICTBD routine 

description 72,74 
flowchart 244 
dictionary 

attributes, definitio 
definition 453 
description 492 
entries (see dictiona 
handling routines (se 
organization 492, 493 
pointer, definition 
spill 

compiler data set 
switch in COMMON 
TAMEIN routine 49 
TBSPILL routine 5 
storage for 493 
dictionary entries 

(see also dictionary) 
attributes 

descriptions 446- 
phase IB processin 
base locator (see bas 
building 74 
completing 

phase 21 processin 
phase 22 processin 
count field 79 
F D 

(see also FD dicti 
completing 77 



r 
61 
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es 485^486,483 
7 



71-482 
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ions 45 

486 

7 
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7 



n 453 



ry entries) 

e ACCESS routines) 

453 

activity 37-43 

335 

8 
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454 

g 66-68 

e locator) 



g 79,80 
g 76 



onary entries) 



phase 21 processing 79,80 
preprocessing 76-77 

formats 445-454 

handling routines (see ACCESS routines) 

LD 72 

(see also LD dictionary entries) 

major code 

definition 544 

FD dictionary entries 79 

minor code, definition 544 

partial 76 

phase 02 processing 47 

phase 1B processing 66-68 

phase 21 processing 79,80 

phase 22 74-77 

phase 3 processing 95 

RD 76 

(see also RD dictionary entries) 

REDEFINES clause 77 

routines (see ACCESS routines) 

SD 

(see also SD dictionary entries) 
completing 77 
preprocessing 76 
storage allocation 47 
dictionary preprocessing 74-76 
DICTNAME cell (COMMON) 331 
direct A-text 127 
direct indexing 123 
DIRECTOR routine 74 
directories, microfiche 317-323 
discontinuity elements 

phase 63 processing of 177 

phase 65 processing 187 
display literal definitions 

optimization 147,165 

Optimization A-text format 439 

PGT field 512 

phase 6 processing 147 
DISPLAY LITERAL field (PGT) 

description 512 

location 510 
DISPLAY verb translator routine 139 
DLSVAL cell (COMMON) 327 
DMAP option 

bit in COMMON 333 

description 27 

phase 02 processing 47 

phase 62 output 161 

register assignments 483 
DMSAUPD routine, function 535 
DMSCBD module 

external symbol directory 535 

function 535 

load module directory 535 
DMSCOB routine 533 

(see also CMS interface routine) 
DMSERR routine, called by DMSCOB 541 
DMSERS routine 

called by DMSCOB 541 

function 535 
DMSFLD routine 

called by DMSCOB 541 

function 535 
DMSFNSA routine 

called by DMSCOB 541 

function 535 
DMSGND routine 533 
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DMSILB routine, ENTRY card punched for 533 
DMSLADW routine 541 
DMSSBS routine 541 
DMSSMN routine 

called by DMSCOB 541 

function 535 
DMSSTT routine 541 
DNT0R1 routine 138 
DOFINIS routine, function 539 
DOP1 workarea, use in phase 45 118 
DRPLTBL table 

format 348-349 

function 169-170 
DRPTBL table 

function 169*170 

format 3 49 
DSPLAC routine (phase 6) 144 
DSPLAC routine (phase 62) 164 
DTAB table 

description 1C0 

format 3 49 
dump, producing a 2 9,470 
DUMP option 29 

ABEND conditions 483-484 

description 29 
DYNAM option 

allocation of virtuals for 149 

description 28 s; < 

phase 2 processing 47 

phase 51 processing 139 

phase 6 processing for 148-149 

phase 6 2 virtual EBCDIC names allocation 
for 167 

virtual allocation for 167 



E-point name, phase 22 processing 62 
E-text 

definition 543 

description 25 

format 442 

input/output operations 37-43 

introduction 25 

phase 20 71,72 

phase 4 116 

phase 51 133 

phase 6 

action taken 159 

suppression of output listing 142 

SYSUT4 processing 158 

phase 64 action for 181 

phase 6 4 processing of 179 

phase 70 192-193 

phases involved 316 
E.nnnn (Report Writer data-name) 

column clauses 523 

nonstandard data-names 523 
EACTBL table 193 

EBCDIC card name element, phase 64 183 
EBCDIC data-name reference element 

phase 6 4 action 185 

Procedure A-text format 435 
EBCDIC name. Procedure IC-text format 411 
EBCDIC procedure-name generator, Procedure 

A-text format 434 
EJECT routine 33 
elementary item processing, phase 20 72 



ELIODO routine 78 

element (text), definition 543 

ELSE clause 113 

ENDCODE routine 585 

ENDJOB option 

description 28-29 

parameter for 47 

switch in COMMON 33 4 
ENDOFTBL routine 

diagram 585 

function 189 
ENDPTX routine (phase 6) , diagram of 581 
ENDP1 routine flowchart 261 
ENDP16 routine, flowchart 261 
ENDSEG elements 

phase 63 processing of 177 

phase 65 processing 187 
ENDUSE verb, debug processing 135 
ENTDEL routine 494-495 
ENTDRP routine (phase 62) 169 
ENTDRPL routine 169 
ENTNAM routine 494 
ENTPTR routine 494 
ENTPT01 routine 174 
ENTRDATA routine 

description 86 

flowchart 250 
entry (table), definition 543 : ; 
entry points in phases 317-323 
ENTRY-SAVE field (TGT) 

description 507 

location 505 
Environment Division, phase 10 

processing 57-58 
ENVSCN routine 

Environment Division processing 57 

flowchart 224 

phase 10 introduction 56 
ENVTBL table 

description 58 

format 350-351 
EOF routine (phase 63) , diagram of 583 
EOFON2 routine 

description 188 

diagram 585 
EOFRTN routine 102 
EOF2 routine, diagram 585 
equate string 

built by phase 51 134 

GN 134 

optimizing PNs and GNs 146 

phase 6 processing 144 

PN 134 

use in Optimization 144 
ERAS routine, function 539 
ERF4SW cell (COMMON) 327 
ERRNUM cell (COMMON) 

description 332 

passing E-text 141 

phase 00 processing 142 
error, definition 543 
error codes, use in phase 03 50 
error declaratives 

description 70 

debug processing 133 
error handling in compilation 

clause compatibility 84 

compilation in parameter errors 49 
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compiler errors 483 
input/output errors 

diagnostic aids 470 
phase 02 processing 49 
SYNAD routine 34 
terminal 45 
message generation, flowchart 303 

(see also E-text) 
severity 31 
source program errors 

phase 10 processing 56 
phase 20 processing 73 
phase 22 processing 78 
phase 4 processing 116 
terminal 45 
terminal error conditions 45 
error messages 

CMS interface routine 540 
generation by phase 12 64 
printed by phase 03 50 
error message texts 192 
ERROR routine 
phase 3 

description 96 
operations diagram 597 
phase 4 116 
error symbols, Procedure IC-text 
P0 format 412 
P1 format 422 
error text (see E-text) 
ERRPRO routine 133 
ERRSEV cell (COMMON) 327 
ERRTBL table 
format 352 

E-text processing 159 
general information 137 
suppression of output listing 142 
phase 7 processing 192 
syntax-checking function 45 
use in phase 3 95 
use in phase 4 116 
use in phase 50 119 
use in phase 51 133 
use in phase 6 142 
use in phase 62 162 
use in phase 64 181 
ESD 149 

ESD cards, definition 543 
ESD- text, definition 543 
ESDID cell (COMMON) 338 
EVAL string 112-113 
EVERY option 137 
EXEC control card 

compiler options 25 
phase 00 processing 31 
execution-time STATE bit (TGT) 506 
EXHIBIT NAMED name, Procedure IC-text 
P0 format 411 
P1 format 421 
P2 format 427 
exit lists 80 
external symbol dictionary 
description 148 
microfiche directory 321-323 



FD dictionary entries 

completing 77 

format 447 

phase 21 processing 79,80 

preprocessing 76 
FD entries 

Data IC-text format 403 

description 59 
FD text 

definition 543 

description 79 
FDECK option 29 
FDEFCOB routine, function 539 
FDTAB table 

format 352 

use in phase 21 79 

use in phase 21 80 

use in phase 22 75 
FIB field (TGT) 

description 508 

location 505 
figurative constant ALL references. 

Procedure IC-text format 428 
figurative constant references, Procedure 
IC-text 

P0 format 412 

P1 format 422 

P2 format 428 
File Description dictionary entries (see FD 

dictionary entries) 
File Description entries 59 
FILE-CONTROL paragraph 58 
file information block field (TGT) 

description 508 

location 505 
file-name DEF text element, phase 64 

action 181 
file-name reference elements 

description 89 

Procedure IC-text 
P1 format 425 
P2 format 429 
file-name reference elements 

phase 64 action 185 

Procedure A-text format 436 

Procedure IC-text format 419 
File Section 

description 59 

dictionary entries 
phase 22 77 
phase 20 72 
FILEDEF commands 

description 532 

issued for CMS interface 532 
FILEST routine (phase 20) flowchart 234 
FILEST routine (phase 21) 

description 72 

flowchart 246 
FIL5BUF cell (COMMON) 330 
FINDRW routine, function 539 
FINDSSC routine 118 
FIPLVL cell (COMMON) 338 
FIPS 

processing for phase 8s 194 
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FIPS (continued) 

flowcharts 304-308 
fixed Report Writer routines 515 
FLAG option 

bit in COMMON 333 

phase 2 processing 47 
floating-point literal references. 
Procedure IC-text 

P0 format 411 

P1 format 421 

P2 format 427 
floating-point operations 124-125 
FLOW option 

bit in COMMON 333 

description 26 

phase 2 processing 47 

phase 6 output 142 

phase 62 output 162 

phase 65 processing 187 

Procedure A-text processing 152 
flow trace option (see FLOW option) 
flowcharts 197-308 
FLOWSZ cell (COMMON) 

description 328 

use in phase 65 187 
FLUSH routine 

description 64 

flowchart 230 
FNTBL table 

Data Division processing 59 

format 352-353 

input to phase 12 63 

output of phase 12 63 

phase 1B processing 69 

phase 10 processing 59 
forcing a dump 470 
FORMLA routine 111,112 
FOURTY8 routine, diagram of 583 
fragment, program, definition 543 
FREE element 

function 120 

use in phase 62 169 
FREEMAIN macro instruction 498 
FRS.GEN (Report Writer data-name), 

description 522 
FRS.GRP (Report Writer data-name), 

description 523 
FRTYPROC routine 

description 187 

diagram 585 
FSECT routine flowchart 252 
FSTXT routine 

FD processing 79 

phase 21 processing 80 
FST000 routine 77,79 
F2PROCS branch table, use in phase 65 187 



GATXTV routine 127-128 
GCNTBL table 353 
GENERATE statement 

FRS.GEN data-name 524 
logic flow 

first statement 525 
subseguent statements 526 
phase 1B processing of 61 
response at execution time 523 



special Report Writer verbs 524 
1ST-ROUT routine 515 
generated procedure-name (see GN) 
generating data A-text 77 
GENOP routine 

condition-string processing 
with VALUE clause 9 8 
without VALUE clause 97 
replacing names 9 5 
phase 3 operations 88 
GENOP routine, translation of P0 text 89 
GET routine (phase 63) 
control 175 
diagram of 583 
GETALL routine (TAMER) 500 
GETBTBL table, use in phase 63 182 
GETCRD routine 
phase 1B 66 
phase 10 57 
GETDLM routine 

description 56 
phase 10 56 
phase 12 

call to GNSPRT routine 64 
RDSCAN routine 62 
GETMAIN macro instruction 
dictionary storage 493 
TAMER area 497,498 
GETNXT routine (Phase 3) 89,90 
GETNXT routine (phase 50) 
flowchart 267,268 
introduction 119 
GETNXT routine (phase 51) 
flowchart 273 
introduction 133 
GETPTR routine 494 
GETWD routine 56,57 
global table (see Task Global Table; 

Program Global Table) 
global table references, Procedure IC-text 
format 

type 1 430 
type 2 430 
global table standard area references 153 
global table variable-located area 
reference element 
description 153 
phase 64 action 184 
Procedure A-text format 435 
GLORET routine 88 
GLOSRY routine 
flowchart 252 
glossary building 88 
phase 3 operations 88 
glossary (compiler) 
processing for 88 
symbols used in 142 
glossary (for this book) 542-546 
GN (compiler generated procedure-name) 
allocation 

phase 6 150 
phase 62 167 
definition 

phase 64 action 184 
Procedure A-text format 434 
P0 text format 412 
P1 text format 422 
P2 text format 428 
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description, general 543 
equate strings 
building 134 

Optimization A-text format 439 
optimizing 146-147 
error declaratives. Procedure IC-text 

format 411 
field (PGT) 511 
generated procedure-name reference, 

optimization A-text format 439 
label declaratives. Procedure IC-text 

format 411 
number 

phase 1B 70 
phase 3 95 
phase 4 105 
phase 50 130 
phase 6 150 
optimizing 146-147 
phase 1B processing 70 
phase 4 processing 113 
phase 50 processing 130 
phase 51 processing 134 
phase 6 processing 146 
reference element 

phase 64 action 184 
Procedure A-text format 434 
P0 text format 412 
P1 text format 422 
P2 text format 428 
GN-VN element for PERFORM verb, 

optimization A-text format 440 
GNCALTBL table, format 354 
GNCTR cell (COMMON) 
description 325 
use in phase 1B 70 
use in phase 4 105 
use in phase 6 149 
GNDEF routine 

diagram of 583 
flowchart 289 
GNDEFR routine 581 
GNEQUR routine 146 
GNFWDBTB table 

building of 171 
format 354 
GNLABTBL table 

building of 171 
format 354 
use in phase 63 175 
use of ACCUMCTR 171 
GNLBDTBL table 355 
GNREF routine 

diagram of 583 
flowchart 292 
GNSPRT routine 

description ,64 
flowchart 231 
GNTBL table 
format 355 
GN allocation 150 
optimizing GNs 146-147 
Procedure A-text processing 152 
GNUREF elements 

optimization A-text format 439 
phase 50 processing 132 
GNVNRTN routine 165 
GOBACK statement, ENDJOB option for 28-29 



GO string 106 

GO TO DEPENDING ON call parameter element 

phase 64 action 185 

procedure A-text format 436 
GO TO statement 

phase 1B processing 69 

with ALTER statements 105-108 
GOTAVERB routine 

description 101 

flowchart 257 
GPLSTK table 

format 355-356 

use in phase 22 76 
group item processing, phase 20 72 
GRP.IND (Report Writer data-name) 522 
GSPICT routine 72 
GTEQ10K routine 

description 188 

diagram 585 

flowchart 299 
GTLNG cell (COMMON) 329 
GVFNTBL table 357 
GVNMTBL table 357 



HASH table 

dictionary organization 492,493 

format 358 

input to phase 25 85 

phase 3 processing 90 

TIB30 cell (COMMON) 325 

usage 313-314 

use in phase 1B 67 
hierarchy of operators 

definition 543 

description 112 



I-O-CONTROL paragraph 58 
IC-text, definition 543 

(see also Data IC-text; Procedure 
IC-text) 
IDBRK routine 104 
IDBYTES cells (COMMON) 339 
IDDSCN routine 

flowchart 223 

Identification Division processing 57 

phase 10 introduction 56 
IDENT routine 104 

identification, compiler version 486 
Identification Division 

compiler processing 20 

phase 10 

overview 56 
processing 57 
identifier constant 486 
IDENTL cell (COMMON) 328 
ID entry format, Data IC-text 104 
idk field, phase 22 processing 76 
IDLHN routine 

ALTER statement processing 106 

DEBUG Card processing 105 

PERFORM statement processing 109 

phase 4 overview 104 
IDPHOO-IDPH80 cells (COMMON) 339 
IF statement 113 
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IF string 

IF statement processing 113 
PERFORM statement processing 109 

IF verb analyzer routine 
flowchart 260 

IF statement processing 113 
IF MESSAGE statement processing 113 

IKFCBL00 (see phase 00; producing a storage 
dump) 

IKFCBL01 

IKFCBL02 

IKFCBL03 

IKFCBL04 

IKFCBL05 

IKFCBL06 

IKFCLB08 

IKFCBL1B 

IKFCBL10 

IKFCBL12 

IKFCBL20 

IKFCBL21 

IKFCBL22 

IKFCBL25 

IKFGBL30 

IKFCBL35 

IKFCBL40 

IKFCBL45 

IKFCBL50 

IKFCBL51 



see phase 01) 
see phase 02) 
see phase 03) 
see phase 04) 
see phase 05) 
see phase 06) 
see phase 08) 
see phase 1B) 
see phase 10) 
see phase 12) 
see phase 20) 
see phase 21) 
see phase 22) 
see phase 25) 
see phase 3) 
see phase 35) 
see phase 4) 
see phase 45) 
see phase 50) 
see phase 51) 



IKFCBL6 (see phase 6) 
IKFCBL6A (see phase 6A) 
IKFCBL62 (see phase 62) 
IKFCBL63 (see phase 63) 
IKFCBL64 (see phase 64) 
IKFCBL65 (see phase 65) 
IKFCBL70 (see phase 70) 
IKFCBL71 (see phase 71) 
IKFCBL72 (see phase 72) 
IKFCBL80 (see phase 80) 
incremented address elements 

phase 63 processing of 176 

phase 64 action 185 

Procedure A- text format 435 
incrementing the ACCUMCTR counter 171 
INDEX cell (COMMON) 331 
INDEX field (TGT) 

description 509 

location 505 

phase 6 processing 143 

phase 62 counter for 163 

use in phase 50 123 
INDEX table, phase 22 output 75 
index-name format, Data IC-text 404 
index-name references 

description 123-124 

dictionary entry format 454 

Procedure IC-text 

P0 format 421 

P1 format 427 

INDEXED BY clause 143 

INDEX1 cell (COMMON) 

description 328 

use in phase 6 143 

use in phase 62 163 
indirect indexing 123,124 
INDKEY table 

format 358-359 

phase 3 processing 88 



SEARCH verb processing 92,93 
INDXTB table 359-360 
INDTBL table 

description 58 
format 358 
IND2TBL table 359 
initialization coding 
description 157 
flowchart 297 
generation of 

flowchart 281 
phase 64 183 
initialization of compiler 47 
INITIATE statement 524 

INITIATE verb, phase 1B processing for 61 
INITSIZE cell (COMMON) 338 
INIT1 routine (object module) 
coding generation 157 
description 501-502 
location 501 

written by phase 6 141,157 
INIT2 routine (object module) 
coding generation 157 
description 513 
location 501 
written by 

phase 6 141,157 
phase 64 183 
INIT3 routine (object module) 
coding generation 157 
description 513-514 
location 501 

RLDTBL table processing 157 
written by 

phase 6 141,157 
phase 64 183 
inline procedures, definition 544 
input/output 

(see also access methods) 
buffer assignments 37-43 
compiler 

buffer contents 487-488 
buffer processing 47,48 
data set activity 37-43 
error messages 483 
errors from phase reguests 34 
linkage codes 33,34 
phase reguests 34 
phase 00 operations 31 
register usage 471-482 
response to system error 

recovery 470 
scanning routines 215 
summary of phases 21-25 
terminal errors 45 
data set activity 37-43 
errors 

compiler messages 483 
phase 02 processing 49 
response to system recovery 470 
result of phase reguests 34 
terminal 45 
object module 

(see also DCB; DECB) 

buffer size 81 

compiler processing for 80,81 

data area 502 

exit tests 502-504 
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requests 

linkage codes for 33,34 
phase 00 processing 31 
phase 34 

summary of phases 21-25 
Input-Output Section 58,59 
INSERT routine 500 
INT-ROUT routine 

COBOL word data-name processing 522 

description 520 

generation of 64 

logic 516,517 
Interactive Debug Program (see TEST option) 
interlude routines 

flow of control 35 

linkage to data management 44 

phase 00 processing 31,34 
Intermediate A-text 

data sets used for 119 

definition 544 

description 24 

phase 50 processing 119 

phase 51 processing 13 3 
Intermediate E-text 

data sets used for 119 

description 119 

definition 544 

phase 50 processing 119 

phase 51 processing 133 
intermediate results 

definition 544 

work area for 124 
intermediate result references, Procedure 

IC-text format 429 
internal compiler text 399-444 

(see also ATF-text; ATM-text; Data 
A-text; Data IC-text; Debug-text; 
DEF-text; E-text; Optimization A-text; 
Procedure A-text; Procedure A1-text; 
Procedure IC-text; XREF-text) 

ATF-text format 408 

ATM-text format 433 

Data A-text format 409 

Data IC-text format 402 

Debug-text format 444 

description 399 

E-text format 442 

Optimization A-text format 439 

Procedure A-text format 434 

Procedure A1-text format 441 

Procedure IC-text 
P0 format 411 
P1 format 419 
P2 format 425 

types produced by each phase 316 

XREF text format 443 
internal text formats 399-444 
interphase routines (see interlude 

routines) 
INTxx routines (see interlude routines) 
INTVIRT cell (COMMON) 331 
IOPTRCTR cell (COMMON) 32 8 
IPTEXT 

formats 400-401 

generation of 53 
IPTEXT ITEM processors 217 
issuing CMS FILEDEF commands 532 
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337 
338 
337 



KALOUT cell (COMMON) 337 
KEYTAB table 360 
KEYTBL table 

format 360-361 
SEARCH processing 
KILSUB routine 

description 132 
flowchart 270 
KKADS5 cell (COMMON) 
KKPGR70 cell (COMMON) 
KKPH0SW cell (COMMON) 
KTRMNATE cell (COMMON) 
description 337 
use in phase 03 50 



label declaratives 

debug processing 135 

description 70 
LABEL RET field (TGT) 

description 507 

location 505 
LABELS cell (COMMON) 325 
LABTBL table 

format 361 

input to phase 20 71 
LANGLVL option 29 
language analysis routine 214 
LATACP routine 

description 496 

dictionary organization 493 
LATGRP routine 496 
LATRNM routine 495 
LATRPT routine 495 
LCOL1 option 29 
LCOL2 option 29 
LCSECT cell (COMMON) 327 
LD dictionary entries 

description 72 

format 450 

preprocessing 71 
LD entries. Data IC-text format 402 
LD-text 

definition 544 

description 59 
LDELNM routine 495-496 
LDTEXT routine 

description 73 

flowchart 236 

phase 20 control 72 
LDTXT routine, flowchart 242 
LENGTH OF VN TBL field (TGT) 

description 507 

location 505 
LIBBUF cell (COMMON) 339 
LIB option 

data set usage for 37-43 

description 25-26 

flowchart 207 

parameters 47 

phase 10 processing 57 

switch for 295 
LIN.NUM data-name 523 
LIN.SAV data-name 523 

LINE clause, input to PROC01 routine 56 
LINE-COUNTER data-name 522 
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47 
332 
337 



31 



LINECNT option 

description 28 

phase 2 parameters 
LINECNTX cell (COMMON) 
LINKCNT cell (COMMON) 
LINK macro instruction 

interphase processing 

parameters 46 

passing control to compiler 31 

phase 02 4 7 
LINKA routine 31 
linkage editor 

introduction 19 

phase 6 overview 22 

processing of CMS compiled program 533 
Linkage Section 

phase 10 processing 60 

phase 22 processing 77 
LINKB routine 35 
LINKCNT cell (COMMON) 

current phase 487 

description 337 

interphase processing 34 

returning control to system 31 

use in phase 4 116 
LINKNAME cell 487 
LINKPH1 routine 71 

LINKST routine (phase 20), flowchart 235 
LISTERSW cell (COMMON) 331 
LISTING filename 532 
listing 

suppression of 142 

symbols used in 142 
Listing A-text 

phase 60 processing 15 5 
literal allocation, phase 62 
literal definitions 

A-text generation 127 # 13 1 

optimization 147 

optimization A-text format 

phase 51 processing 139 
LITERAL field (PGT) 

description 511-512 

location 510 
literal reference element 

phase 64 action 184 

Procedure A-text format 435 
literal subscripts 121,122 
literals 

description 511-512 

optimization of 165 
load module 4 6 

load module microfiche directory 317-323 
LOAD option 

description 26 

phase 02 parameters 47 

phase 62 output 161 

switch for 333 
LOCCTR cell (COMMON) 

description 325 

use in ADINCR routine 176 

use in phase 21 80 

use in phase 22 76 

use in phase 6 142-144 

use in phase 63 175-178 

use in RPT-ORIGIN processing 177 
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LOCNXT routine 

description 495 

phase 2 5 processing 86 
LOCTMCTT cell (COMMON) 331 
LONGTGT bit (TGT) 506 
LNGBL cell (COMMON) 331 
LNGDSP cell (COMMON) 331 
LSECT routine flowchart 239 
LST-ROUT routine 

generation of 64 

GN number 528 

phase 1B processing 61 
LSTCOMP option 29 
LSTONLY option 29 
LTLCTR cell (COMMON) 

description 326 

use in phase 50 132 

use in phase 6 150 

use in phase 62 168 
LTLDIS routine 

literal optimization 169 

phase 6 169 

phase 62 165 
LTLRTN routine 

literal optimization 169 

phase 6 169 

phase 62 165 
LTLTBL table 

format 361 

LITERAL allocation 150-151 

literal optimization 169 

phase 62 processing 165,168 

processing Procedure A-text 
elements 153 

use in phase 62 168 
LVL option 28 
L120 option 29 
L132 option 29 



macro instructions 

ATTACH 31,46 

CALL 31,46-47 

FREEMAIN 498,499 

RETURN 32 

XCTL 31,46-47 
MACRO routine, diagram of 583 
macro-type instruction element 

optimization A-text format 440 

phase 64 action 183 

Procedure A-text format 434 
Main Free Area, definition 544 
major code, definition 544 
master of an OCCURS clause with the 

DEPENDING ON option,, definition 544 
MAPLOC routine 

PGT storage allocation 148 

TGT storage allocation .1.-4 4. 
MASTAM table 497-498; 
MASTODO table 

format 361-362 

input to phase 25 85 

output of phase 22 75 
MAXBGITM cell (COMMON) 338 ' 
MESSAGE condition, phaseo5Q; processing 

for 132 r 

message definitions, E-te.xt format 442 
message parameters, Ertext, format 44 3 
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microfiche directories 

external symbol dictionary 321-323 

load module 317-323 
minor code 

definition 544 

description 450 
mode of operation for arithmetic 

strings 126 
MOVDIC routine 499 
MOVE statement 104 
MOVE string 104 
MOVE verb analyzer routine 

subscript references 123 

verb string processing 120 



N.nnnn data- 
NAME option 
bit in CO 
descripti 
phase 02 
phase 6 o 
phase 62 
phase 65 
nested IF st 
NEWBLOCK rou 
NEXT GROUP c 
NOBLST routi 
NODECTR cell 
nondata oper 
NOTE routine 
NPTTBL table 
NUM option 
bit in CO 
descripti 
GET WD rou 
phase 02 
numeric lite 
IC-text 
P0 format 
P1 format 
P2 format 
NUMINCR cell 
NXTOPTN rout 



name 504 

MMON 334 
on 26 

parameters 47 
utput 137 
output 161 
processing for 
atements 113 
tine 581 
lause 64 
ne 171 

(COMMON) 330 
and, definition 

44 

362 



189 



544 



MMON 334 

on 26 

tine 56 

parameters 47 

ral references, Procedure 

411 
420 
427 

(COMMON) 333 
ine, function 539 



object deck 28 

object hierarchy , definition 544 

object module 

definition 544 
description 501-514 
fields 

COUNT table 512 
DATA AREA 50 2 
EXIT lists 501-504 
INIT1 501-502 
INIT2 513 
INIT3 513 
locations 501 
PGT 510 

(see also Program Global Table) 
PROCEDURE 512 
PROCTAB table 514 
Q- Routines 512 



85 
75 



326 



RPT 512 

SEGINDX table 514 

TGT 505-510 

(see also Task Global Table) 
Transient Area 514 

initialization coding generation 
description 157 
flowchart 297 

segmented 514 

storage map 501 
object program listing 

CLIST option 27 

phase 6 output 141 
OBJECT-COMPUTER paragraph 57 
OBJSUB table, format 362 
OBODOTAB table 

built by phase 25 87,85 

format 457 
OBODOTBN cell (COMMON) 

description 330 
obtaining and printing error messages 50 
OCCURS DEPENDING ON clause (see Q- routines; 

OBODOTAB table) 
OCCTBL table 

format 363 

input to phase 25 

output of phase 22 

usage 313,314 
ODOBLD routine 

diagram of 87 

flowchart 261 
ODOCT counter 87 
ODOCTR cell (COMMON) 
ODOTBL table 

diagram of 87 

format 363-364 

use in phase 25 87 
OD2TBL table 

Data Division processing 59 

format 364 

input to phase 22 75 

phase 10 processing 59 
OFLOTBL 

description 190,191 

format 364 
ON routine 137 
ON SIZE ERROR clause 113 
ON statement 137 
ON strings 137 
ONCTL field (TGT) 

counter used for 143 

description 50 9 

location 505 

ON processing 137 

phase 62 counter for 163 
ONCTR cell (COMMON) 

description 329 

use in phase 51 137 

use in phase 6 143 

use in phase 62 163 
OPEN verb, debug processing 136 
operating system 

compilation 

abnormal termination 31,32 
invocation 31 

compiler, relationship to 19 

data management (see input/output 
reguests) 
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operating system (continued) 

object module, relationship to (see 
input/output requests; error handling 
in compilation; object module) 

returning control to 31,32 
operation code element 

format 434 

phase 6 4 action 184 
operators, hierarchy of 

definition 543 

description 111 
OPPRO routine, diagram of 581 
OPT option 

assembler coding for 110 

compiler characteristics for 19 

description 26 

PERFORM statement processing with 110 

phase 02 processing for 55 

phase 4 processing for 106 

phase 50 processing for 132 

phase 51 processing 135,140 

phase 62 processing for 161-174 

phase 63 processing for 17 5-178 

phase 64 processing for 179-186 

segmentation operations 44 

text generation for 140 
Optimization A-text 

compiler overview 25 

definition 544 

formats 439 

generation 127 

input/output operations 37-43 

literal processing 139 

phase 50 127,132 

phase 50 introduction 119 

phase 51 introduction 133 

phase producing 316 
optimization information elements 

phase 4 format 428 

phase 50 format 436 

phase 50 processing of 132 

phase 62 processing 171-174 

phase 63 processing of 172-174,176 

processing for 172*174 
optimizing assignments (registers 14 and 

15) 170 
Optimizing literals 165 
optimizing register assignments 168-170 
optimizing storage for the PGT 164 
optimizing virtuals 166 
OPTINSW cell (COMMON) 333 
OPTINSW1 cell (COMMON) 333 
OPTINSW2 cell (COMMON) 333 
OP-TINS W3 cell (COMMON) 333 
OPTINSW4 cell (COMMON) 333 
optional phase processing 36 
OPTLSTR cell (COMMON) 339 
OPTLVL cell (COMMON) 339 
OPTSWV2 cell (COMMON) 339 
op.tions 

(see also compilation directives) 

ADV 29 

APOST 28 

BATCH 26 

BUF 25 

CDECK 29 

CLIST 27 

CMS interface 531 



COUNT 29 

CSYNTAX 26 

DECK 28 

DISK 531 

DMAP 27 

DUMP 29 

DYNAM 28 

ENDJOB 28-29 

FDECK 29 

FLAG 28 

FLOW 26 

LANGLVL 29 

LIB 25-26 

LINECNT 28 

LOAD 26 

LCOL 29 

LSTCOMP 29 

LSTONLY 29 

LVL 28 

L120 29 

L132 29 

NAME 26 

NUM 26 

OPT 26 

phase 6 2 output 161 

PMAP 27 

PRINT 531 

QUOTE 28 

RESIDENT 28 

SEQ 28 

SIZE 25 

SOURCE 25 

SPACE 28 

STATE 26-27 

SUPMAP 27 

SXREF 27 

SYMDMP 27 

SYNTAX 26 

SYST 28 

SYSx 28 

TERM 26 

TEST 27 

TRUNC 27-28 

VBREF 29 

VBSUM 29 

VERB 28 

XREF 27 

ZWB 27 
OPTSCN routine, function 539 
out-of-line procedure, definition 544 
OUTLRECL cell (COMMON) 339 
output listing, suppression of 142 
OU6REC work area, use in phase 64 179 
OVERFLOW cell (TGT) 

allocation (phase 62) 167 

description 508 

location 505 
OVERFLOW cell (PGT) 511 
OVERFLOW record 

definition 544 

description 190,191 



PAGE clause, RDSCAN routine processing 62 
PAGE-COUNTER data-name 522 
PARAM field (TGT) 

description 509-510 
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location 505 

phase 6 processing 1 

phase 62 counter for 
parametric Report Writer 
parentheses, Procedure I 

P0 format 412 

P1 format 421 
PARMAX ce}l (COMMON) 

description 330 

use in phase 6 143 

use in phase 62 164 
PARTBL table 193 
PDATEX routine (phase 6) 
PDATEX routine (phase 64 
PDSCN routine 

description 66 

flowchart 232 
PERFORM cells (see also 

(TGT)) 329 
PERFORM statement, 

processing 109-111 
PF routine (see PGF-ROUT 
PFINDL routine 113 
PFMCTL field (TGT) 

counter in COMMON 32 

description 509 

location 505 

phase 6 processing 1 

phase 62 counter for 
PFMCTR cell (COMMON) 

description 329 

use in phase 4 109 

use in phase 6 143 

use in phase 62 163 
PFMSAV field (TGT) 

counter in COMMON 32 

description 509 

location 505 

PERFORM statement pro 

phase 6 processing 1 

phase 62 counter for 
PFMSAV number 109 
PFMTBL table 

format 364-365 

PERFORM statement pro 
PGF-ROUT routine 

description 521 

GN number 528 
PGH-ROOT routine 521 
PGNARTN routine 165 
PGT (see Program Global 
PGT-VN TABLE field (TGT) 

description 507 

location 505 
PH routine (see PGH-ROUT 
phase, definition 544 
phase, optional 36 
phase 00 

CSECT names 

description 

entry point 
COS 35,44 
(see also COMMON) 
START 31 

flowcharts 197-308 

function 21 

input/output requests 

internal cells 



43 

164 

routines 520,521 
C-text 



flowchart 294 
) flowchart 294 



PFMSAV field 
phase 4 

routine) 



43 
163 



cessing 109 
43 
164 



cessing 109 



Table) 



routine) 



317 
31-45 



33,34 



LINKCNT 31,487 
LINKNAME 487 
SEGSAVE 44 

microfiche directory 317 

register usage 471 

SEGTBL table 44 
phase 01 

CSECT names 317 

description 46 

flowchart 206 

function 22 

microfiche directory 317 

register usage 471 
phase 02 

CSECT names 317 

description 47-49 

flowchart 207 

function 22 

microfiche directory 317 

register usage 472 
phase 03 

CSECT names 317 

description 50 

diagram 597 

flowchart 208 

function 22 

microfiche directory 317 

register usage 472 

returning control to phase 00 50 
phase 04 

description 51 

diagram 561 

entry point 317 

flowcharts 209-212 

function 22 

input-output requests 51 

microfiche directory 317 

register usage 472 

texts produced 316 
phase 05 

CSECT names 317 

description 52-53 

flowcharts 213-215 

function 22 

input/output requests 37 

microfiche directory 317 

register usage 473 
phase 06 

CSECT names 317 

description 54 

flowcharts 216-219 

function 22 

input/output requests 37 

microfiche directory 317 

register usage 473 
phase 08 

CSECT names 317 

description 55 

flowcharts 220-221 

function 22 

input/output requests 37 

microfiche directory 317 

register usage 473 
phase 1B 

CSECT names 318 

description 66-70 

entry point 318 

flowchart 232 
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phase 1B (continued) 

function 22-23 

input/output requests 37 

internal cell SEGSW 69 

microfiche directory 318 

register usage 475 

table usage 313 

texts produced 316 

TIB usage 315 
phase 3 

CSECT names 318 

description 88-98 

entry points 318 

flowcharts 251,253 

function 23 

input/output requests 38 

microfiche directory 318 

register usage 477 

table usage 313 

texts produced 316 

TIB usage 315 
phase 4 

CSECT names 319 

description 10 4-117 

entry points 319 

flowcharts 259-261 

function 23 

input/output requests 38 

microfiche directory 3 19 

optimization information elements 428 

register usage 477 

texts produced 316 

table usage 313 

TIB usage 315 
phase 6 

CSECT names 319 

description 141-160 

entry points 319 

flowcharts 276-281 

function 24 

input/output requests 31 

microfiche directory 319 

0U6REC internal cell 151 

register usage 479 

table usage 314 

texts produced 316 

TIB usage 315 
phase 6A 

CSECT names 320 

flowcharts 300-302 

description 190,191 

function 24-25 

input/output requests 42 

microfiche directory 3 20 

register usage 481 

table usage 314 

TIB usage 315 
phase 10 

communication section processing 60 

CSECT names 317 

description 56-60 

entry point 317 

flowcharts 222-225 

function 22 

input/output requests 37 

internal cell CURGCN 56 

microfiche directory 317 

register usage 474 



table usage 313 

texts produced 316 

TIB usage 315 

work area ICTEXT 59 
phase 12 

CSECT names 317 

description 61-65 

flowcharts 226-231 

function 22 

generating error messages 64 

input/output flow 63 

input/output requests 37 

microfiche directory 317 

register usage 474-475 

table usage 313 

texts produced 316 

TIB usage 315 
phase 20 

communication section processing 73 

CSECT names 318 

description 71-73 

entry point 318 

function 2 3 

flowcharts 233-236 

input/output requests 37 

DCBEXLST cell 80 

microfiche directory 318 

register usage 475 

table usage 313 

texts produced 316 

TIB usage 315 
phase 21 

CSECT names 318 

description 79-84 

flowchart 245-246 

function 23 

input/output requests 38 

microfiche directory 318 

register usage 476 

table usage 31 3 

texts produced 316 

TIB usage 315 
phase 22 

CSECT names 318 

description 74-78 

flowcharts 237-244 

function 23 

input/output requests 38 

microfiche directory 318 

register usage 476 

table usage 313 

texts produced 316 

TIB usage 315 
phase 25 

CSECT names 318 

description 85-87 

diagram of operations 577 

flowchart 247-250 

function 23 

input to 87 

microfiche directory 318 

operations 87 

operations diagram 577 

register usage 476 

table usage 313 

TIB usage 315 
phase 35 

CSECT names 318 
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description 99-103 

entry point 317 

flowcharts 254-258 

function 23 

microfiche directory 318 

register usage 477 

routines 100-102 

table handling 100 

table usage 313 

TIB usage 315 
phase 45 

CSECT names 319 

description 118 

flowcharts 262-264 

function 23 

input/output reguests 39 

microfiche directory 319 

register usage 478 

table usage 313 

texts produced 316 

TIB usage 315 
phase 50 

CSECT names 319 

description 119-132 

entry points 319 

flowcharts 265-270 

function 24 

input/output reguests 40 

microfiche directory 319 

optimization information elements 436 

register usage 478 

table usage 313 

texts- produced 316 

TIB usage 315 
phase 51 

CSECT names 319 

description 133-140 

entry points 319 

flowcharts 271-275 

function 24 

input/output reguests 40 

microfiche directory 319 

register usage 478 

table usage 313 

texts produced 316 

TIB usage 315 
phase 62 

CSECT names 319 

description 161-174 

diagram of 581 

flowcharts 282-286 

function 24,161 

input/output reguests 41 

microfiche directory 319 

operations 581 

register usage 479 

table usage 313 

TIB usage 315 
phase 63 

CSECT names 320 

description 175-178 

diagram 583 

flowchart 287-292 

function 24 

input/output reguests 41 

microfiche directory' 320 

register usage 480 

table usage 313 



texts produced 316 

TIB usage 315 
phase 64 

CSECT names 320 

description 179-186' 

flowchart 293-297 

function 24,179 

input/output reguests 42 

microfiche directory 320 

output 179 

register usage 480 

table usage 313 

texts produced 316 

TIB usage 315 
phase 65 

CSECT names 320 

description 187-189 

diagram 585 

flowcharts 298-299 

function 24,187 

input/output reguests 42 

microfiche directory 320 

register usage 480 

table usage 314 

TIB usage 315 
phase 70 

CSECT names 320 

description 19 2-194 

entry points 320 

flowchart 303 

function 25 

input/output reguests 43 

microfiche directory 32C 

register usage 481 

table usage 314 

TIB usage 315 

XU6REC internal cell 193 
phase 71 

CSECT names 320 

description 19 2-194 

microfiche directory 320 
phase 72 

CSECT names 320 

description 19 2-194 

microfiche directory 320 
phase 80 

CSECT names 320 

description 195-196 

flowcharts 304-308 

function 25 

input/output reguests 43 

microfiche directory 320 

register usage 482 
PHASEND routine 86 
PHAS63 routine 175,177 
PHCTRL routine 

flowchart 253 

phase 3 control 88-89 

SEARCH string processing 93 
PHINIT routine 

description 88 

Glossary building 88,597 
PHMESS table, use in phase 70 192 
PHxERR tables 193,194 
PHZERR cell (COMMON) 338 
PHZStf cell (COMMON) 

description 333 

use in phase 02 47,48 
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PHZSW1 cell (COMMON) 

description 333 

use in phase 02 47,48 

use in phase 3 (SYM bit) 88 

use in phase 6A 190 
PHZSW2 cell (COMMON) 

description 334 

use in phase 02 47,48 
PHZSW3 cell (COMMON) 

description 334 

statistical information 48 

syntax-checking function 45 

use in phase 02 47,48 
PHZSW4 cell (COMMON) 334 
PHOSW cell (COMMON) 339 
PH1 BYTE cell (COMMON) 

Configuration Section processing 57 

description 335 
PH1ERR table, use in phase 70 193,194 
PH2ERR table, use in phase 71 192 
PH25SW cell (COMMON) 338 
PH3ERR table, use in phase 72 192 
PH4ERR table, use in phase 72 192 
PH45CTL routine 118 

PH45BIT bit (COMMON), set in phase 4 104 
PH5CTL routine 

debug option processing 135 

flowchart 266 

handling phase 51 verb strings 132 

ON processing 137 

verb string processing 119,120 
PH5ERR table, use in phase 72 192 
PH6 routine (phase 6) flowchart 277 
PH6 routine (phase 62) flowchart 283 
PH6ERR cell (COMMON) 

description 329 

phase 70 processing 193 
PH6ERR table, use in phase 72 192 
PH62 routine 581 
PH65 routine 585 
PIOTBL table 

format 365 

input to phase 12 63 

output of phase 12 63 

phase 1B processing 66 

RERUN clause processing 58-59 

use in phase 21 79 

verb processing 69,70 
PLSCALL routine 205 
PMAP option 

description 27 

phase 02 parameters 47 

phase 62 output 161 

phase 6 4 processing for 179 

register assignments 483 

switch for 333 
PN (source program procedure-name) 

allocation (phase 62) 167 

DEF-text 

format 443 

phase 64 action 179 

Procedure A-text format 434 

Procedure IC-text formats 411,419 

description 

definition 544 

dictionary entry formats 446 



phase 1B 66,67 
phase 50 130 
phase 51 134 

eguate strings 

description 144 

Optimization A-text format 439 

field (PGT) 511 

number 

phase 1B 66 ,67 
phase 4 104 
phase 6 150 

optimizing 146 

reference element 

phase 64 action 184 
Procedure A-text format 434 
Procedure IC-text formats 411,419 
PNATBL table 

format 366 

phase 62 processing 165 
PNCHSW routine 

description 189 

diagram 585 
PNCHSW switch, use in phase 65 189 
PNCTR cell (COMMON) 

description 32 5 

use in phase 1B 66 

use in phase 51 135 
PNDEF routine 

diagram of 583 

flowchart 290 
PNDEFR routine (phase 62) 581 
PNDEFRTN routine 102 
PNEQUR routine 146 
PNFWDBTB table 

building of 171 

format 366 
PNLABTBL table 

building of 171 

format 366 

use in phase 63 175 

use of ACGUMCTR 171 
PNLBDTBL table, format 367 
PNOUNT table 

description '111,112 

format 367 
PNQTBL table 

description 67,68 

format 367 
PNTABL table 

description 67,68 

format 368 
PNTBL table 

format 368 

optimizing PNs 583 

PN allocation 149-150 

Procedure A-text elements 152,153 
PNUREF element, optimization A-text 

format 440 
PNUTBL table 

building of 135 

format 369 

optimizing PNs 146 

phase 6 introduction 141 
PRBLDISP cell (COMMON) 

description 32 5 

phase 64 processing 186 
PRBLNUM cell (COMMON) 330 
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PRBL1 CELL PTR field (TGT) 

description 508 

location 505 
PRFORM routine 

description 109 

flowchart 261 
PRFTWO routine (phase 6) 

flowchart 278 

diagram of 581 
PRFTWO routine (phase 62) flowchart 284 
PRIME routine 

called by MOVDIC 499 

description 498*499 
PRINT option 531 
PRINT-SWITCH data-names 522 
PRINTBUF cell (COMMON) 338 
priority , definition 54 4 
priority elements, debug-text format 444 
priority numbers in segmentation 

checking in phase 1B 69 

Configuration Section 57 

procedure A-text processing 151-152,155 
PROCBL counter 

use in branch instruction 
processing 174 

use in building PNLABTBL and 
GNLABTBL 171 

use in phase 62 169 
PROCCTR cell (COMMON) 330 
procedure, in-line, definition 544 
procedure, out-of-line, definition 544 
Procedure A-text 

data sets used for 37-43 

definition 544 

formats 434-438 

use in procedure block 
allocation 168,169 
procedure A1-text 

definition 545 

formats 441-442 

phase 64 action 179,183-186 

phase 64 processing of 179 

producing of 175 
procedure base register for GNs element 

phase 6 4 action 182 

procedure A1-text format 441 
procedure base register for PNs element 

phase 64 action 182 

procedure A1-text format 441 
Procedure Block 

allocation 168,169 

definition 545 

phase 63 processing for 175 

segmentation processing 171 
PROCEDURE BLOCK field (PGT) 

description 512 

1 ocation 51 Q r 

overflow allocation 166 
procedure block number element, phase 64 

action 183 
Procedure Division 

compiler design 20 

overview 21-25 

phase 1B processing 66 

procedure-name processing 104 
Procedure field (object module) 

description 512 

location 510 



Procedure IC-text 

data sets used for 37-43 
definition 545 
description 21 
formats 411-432 
procedure-name DEF-text element, phase 64 

action 182 
procedure- name reference, optimization 

A-text format 440 
procedure- name, compiler generated (see GN) 
procedure- name, source program (see PN) 
procedure-name, variable (see VN) 
procedure P1A-text 424 
PROCESLD routine 86 
processing for branch instructions 
phase 62 174 
phase 63 175 
processing for optimization information 

elements 176 
PROCINDX table 

building of 188 
format 

compiler 369 
debug data set 466 
PROCNOTE save area, use in phase 65 188 
PROCRENM routine 86 
PROCTAB table 

building of 187 
format 46,5 

location in object module 501 
object module 514 
PROC01 routine 

description 64 
flowchart 228 
PROC02 routine 

description 64 
flowchart 229 
producing a storage dump 29,470 
producing file section entries 71 
producing incomplete Data A-text 72 
producing the report writer subprogram 62 
PROGID cell (COMMON) 
description 325 
use in phase 10 57 
program break 134 

(see also critical program breaks) 
program collating sequence, phase 05 57 
Program Global Table (PGT) 
base registers for 182 
COMMON, relationship to 324 
counters used for 146 
definition 545 
description 510-512 
fields 

COUNT LINKAGE AREA 511 

DCBADR 511 

DEBUG LINKAGE AREA 510 

DISPLAY LITERAL 512 

GN 511 

LITERAL 511-512 

locations 510 

OVERFLOW 511 

PN 511 

PROCEDURE BLOCK 512 

TEST LINKAGE AREA 511 

VIRTUAL 511 

VIRTUAL EBCDIC NAMES 511 

VNI 511 
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Program Global Table (PGT) (continued) 

phase 6 introduction 141 

phase 6 storage allocation 148-151 

phase 62 storage allocation for 162-166 

phase 64 processing for 179 
progress messages 

definition 545 

interphase processing 34 

SYSTERM data set 44 

TERM option 26 
PROGSUM table 

building of 188 

format 456 
PROGSW cell (COMMON) 33 8 
PSHTBL table 

description 113 

format 370 
PSIGNT table 

description 111-113 

format 370 
PSVCTR cell (COMMON) 

description 329 

use in phase 6 143 

use in phase 62 164 
PTRFLS table 

description 113 

format 370 
PTYNO cell (COMMON) 327 
PUT routine (phase 6) 151 
PUTDEF routine 

flowchart 274 

PN definition 134 
PO-text (see procedure IC-text) 
P1-text (see procedure IC-text) 
P1BTBL table 

description 66 

format 371 

input to phase 12 63 

output of phase 12 63 

use in phase 10 61 
P1TEXT table 

description 100 

format 372 
P2-text (see procedure IC-text) 



Q-routine, definition 545 
Q-routine generation 77-78 
Q-routine identification elements 

A-text processing for 77 

phase 64 action 182 
QALTBL table 372 
QBEGIN routine 175 
QBUILD routine 78 
QFILE table 

attribute replacement 95 

format 372-373 

phase 21 processing 79 

use in phase 3 9 5 
QGNTBL table 

building of 177 

format 373 

use in phase 63 175 

use in phase 64 182 
QITBL table 

diagram of 87 

format 373 

input to phase 25 85 



QISAM access method 80-83 
QLTABL table 

format 374 

input to phase 12 63 
QNMTBL table 

description 57-59 

format 374 
QRTN table 

diagram of 87 

format 374-375 

input to phase 25 85 
QSAM access method 80-83 
QSBL table 375 
QTBL table 

format 375 

Q-routine identification element 160 

use in phase 64 182 
QUALIF routine 95 
qualified name, definition 545 
qualifying EBCDIC name. Procedure IC-text 

format 411 
QUOTE option 28 
QVAR table 

dictionary attributes 95 

format 375-376 

phase 22 processing 75 
QVARBD routine 78 



RCDTBL table 

Data Division processing 59 

format 376 

input to phase 12 63 

output of phase 12 63 
RC4 routine flowchart 296 
RC8C routine flowchart 296 
RD dictionary entries 

Data IC-text format 402 

description 59 

format 449 

preprocessing 76 
RDFSTK table 

format 376 

use in phase 22 76,77 
RDF2 routine 

description 188 

diagram 585 
RDSCAN routine 

description 62 

flowchart 227 
RDSYN routine 77 
RD001 routine flowchart 296 
READ routine 

description 33 

flowchart 200 
READ statement 89 
READ verb 136 

READ verb, debug processing 135 
READFN routine 89 
READF2 routine (phase 6) 146 
READF2 routine (phase 62) diagram 581 
READF4 routine 

description 74 

flowchart 243 
READLIB routine, flowchart 204 
RECEIVE verb 

phase 50 processing for 129 

phase 51 processing 136 
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Record Description dictionary entries 60 

(see also RD dictionary entries) 
RECORD KEY clause 64 
REDEF routine 76-77 
REF-text 

data sets used for 37-43 

definition 545 

format 443 

phase 6A 190,191 
REFLD11 routine diagram 585 
REDEFINES clause, phase 22 processing 

of 62,76-77 
REGCOMAD routine, diagram 585 
register assignment 

CMS interface routine 539 

description 155,156 

NOOPT option 483 

OPT option 483 

optimization of 168-170 

phase 51 verb processing 135 
register specification element 

format 435 

phase 64 action 185 
register usage 

compilation 471-482 

execution-time 155,156 

saving registers 487 

work registers 135 
register 14, optimizing assignment of 170 
register 15, optimizing assignment of 170 
REGLIST routine 581 
REGMTX table 151-156 
REGMV1 routine 

diagram 581 

use in register assignments 169 
RELADD cell (COMMON) 325 
relational codes, Procedure IC-text 

format 412 

P1 format 421 

P2 format 428 
relative addresses element 

format 435 

phase 64 action 185 
RELEASE verb, debug processing 135 
RELLOC cell (COMMON) 329 
relocation dictionary, VIRTUAL 

allocation 149 
RELSPACA cell (COMMON) 337 
RENAMES, dictionary entries 74 
RENAMS routine 74 
RENAMTB table 

format 376-377 

input to phase 25 85 
REPORT clause, phase 10 processing 61 
REPORT routine flowchart 235 
REPORT SAVE field (TGT) , phase 62 counter 

for 164 
Report Section, phase 12 processing for 61 
report section dictionary entries, phase 22 

processing of 77 
report section header, use in phase 10 61 
Report Writer 

data-names 522,523 

description 515-528 

fixed routines 515 

group routines 521,522 

parametric routines 520,521 



routines generated for 
subprogram 515-522 

source statements, compiler response 
to 516,517 

subprogram 

elements of 515-523 
logic of 516-519 

verbs 523,524 
Report Writer Subprogram (RWS) , phase 12 

processing for 61 
REPORT-CALL verb 523 
REPORT-ORIGIN verb 

created by phase 1B 61 

description 523 

OPT processing for 176 
REPORT-REORIGIN verb 

created by phase 1B 61 

description 523 
REPORT-RETURN verb 523 
REPORT-SAVE verb 523 
REPTAB table 

format 377 

input to phase 12 63 

output of phase 12 63 
RERUN bit 

Input/Output verb processing 6 9 

RERUN clause processing 58-59 
RERUN clause 58-59 

RERUN verb, phase 51 processing 136 
RESERVE element 

function 120 

use in phase 62 169 
RESIDENT option 

allocation of virtuals for 149 

description 28 

phase 02 processing 47 

phase 51 processing for 139 

phase 6 processing for 149 

phase 62 virtual EBCDIC names allocation 
for 167 

virtual allocation for 167 
RET CODE field (TGT) 

description 507 

location 505 
RET- ROUT routine 

description 520 

generation of 65 
RETURN macro instruction 32 
RETURN verb, debug processing 135 
REWRITE verb, debug processing 135 
RGNCTR cell (COMMON) 

description 327 

use in phase 62 167 
RLD-text 

definition 545 

description 156 
RLDSORT routine, diagram 583 
RLDTBL table 

completion by phase 64 179 

format 377,378 

making entries in 177 

phase 6 introduction 141 

phase 64 action for 181 

phase 64 table processing 183 

processing Data A-text, E-text, 
DEF-text 159-160 
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RLDTBL table (continued) 

processing Procedure A-text 
elements 152 

use in phase 63 176 
ELS- ROUT routine 521 
FNMTBL table 

format 378,379 

output of phase 12 63 

phase 1B introduction 66 

use in phase 22 77 
ROL-ROUT routine 

generation of 64 

logic of report writer subprogram 517 
ROLTBL table 379 
root segment, definition 545 
ROUNDED clause 113 
ROUTBL table 

description 66 

format 380 

output of phase 12 63 
routines 

ACCESS routines (see ACCESS routines) 

interlude 37-43 

Report Writer 515-522 

SYNAD 32,34 

verb analyzer (see verb analyzer 
routines) 
RPF-ROUT routine 

description 521 

GN number 528 
F.PH-ROUT routine 521 
RPNCNTR cell (COMMON) 

description 328 

use in phase 62 167 
RPT field (object module) 

description 512 

location 501 
RPT-ORIGIN elements 

phase 63 processing of 176 

Procedure A-text format 436 
RPT. LIN work area, phase 22 processing 62 
RPT.RCD data-name 522 
RPTSAV field (TGT) 

description 510 

location 505 

processing for 146 
RPTSAV cell (COMMON) 

description 32 7 

use in phase 62 164 

use in phase 6 146 
RSECT routine flowchart 241 
BPTWTR bit (COMMON), use in phase 10 61 
RST-ROUT routine 

description 520 

generation of 64 
RUNTEL table 

format 3 80-381 

usage 313,314 
RWRTBL table 

description 66 

format 381 

input to phase 12 63 

output of phase 12 63 
R64C0 routine diagram of 581 



S. nnnn data-name 523 
SAME AREA clause 

buffer generation 83 

I-O-Control paragraph processing 58-59 

phase 21 processing 83 
SAME RECORD AREA clause, phase 21 

processing for 83 
SAME RECORD clause 58 
SAME routine 83 
SAMER routine 83 
SAMETB table 

buffer generation 83 

buffer processing 83 

FD dictionary entries 80 

format 381 

usage 313,314 

use in phase 2183 
SATBL table 

description 58 

format 382 
SAVE AREA field (TGT) 

description 505 

location 505 
SAVE AREA-2 field (TGT) 

description 50 9 

location 505 

phase 6 processing 146 

phase 62 counter for 164 
SAVE AREA-3 field (TGT) 

description 509 

location 505 

phase 6 processing 146 

phase 62 counter for 164 
SAV-ROUT routine 

description 520 

generation of 64 

GN number 528 
SAVE routine 581 

SAVETBL table, use in phase 63 175 
SA2CTR cell (COMMON) 

description 327 

use in phase 6 146 

use in phase 62 164 
SA3CTR cell (COMMON) 

description 332 

use in phase 6 146 

use in phase 62 164 
SBL 

counter used for 143 

definition 545 
SBL field (TGT) 

description 509 

location 505 

phase 62 counter for 163 
SBLCTR cell (COMMON) 

description 326 

use in phase 6 143 

use in phase 22 76 

use in phase 62 163 
SD dictionary entries 

Data IC-text format 402 

format 449 

phase 21 processing of 80 

preprocessing 76 
SD entries 59 
SD-text, definition 545 
SDSIZ cell (COMMON) 328 
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SDTEXT routine 

description 80 

SD dictionary entries 80 
SEARCH routine 

determining uniqueness 95 

phase 3 processing 89 
SEARCH verb analyzer routine 113-114 
secondary base locator, definition 545 
section, definition 545 
SEGBRK routine 177 
SEGENTR routine 134 
SEGINDX table 

building of 188 

format 382,466 

object module 514 
SEGLMT cell (COMMON) 

description 328 

use in phase 1B 69 

use in phase 10 57 
segment, definition 545 
segment elements 

phase 6 5 processing 188 
SEGMENT-LIMIT clause, phase 63 processing 

of 177 
segmentation 

control breaks 134 

definition 545 

elements, format 439 

optimization with 171 

phase 00 processing 44 

phase 1B 69 

phase 10 57 

phase 51 134 

phase 6 155 

phase 63 processing for 177 
segmentation call parameter element 

phase 6 4 action 185 

procedure A-text format 436 
SEGNOTE routine 33 
SEGPNT routine 

linkage codes to 33 

segmentation operations 44 
SEGPROC routine 155 
SEGTBL table 

format 383 

Procedure A-text processing 155 

segmentation control breaks 134 

segmentation operations 44 
SELECT clause 58 
SELSCN routine 49 
SEND verb 

phase 50 processing 13 2 

phase 51 processing 137 
SEQ option 

description 28 

phase 02 parameters 47 
SEQERR cell (COMMON) 326 
sequence option 

description 28 

phase 2 parameters 47 

switch for 333 
SETNAMS routine 

description 86 

flowchart 250 
SETTBL table 383 
severity of errors 31 
SE6000 routine (phase 6) flowchart 279 



SE6000 routine (phase 62) 

diagram of 581 

flowchart 285,286 
SE6000 routine (phase '64) flowchart 295 
SIZE ERROR clause 113 
SIZE option 

description 25 

error handling 49 

phase 02 parameters 47 
SKIP routine 33 
SMRCDTBL table 

buffer generation 83 

FD dictionary entries 80 

format 384 

usage 313,314 

use in phase 21 83 
SMSTBL table 384 

SNF routine (phase 65) , diagram 585 
SNMTBL table 385 
SORT CORE SIZE field (TGT) 

description 507 

location 505 
Sort Description dictionary entries (see SD 

dictionary entries) 
Sort Description entries 59 
SORT FILE SIZE field (TGT) 

description 507 

location 505 
SORT-MESSAGE field (TGT) 

description 507-508 

location 505 
SORT MODE SIZE field (TGT) 

description 507 

location 505 
SORT RET field (TGT) 

description 507 

location 505 
SORT SAVE field (TGT) 

description 507 

location 505 
SORTXT routine 

description 118 

flowchart 264 
source listing, generated by phase 12 65 
source module 

definition 545 

description 20 
SOURCE option 

description 25 

Identification Division 57 

phase 02 parameters 47 

switch for 333 
source program errors (see error handling 

in compilation) 
source program procedure-name (see PN) 
SPACE option 

description 28 

phase 02 parameters 47 
SPACEX cell (COMMON) 336 
SPACING cell (COMMON) 

description 330 

use in phase 00 48 

use in phase 02 4 7 
SPCRTS routine flowchart 231 
special names. Procedure IC-text 

P1 format 412 

P2 format 428 
SPECIAL-NAMES paragraph 57 
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special phase 6 elements , Procedure A-text 

format 435 
SPNTBL table 

Configuration Section processing 57 

format 385 

input to phase 12 63 

output of phase 12 63 

verb processing 69 
SRATBL table 

description 58 

format 386 
SRCHKY table 

format 386 

use in phase 22 75 
SRCTBL table 386 
SSCIN table 

format 387 

usage 313,314 

use in phase 45 118 
SSCOUT table 

format 387 

usage 313,314 

use in phase 45 118 
SSCRPT routine 123 
SSDELIM table 

format 388 

usage 313,314 

use in phase 45 118 
STAESW cell (COMMON) 336 
standard data-name references, Procedure 
IOtext 

format 412 

P1 format 422 

P2 format 428 
START entry point 31 
STATE option 

bit in COMMON 334 

debug text construction for 176 

description 26*27 

phase 2 parameters 47 

phase 10 processing for 56,57 

phase 50 processing 120,121 

phase 51 processing 135 

phase 6 output 142 

phase 62 output 162 

phase 63 processing for 176 

phase o5 processing for 187,188 

Procedure A-text processing 151 

segmentation processing for 178 

TGT allocation for 164 
statement number option (see STATE option) 
STATIC routine 499 
STOP RUN statement, ENDJ0B option 
for 28-29 

storage reguirements for compiler 29-30 
STRING table 

COMPUTE statement processing 112 

format 388 

MOVE statement processing 104 

SEARCH statement processing 113-114 
STRING verb, phase 51 processing 137 
strings 

ADD 124 

CALL 105 

EQUATE 109 

EVAL 113 

GO 105,106 

IF 113 



MOVE 104 

SUBSCRIPT 120,121 
STSRCH routine 

PO-text translation 89 

SEARCH format-2 processing 93 
SUBADR field (TGT) 

counter in COMMON 329 

counter used for 143 

description 509 

location 505 

ON processing 137 

phase 6 2 counter for 163 
SUBCOM PTR field (TGT) 

description 507 

location 505 

use in phase 51 137 

use in phase 62 163 
SUBCTR cell (COMMON) 329 
subject hierarchy, definition 545 
subscript save cell 

phase 50 126 

phase 6 137 
SUBSCRIPT string 

• MOVE statement processing 104 

resolving references 120-122 
subscripted references 

data-name 

optimizing 121,122 
Procedure IC-text format 426 
resolving 120-122 

literal 

optimizing 122,123 
resolving 121,122 
SUMTBL table 388-389 
SUPMAP option 

description 27 

phase 02 parameters 47 

phase 6 processing 142 

phase 62 output 162 

switch for 333 
suppression of output listing 142 
SWITCH cell (COMMON) 

description 334 

syntax-checking function 45 

use in phase 10 (RERUNN bit) 58-59 

use in phase 6 142 

use in phase 70 159 
SWITCH field (TGT) 

description 505-507 

location 505 
SWITCH 1 cell (COMMON) 337 
SWITCH2 cell (COMMON) 336 
SWITV2 cell (COMMON) 330 
SXREF option 

description 27 

interphase processing for 31 

phase 02 parameters 47 

phase 6 output 141,142 

phase 6A processing 190,191 

phase 62 output 161 

phase 64 processing for 179 

swicth for 333 
SYAA routine 

error recovery response 470 

phase input/output reguests 34 
SYAB routine 

error recovery response 470 

phase input/output reguests 34 
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SYAD routine 

error recovery response 470 

phase input/output requests 34 
SYMDICT DSECT, function 86 
SYMDMP option 

debug linkage area for 166 

debug text construction for 176 

description 27 

phase 02 processing for 47 

phase 10 processing for 56,57 

phase 22 processing 78 

phase 25 processing for 85-87 

phase 50 processing 120, 121 

phase 51 processing 135 

phase 63 processing for 176 

phase 65 processing for 187,188 

segmentation processing for 177-178 

TGT allocation for 164 
SYMSK cell (COMMON) 333 
SYMSK1 cell (COMMON) 334 
SYMSK2 cell (COMMON) 334 
SYMSK3 cell (COMMON) 334 
SYMWRITE routine, diagram 585 
SYNAD exit, phase 03 processing for 50 
SYNAD routines 

error recovery 470 

phase input/output requests 34 
SYNADR01 cell (COMMON) 

description 332 

phase 03 processing 50 
syntactic and reference markers 

IPTEXT format 
one byte 400 
two byte 400 
syntax analysis, phase 05 52-53 
SYNTAX option 

(see also CSYNTAX option) 

description 26 

phase 00 processing for 45 

phase 2 processing for 47 

phase 21 processing 79 

phase 3 processing for 96 

phase 4 processing 116 

phase 50 processing 119 

phase 51 processing 133 

E-text processing 192 
syntax-checking compilations 45 
syntax checking, compiler output for 20 
SYSIN data set 

buffer size determination 47 

input to compiler 20 
SYSLIB data set, CMS FILEDEF for 532 
SYSLIN data set 

compiler active 37-43 

output of compiler 20 
SYSOUT DDNAME field (TGT) 

description 508 

location 505 
SYSPRINT data set 

compiler activity .37-42 

error messages to 44 

Identification Division 57 

output of compiler 26 

phase 70 output 25 
SYSPUNCH data set 

CMS FILEDEF for 532 

CMS processing of 533 



compiler activity 37-43 

output of compiler 20 
SYST option 28 
SYSTDD cell (COMMON) 338 
SYSTX cell (COMMON) 328 
System/370 

phase 10 57 

phase 50 127 

phase 51 140 
SYSTERM data set 

CMS FILEDEF for 532 

compiler activity 37-43 

progress and error messages to 44 

output of compiler 20 

phase 70 output 25 
SYSUT1 data set 

CMS FILEDEF for 532 

compiler activity 37-43 

general 21 
SYSUT2 data set 

CMS FILEDEF for 532 

compiler activity 37-43 

general 21 

STATE option 26-27 
SYSUT3 data set l 

CMS FILEDEF for 532 

compiler activity 37-43 

Data Division processing 59 

general 21 
SYSUT4 data set 

CMS FILEDEF for 532 

compiler activity 37-43 

contents in phase 64 180 

general 21 
SYSUT5 data set 

CMS FILEDEF for 532 

compiler activity 37-43 

general 21 
SYSUT6 data set 

compiler activity 37-43 

FIPS processing 28 

general 21 

LVL option 20,28 
SYSx option 

description 28 

phase 02 processing for 47 
SYS2 routine, diagram of 583 



TA LENGTH field (TGT) 

description 508 

location 505 
Table Area Management Executive Routines 

(see TAMER) 
Table Area Management Maps (TAMM) 497 
table, definition 545 
table entry definition 543 
table formats 340-398 
table handling (see TAMER) 
Table Information Blocks (TIB) 

COMMON cell 325 

definition 546 

TAMER Control field 496-497 

usage 315 
table locator, definition 545 
Table usage 313,314 
tables, locating 313,314 
tables used by compiler, formats 340-398 
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TABREL routine 499-500 
TALLY field (TGT) 
description 507 
location 505 
TAMEIN routine 498 
TAMEOP routine 500 
TAMER 

definition 546 
description 492-500 
initialization 498 
interphase processing 31 
register usage 151 
routines 498-500 
space, definition 546 
storage allocation 498 
TAMM (Table Area Management Maps) 497 
TAMNAD cell (COMMON) 325 
Task Global Table (TGT) 

COMMON , relationship to 324 

definition 546 

base registers for 182 

fields 

A(INIT1) 507 

BL 508 

BLL 509 

CHECKPT CTR 510 

COBOL ID 50 8 

COBOL INDICATOR 507 

COMPILED POINTER 508 

COUNT CHAIN ADDRESS 508 

COUNT TABLE ADDRESS 508 

DBG R11SAVE 508 

DDBG R14SAVE 507 

DEBUG BLL 508 

DEBUG CARD 508 

DEBUGGING 508 

DEBUG MAX 508 

DEBUG PTR 508 

DEBUG TABLE 510 

DEBUG TABLE PTR 507 

DEBUG TRANSFER 508 

DEBUG VLC 508 

DECBADR 508 

description 505-510 

ENTRY-SAVE 507 

FIB 508 

INDEX 509 

LABEL RET 507 

LENGTH OF VN TBL 507 

locations 505 

ONCTL 509 

OVERFLOW 508 

PARAM 509-510 

PCS LIT PTR 508 

PFMCTL 50 9 

PFMSAV 509 

PGT-VN TBL 507 

PRBL1 CELL PTR 50 8 

RET CODE 507 

RPTSAV 510 

SAVE AREA 505 

SAVE AREA-2 509 

SAVE AREA-3 509 

SBL 5 09 

SORT CORE SIZE 507 

SORT FILE SIZE 507 

SORT-MESSAGE 507-508 

SORT MODE SIZE 507 



SORT RET 507 
SORT SAVE 507 
SUBADR 509 
SUBCOM PTR 507 
SWITCH 505-507 
SYSOUT DDNAME 507 
TA LENGTH 507 
TALLY 507 

TEMP STORAGE 508-509 
TEMP STORAGE-2 509 
TEMP STORAGE-3 509 
TEMP STORAGE-4 509 
TGT-VN TBL 507 
VLC 509 
VN 509 

WORKING CELLS 507 
XSA 509 
XSASW 509 
phase 64 processing for 179 
storage allocation 143 
TBGETSPC routine 499 
TBLRPT table 61 
TBREADIC routine 500 
TBSPILL routine 500 
TB WRITE routine 500 
TEMP STORAGE field (TGT) 
description 508-509 
-> location 505 

phase 6 counter used for 143 
phase 6 processing 143 
phase 62 counter used for 163 
use in phase 50 126 
TEMP STORAGE-2 field (TGT) 
description 509 
location 505 

phase 6 counter used for 143 
phase 6 processing 143 
phase 62 counter for 163 
TEMP STORAGE-3 field (TGT) 
description 509 
location 505 

phase 6 counter used for 143 
phase 6 processing 143 
phase 62 counter for 163 
TEMP STORAGE-4 field (TGT) 
description 50 9 
location 505 

phase 6 counter used for 143 
phase 6 processing 143 
phase 62 counter for 163 
temporary result, definition 546 
temporary result references , Procedure 

IC-text format 429 
TENPROC routine (phase 65) 
description 187 
diagram 585 
flowchart 299 r 313 
TER.COD data-name 522 
TERM option 

bit in COMMON 334 
description 26 

error and progress messages 44 
phase 02 parameters 47 
phase 6 introduction 141 
terminal error conditions 45 
TERMINATE statement 524,527 
TERMINATE verb, phase 1B processing of 6' 
termination, abnormal 31.32 
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TEST LINKAGE AREA field (PGT) 511 
TEST option 

BCDPN table for 466 

DATATAB field 458 

data set for 37-43 

description 27 

INIT3 processing for 513 

interphase processing for 31 

parameters for 47 

phase 10 processing 56 

phase 25 processing 85 

phase 62 output for 162 

phase 65 processing for 187-189 
TESTSUBS routine 

description 86 

flowchart 250 
text (see Data A-text; Data IC-text; Debug 
text; DEF-text; dictionary entries; 
E-text; Listing A-text; Optimization 
A-text; Procedure A-text; Procedure 
IC-text; REF-text; XREF-text) 

definition 546 

formats 399-444 
TEXT filename 

CMS FILEDEF for 532 

CMS processing of 533 
TGT (see Task Global Table) 
TGT standard area reference element r phase 

64 action 184 
TGT storage allocation, phase 62 162-164 
TGT-VN TABLE field (TGT) 

description 507 

location 505 
TGTADTBL table 

creation of 162 

format 389-390 

phase 6 151 

use in phase 65 189 
TGTINT routine 

description 163 

diagram of 581 
THRTPROC routine 

description 187 

diagram 585 
TIB (see Table Information Blocks) 
TIB cell (COMMON) 325 
TIB usage 315 

Time-Sharing Option (TSO) 19 
TOTTBL table 

Data Division processing 59 

format 390 

phase 10 processing 59 

usage 313,314 
TMCNTBSZ cell (COMMON) 331 
TRANSFORM verb, phase 50 processing 132 
Transient Area field (object module) 

description 514 

definition 546 
translating ID entries 72 
TRONC option 

description 27-28 

switch for 333 
TSMAX cell (COMMON) 

description 326 

use in phase 50 127 

use in phase 6 143 

use in phase 62 163 



TWTWRO routine 

description 88 

Glossary building 88,597 
TS2MAX cell (COMMON) 

description 326 

use in phase 6 143 

use in phase 62 163 
TS3MAX cell (COMMON) 

description 328 

use in phase 6 143 

use in phase 62 163 
TS4MAX cell (COMMON) 

description 328 

use in phase 6 143 

use in phase 62 163 
TWENPRpC routine (phase 65) 

description 202 

diagram 585 

flowchart 299 
TXPNCH routine (phase 65) 

description 187 

diagram 585 
TXTOUT table 

format 390-391 

usage 313,314 

use in phase 45 118 
TYPE clause, input to PROC01 routine 64 



UNSTRING routine 

description 118 

flowchart 263 
UNSTRING verb 

compiler characteristics for 19 

phase 4 processing for 104 

phase 45 processing 118,119 

phase 51 processing 137 
UNTIL clause 137 
UPDATE routine, diagram of 583 
UPSIBIT switch (COMMON) 335 
UPSTBL table 

format 391 

use in phase 22 75 
USAGE clause, input bo PROC01 routine 64 
USE AFTER (BEFORE) STANDARD LABEL 

declarative 327 
USE AFTER STANDARD ERROR declarative 327 
USE FOR DEBUGGING declarative 96,70 
USE FOR DEBUGGING verbs 99-100 
USE sentence 

cell in COMMON for 327 

debug processing 135 

Declaratives processing 70 

phase 1B processing of 61 
USETBL table 391 
USM-ROUT routine 

generation of 64 

logic of report writer subprogram 517 
USNGTBL table 392 
utility data sets 21 



VALGEN routine 72 

VALGRP table 
format 392 
input to phase 20 71 
input to phase 22 75 
output of phase 20 71 
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VALTRU table 

description 95 

format 392-393 

input to phase 20 71 

input to phase 22 75 

output of phase 20 71 
VALUE clauses, A-text generation for 77 
variable-length field, definition 546 
variable-length record (see Q-routines) 
variable procedure-name (see VN) 
variable procedure-name definition, 

optimization A-text format 440 
VARLTBL table 

format 393 

input to phase 25 85 

output of phase 22 75 , ■ 

VARYING clause 109 
VARYTB table 393 
VBREF option 29 
VBSUM option 29 
VCONDISP cell (COMMON) 332 
verb analyzer routines 

phase 4 111-116 

phase 50 119-132 

phase 51 135 
verb information. Procedure IC-text 

format 421 
VERB option 28 
verb string, definition 546 
verb strings 104 
verbs. Procedure IC-text 

P0 format 412 

P1 format 421 

P2 format 425 
VIOVIRN cell (COMMON) 331 
VIRCTR cell (COMMON) 

description 325 

initialization 131 

use in phase 50 131 

use in phase 6 149 
VIRPTR table 

format 394 

optimizing virtuals 147-148 

processing Procedure A-text 
elements 153 

use in phase 62 166 
VIRRTN routine (phase 6), optimizing 

virtuals 147 
virtual, definition 546 
virtual definition elements 

description 144,146-148 

Optimization A-text format 439 
virtual EBCDIC names allocation 149,167 
VIRTUAL EBCDIC NAMES field (PGT) 

description 511 

location 510 
VIRTUAL field (PGT) 511 
virtual identifying number 131 
Virtual Machine Facility/370 529-541 
virtual references 

description 80 

phase 21 processing 80 

phase 6 4 action 184 

Procedure A-text format 435 
virtual storage 529 
virtuals, optimization of 166 
VLC field (TGT) 

description 509 



location 505 

phase 6 processing 143 

phase 6 2 counter for 163 
VLCCTR cell (COMMON) 

description 326 

use in phase 6 143 

use in phase 62 163 
VM/370 52 9-541 
VN (variable procedure-name) 

phase 50 119 

phase 51 134 

phase 6 144 

Procedure A-text format 434 

Procedure IC-text format 429 
VN definition element 18? 
VN field (TGT) 

description 509 

location 505 

phase 62 counter for 164 
VN priority table, phase 62 processing 165 
VN reference element, phase 64 action 184 
VNCTR cell (COMMON) 

description 329 

use in phase 62 168 
VNI field (PGT) 

allocation (phase 62) 168 

description 511 

location 510 
VNILOC cell (COMMON) 

description 329 

use in phase 6 150 
VNLOC cell (COMMON) 

description 329 

use in phase 6 143 

use in phase 62 164 
VNPNTBL table 

format 394 

phase 62 processing 165 
VNPTY table 

description 165 

format 395 
VNTBL- table 

description 104-109 

format 395 
VRBDN table 

description 100 

format 395-396 
VRDEFTBL table 396 
VSAM 

debug FIB 467-469 

FIB 80 

interface 136,140 

object code generation 140 
VTINITVN cell (COMMON) 331 
V2BUGSW cell (COMMON) 338 



WCMAX cell (COMMON) 326 
WG01 routine 33 
work registers 155,156 
WORKING CELLS field (TGT) 

description 50 7 

location 505 
Working-Storage address elements 

Data A-text format 409 

description 1,60 

phase 21 processing 80 
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phase 22 processing 77 

phase 64 action 182 
Working-storage dictionary entries , phase 

22 processing 77 
Working-Storage Section, phase 10 

processing 60 
WOUT routine 

description 33 

flowchart 201,20 2 
WPCH routine, flowchart 203 

WEITE routine (phase 00) 

description 33 

flowchart 201,202 
WEITE routine (phase 63) , diagram of 583 
WEITE verb, debug processing 135 
WEITEA routine 

description 33 

flowchart 201,202 
WEITE5 routine (phase 21) 86 
WET-BOUT routine, generation of 64 
WSDEF cell (COMMON) 327 
WSECT routine flowchart 239 
WSTSCT routine, flowchart 235 



XAVAL table 

description 127 

format 396 
XCTL macro instruction 46,47 
XFCDNO cell 

description 152-154 

use in phase 64 185 
XFTPT switch 125 
XGDPFP switch 125 
XGNCON switch 125 
XGNSW switch 125 
XGOVFL switch 125 
XGSWT switch 125 
XG2IEX switch 125 
XINEEG switch 125 
XINTE table 

description 124,125 

format 396-397 
XIS31 routine 120 
XLITEE switch 125 
XLITZE switch 125 
XOPMOD switch, format 125 
XBEF option 

description 27 

interphase processing for 31 

output of phase 6 141,142 

phase 02 parameters 47 

phase 6A processing 190, 191 

phase 62 output 161 

phase 64 processing for 179 

switch for 333 



XEEF-text 

formats 443 

input/output operations 37-43 

phases producing 316 
XSA field (TGT) 

description 509 

location 505 

phase 6 143 

phase 62 counter for 164 
XS ACTE cell (COMMON) 

description 329 

use in phase 6 143 

use in phase 62 164 
XSASW field (TGT) 

description 509 

location 505 

phase 6 143 

phase 62 counter for 164 
XSCOMP routine 121,122 
XSCEPT table 

description 120-122 

format 397-398 
XSPEO routine 

description 132 

flowchart 270 
XSSNT table 

description 122 

format 398 
XSUDB3 routine 122 
XSWCTE cell (COMMON) 

description 329 

use in phase 51 137 

use in phase 6 143 

use in phase 62 164 
XTEN routine 74 
XY code 31 
XZSWT switch, format 125 



YBGN table, phase 05 52 
Y1IEX+1 switch 125 



ZWB option 

description 27 

phase 02 processing 47 

ZZ code, linkage to phase 00 34 



1ST- BOUT routine 

generation of 64 

logic of report writer subprogram 

phase 1B processing 61 
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